testlist <- list(samp_mat = c(-1.7374e+203, 9.3398e-59, 1.0902e-190, 2.6648e-18,  -6.4608e-169, -7.3924e-178, 8.8934e+253, -5.2996e-258, -8.5337e-143,  -3.0848e+166, -1.609e-31, 6.3402e-25, 1.51e-200, 3.1042e-138,  3.1167e+178, -2.7493e+234, 5.4408e-104, -2.4375e-62, -3.7518e-293,  -2.4402e+132, -9.3856e-191, 5.29e-208, -1.6627e+47, 2.4959e+51,  -5.1417e+148, 542.64, -1.2207e-147, 2.2744e-18, 1.8716e-85, 6.2934e-82,  -1.4632e-170, -4.9659e+147))
result <- do.call(BAMBI:::calc_corr_fl,testlist)
str(result)