testlist <- list(k1 = -1.5414367599219e+142, k2 = 9.40935474447359e+124,      k3 = 5.15498381531814e-26, ncores = -461009623L, uni_rand = c(1.7611e+146,      2.5196e-51, 5.653e+89, -7.3683e-211, -3.0816e-276, 1.4339e-151,      -7.5525e-208, -6.519e+168, 3.5461e+31, 2.0632e-302, 6.1133e+279,      -7.507e-87, 1.1764e+12, 3.0776e+199, 1.074e+163, 2.1936e+168     ))
result <- do.call(BAMBI:::vmcos_var_cor_singlepar_cpp,testlist)
str(result)