testlist <- list(mat_in = c(-1.0115e-26, 1.5652e+131, -9.3087e-212, -1.1435e+125,  5.4731e+275, -1.3718e+45, 2.6696e+299, 5.9602e-285, -7.2067e-158,  -2.6422e+37, 5.7945e-171, 1.3804e+303, 1.2461e-80, -5.5098e-174,  -2.1484e+263, -9.1612e+304, -8.1773e+15, 9.3991e-259, -2.3829e-59,  6.2438e+95, -1.1268e-244, 3.6867e+39, -5.6847e+13, 4.8466e-05,  -1.4433e+304, -5.6582e+51, 1.4401e-243, 3.1467e+246, 1.7585e-71,  -2.6686e-278, -1.5703e+18, 1.6831e+298, 7.3796e+133, -1.6563e-147,  1.4201e+212))
result <- do.call(BAMBI:::rowVars,testlist)
str(result)