testlist <- list(NP = 1827680409L, NZ = 467495432L, W = structure(c(-1.64581369299083e+174, 449058805123160512, NaN, 6.53679281395345e-70, 2.42643425911725e+241, 1.65686753146763e+24, 1.0757509500453e-123, 5.34064462502098e-62, 68.0063469492098, 7.41991899180824e-298, 6.88707582869861e+148, Inf, 6.23171423301887e-187, 9.88408569806359e+20, 5.5227478208542e-164, 4.15792180330863e-241, 6.68484372590661e+28, 5.48714307975014e+129, 2.44557886345652e-65, 1.58625078903177e-183, 7.10517494050275e+225, 5.60403556582933e+114, 3.18817937474369e-55, 7.76075104095813e-247 ), .Dim = c(3L, 8L))) result <- do.call(bmotif:::np_m16_py,testlist) str(result)