testlist <- list(k1 = 2.54718969578646e+199, k2 = 1.09161989441891e+243,      k3 = -9.99440416830206e-43, ncores = 809728991L, uni_rand = c(-9.3646e+252,      6.2724e+217, -9.2939e-170, 1.0864e+130, 4.1881e+253, 1.6704e-295,      9.8928e-73, 3.4566e-176, -1.2483e-195, -3.9298e-145, -3.7859e+44,      -5.1982e+78, -2.5728e-175, -2.6616e+60, 2.306e+132, 1.3191e-121,      -4.8615e+143, 1.5983e+176, 6.3412e-239, -1.8932e-165, 1.6199e+209,      -2.3052e+241, 1.042e+26, -1.2952e+159, 1.018e-164, -1.1303e-115,      1.8288e-21, -3.5599e-155, -2.5087e+138, 1.3928e-162))
result <- do.call(BAMBI:::vmsin_var_cor_singlepar_cpp,testlist)
str(result)