testlist <- list(m = structure(c(1.68362168512456e-39, 3.43723302437308e+286,  1.27864480109285e+275, 1.64036035334899e-256, 5.93331283442227e+111,  1.03754973030419e+196, 2.07948243714753e-290, 6.91774884662236e+238,  2.19543398930478e+142), .Dim = c(9L, 1L)), v = c(1.78271041122804e-53,  5.71245173456631e-196, -1.55698613452863e-88, 6.24761729881375e+208,  NaN, 2.32469659163692e+184, 8.40841560127652e-305, -1.15751622435844e-190,  -Inf, 4.43323427631645e-93, 2.28790077434781e-234, 3.21560591542223e-303,  3.33650085268967e+213, -8.85030485479922e-196, 2.8669412138309e+295,  3.23321689017383e+131, 2.77703469566086e-66, -13201495762989619200,  8.44141535954985e+240, -1.15035748882391e-139, -6.97862306513043e-292,  3.97715253575983e+276, NaN, -7.5496526907744e-36, -7.53233583275653e+295,  -1.45144403967716e-266, 7.65073607908961e+241, -1.16927590570432e+86,  -7.0773623210274e-28, 1.4225827853028e-146, 1.16707127193443e-94,  344737320203.552, 48864.2555623052, 3.14012280501149e-252, 2.39724052480306e-70,  -4.91584209832197e-89, -5.3095541610438e+30, -1.23687884165915e+180,  5.04110071289591e-78, -2.3147709170702e-121, NaN, 2.18396996663954e+93,  -4.92057140955048e-178, 4.04294600333919e-223, 5.0831099641946e-53,  8.5363599400715e+138, 3.00896112013327e-76, 2.39338253277405e-39,  -6.86128222272076e-62, 5746483.89293593, 1.83227940007469e-156,  9.99791457067182e+299, 3.81742763416868e+80, 5.29077064734401e+234,  -9.94672142701948e+247, NaN))
result <- do.call(PanelCount:::matVecProd,testlist)
str(result)