testlist <- list(k1 = -4.13946677028134e-223, k2 = -3.71007670628958e+295,      k3 = 1.4061769035493e-111, ncores = -1755496365L, uni_rand = c(4.4912e-115,      3.0809e+291, -5.3055e+274, -3.5861e+32, 3.9245e-110, 1.0169e+273,      7.4474e+252, 4.6347e-122, -6.065e-204, 1.7633e-77, 488210000,      -2.344e-201, 9.8633e-302, 4.0848e-256, 4.1034e+229, -1.509e+196,      6.4999e-298, 1.1199e-164, 1.1006e-268, 7.5503e-277))
result <- do.call(BAMBI:::vmsin_var_corr_mc,testlist)
str(result)