testlist <- list(f = structure(c(2.30980258295413e-182, 7.7138684480244e+222,  7.63196218141027e-179, 1.5169999407476e-149, 8.84503376600421e+276,  8.24884434978864e+80, 6.98711896721922e-223, 3.06215421439979e-53,  1.47931183638417e-54, 5.23903260497259e+92, 3.77278919375484e+117,  1.31852720680206e-92, 3.87494901729954e-252, 4.06346240791837e-59,  3.52963133774942e-120, 3.2583626303841e+189, 2.55974175423769e-54,  5.13409978679011e-200, 3.78577134867092e-20, 1.67916440514118e+53,  1.94040154058885e+23, 4.22494255461838e+112, 1.37322168644335e+180,  3.09178888012862e-63, 4.15406653965674e+299, 5.54631615997981e+126,  1.10287023948386e+163, 6.83110214643533e+156, 1.34693537674841e-281,  2.48646550692624e-24, 1.15215786912982e-54, 3.12940686153516e+182,  1.67814989841151e-244, NA, 2.17840625421554e-188, 3.2817955527698e-228,  9.24462841296526e-269, 3.61640802511807e-138, 5.56262456606563e+109,  1.19057123213934e-138, 5.82654064337691e+204, 8.58756681157123e+51,  2.09165528866342e+130, 1.07433804645239e+96, 9.27460001364049e-43,  1.39177659084603e-50, 1.19456164871963e-123, 5.61827089511087e+110,  1.02828862471477e+24, 8.1232206665293e+215, NA, 2.15259518937072e-192,  NaN, 1.22472620008728e+289, -Inf, 1.15360506611592e-33, 9.11476566499204e-58,  1.80483739573767e-156, 1.39326849264925e-36, 3.48354762517695e+255,  1.20700687787189e+126, 1.53032245185955e-27, 4.91542968496158e-166,  1.24279905288058e-267, Inf, 1.97320653469229e+115, 7.64698378903856e-93,  1.76215164845093e-16, 4.97226305365223e+295, 2.5052630118839e-188,  1.35406190526319e+52, 1.65192878120407e+49), .Dim = 8:9), v = structure(c(1.02532483752325e+261,  1.46340296343369e+288, 5.67165037573218e-306, NA, 5.43908332228391e-105,  1.12756429789692e-57, Inf, 4.85713114047829e-272, Inf, 3.30698101927463e+94,  NaN, 4.12846164752131e-51, Inf, 61.3402689356117, 6.30846847410014e-13 ), .Dim = c(5L, 3L)))
result <- do.call(icosa:::triMatTri_,testlist)
str(result)