testlist <- list(A = structure(c(8.72060970785952e+239, 3.90273324296843e+68,  3.76200190337167e-08, 6.57922423774397e-125, 2.71595477858727e-133,  6.93105971255819e+198, 3.745056403122e-69, 4.84310521620563e+163,  2.79110263742449e-105, 2.69106354822707e-162, 1.22025745081815e-160,  3.73601348991804e-163, 319421571447193984, 4.00340034335063e+71,  2.09908677916211e+68, 1.01626856353108e+138, 1.39084509238703e+79,  5.56855801410462e-302, 3.27349581657695e+56, 1.68601767983754e+137 ), .Dim = c(2L, 10L)), B = structure(c(7.32638601873101e-68,  1.53110341994974e-158, 1.09181138466154e-193, 3.82923747903879e+53,  1.88424290325737e-176, 5.9271316735583e-160, 4.9581294834416e-201,  4.13857280212933e+161, 9.23358413667601e-140, 8.75480589393639,  1.67252036368472e+71, 4.20922162016851e-25), .Dim = 3:4), Sigma = c(2.0193185726581e+197,  1.1473251686367e-173, Inf, Inf, 1.28647317662839e+180, 8.78103485779409e+33,  1.98400072738634e+262, NA, -Inf, 0), x_init = c(1.84993354411261e+211,  -2.60548879692706e-123, 1.64078570833755e-109, 1.31471027551804e+207,  8.55258746042794e+231, 1.17328359296111e+156, -5.23692175745325e+195,  -1.70027963553483e+155, 6.54793801114969e+37, -3.49747466227045e+257,  NA, 2.60663321060957e+29, -70704856456015296, -3.28073005898999e-113,  2.7470822990553e-12, -4.80281375753993e-29, -1.27878922538383e-125,  3.4388623391725e-77, -2.9044290743871e+274, -6.37553125857471e+49,  6.76015132311094e-91, 5.15335718805018e-140, -2.50662537527392e-54,  -2.76368794247802e+128, 2.64726870755632e+300, 2.7449577971174e-84,  2.3391555010354e-89, -2.09298969036621e+263, -2.83167178646181e-08,  -1.41844688089669e-101, 1.12936300979216e-36, 14801789631.0575,  -2.05654196604334e+101, 6.87783337212151e-189, 6.37930734025409e-103,  -1.1656670300717e+114, NaN, -5.24331552690077e-09, -7.33570296706359e+40,  2.58590267106796e+172, 3.78339820738377e-293, 4.82197122589673e+21,  15.9660599088151, -6.14385578600512e-179, 2.13423752920052e-224,  -8.60809599143352e+183, 6.0300816703111e-98, 1.10708821131649e+205,  -2.70949688919431e+243, 2.78739070814546e+86, NA, -1.94924774858133e-127,  -1.78330339414283e+237, -1.04238956874368e-291, 2.58118929201877e+121,  3.97273097568729e-90, -5.34282099734737e-41, 1.3370868943547e+39,  -2.38511594340466, 1.28407484471012e+266, -8.14242604725484e+110,  9.2610657275003e-209, 1.83845180040143e+138, 266204146598922880,  5.09756870459193e+280, NaN, -1.80623839558018e-224, -1.49914068236283e-245,  5.05179800233961e+205, Inf, -8.44905905786909e-58, -3.22410920540416e+48,  -5.74914601063325e+85, -7.91458617034541e+173, 4.09273040265422e-264,  -7.60457913817793e-73, -3.88616143905699e-95, 3.21927062235773e-24,  4.95713345450456e-73, 4.51055547879027e+115, 2.14497962357877e+26,  -3.8742115034921e-261, 6.906107733266e+289, 2.35099450981836e-309,  4.33306436071724e-137, -6.23758086582134e-276, 2.01028397803138e+84,  -1.52296176533328e-285, 1.83240342586081e+29, -1.95566879012326e-45,  0), z = c(-3.3221321340059e-62, -4.5430406250308e-302, 1.3906501557211e-53,  -3.11840803889623, -7.52492793504313e+189, -2.24394315084444e+94,  2.01672676359683e-159, -6.71533971914556e+272, -2.4722320132899e+173,  -Inf, 4.46542811617462e-145, -4.83833369471615e+228, -1.11313109231185e-32,  5.06575138513266e-64, -6.14336398751909e-115, -2.28936103085694e-108,  7.02950787635319e+208, -1.09022881657796e-258, -1.73391702420313e+85,  -7.49837973116241e+35, 2.1784894118049e+166, 4.88472348884882e+202,  -2.82172181693522e-293, Inf, -3.84147684989369e+266, 9.22748807345455e+124,  NA, 0))
result <- do.call(forecastSNSTS:::tvARMAcpp,testlist)
str(result)