testlist <- list(par_mat = c(5.6785e-249, 1.2224e-105, -3.0044e-297, -5.3907e+128,  1.2804e+219, -4.3554e+107, -7.5372e+165, -7.6058e+150, 5.567e-37,  6.0714e+216, -8.2007e+80, -4.2625e+143, -2.1527e+142, -3.0243e+228,  -1.3291e-106, 1.772e-302, -4.0825e-184, -3.2321e-198), uni_rand = c(-2.5233e-17,  1.2297e-206, 1.6695e-06, -4.1703e+271, 4.0642e+231, -3.1663e-18,  9.7786e-170, -4.7447e-197, 1.6256e+25, 6.7338e+104, 4.2972e+27,  -1.4052e-192, -3.9623e-308, -1.8211e-234, -3.0556e+155, -1.6453e-182,  -2.3688e-78, 5.6476e-77, -3.8313e-287, -4.5304e+38, 2.4471e-171,  -9.6969e+196, 4.1199e+84, -2.9568e-15, 1.1318e-163, 1.9283e+297,  -6.3367e+217, 2.9219e+290, 1.7391e-72, -1.6924e+204, 1.7781e+158,  -1.0481e+95, 2.5094e-241, 26862, 3.8319e-33, 2.1908e-157, 2.3129e+284,  3.3347e-142, 1.7903e+80, 4.302e+12, 9.5751e-117, 7.1808e+174,  -3.1356e-190, 2.7102e-21, -4.6721e+301, -2.1924e+27, 1.3118e-219,  1.1291e-81, -5.7056e+139, -2.8082e+212, -4.0583e+105, 2.844e+251,  1.709e-180, 2.8428e+249, -4.4641e-82, 5.5209e-42, -1.0354e-238,  -6.0044e+53, -1.4781e+155, 4.2825e-209, 5.2326e+282, -4.0785e-87,  -2.9328e+163, -2.9695e+13, 4.8383e-124, 0.00028018, -7.3528e-28,  2.7753e+45, 2.3348e-141, -2.1641e+86))
result <- do.call(BAMBI:::log_const_vmcos_all,testlist)
str(result)