testlist <- list(airDensity = -1.60749135504311e+257, bdc = 1.05110739937381e-42,      bm = c(-Inf, 1.99956071174838e-58, NaN, -4.71311383828797e+52,      2.71864740739645e+305, -2.97308103093547e+127, Inf, -3.0649521755785e-88,      Inf, 2.52029251520401e+115, NaN), g = -9.44439016303033e-11,      ipf = -1.11774260042292e-268, ppc = -3.30532200021319e+109,      vt = c(-1.33407675969193e+250, -3.23548370767777e-270, 1.27717392099682e-211,      2.05230208508073e-295, Inf, NaN, 4.77110031754994e-194, NaN,      2.77440951741037e+205, 1.38559695290686e-218, 9.28895244199872e+117,      2.11500864057159e+266, -4.42506436911266e+79, 1.27717392099682e-211,      -1.12579962855711e-131, 5.79490917680344e+266, 1.62173197378838e+273,      0), wa = c(1.76766869349838e-134, NaN, -7.85603483015816e+75,      -1.92586996394095e+143, -2.05968464248084e+40, 1.34180081145722e-170,      1.38724279579682e-217, -1.8425243144346e-60, -2123402130712682,      -1.18746132164459e-201, 2.65319818034059e-230, -4.55971823902676e-163,      1.25618075937418e-291, 6.95067051221794e+252, 1.1580489648063e+284,      -7.39815337455738e+32, -9.00186881698733e+36, 2.51516171273667e+193,      -4.12222537306167e+117, -4.2632596552041e+209, 1.37494690575152e+87,      -72.0470858547395, -72.0470858547395, 3.06837636940535e+279,      9.40016078340575e+226, -2.84832936855025e+120, 1.5638387404804e-46,      -4.42444922343092e+165, 2.3585284547834e-93, -2.61439355107345e+181,      9.83885336424673e+42, -3.85094615782402e+303, Inf, -5.6100645262791e+65,      1.86534906746985e+279, 6.96592698056664e-286, -1.92236433210172e+252,      -6.02732057695265e-298, 1.77681605699862e+177, -1.15950028178125e+196,      9.88124601208035e-26, 8.77477745158315e-13, -1.20320074898457e-05,      -72.0470858547395, -1.46170240532132e-87, -4.13478065573921e+267,      -108099.702266692, 3.15045734594573e+53, 6.04477746720379e+272,      0), ws = c(-1.34258432987736e+45, -1.90711096471443e-113,      -1.29394167104119e-77, -1.87815569939506e-236, -7.65637812137808e+195,      -1.70874180065889e+106, -0.000684999205043519, 2.74867082069359e-76,      3.56239571030559e-48, -2.88948861980739e+41, -3.80284137573103e+215,      -1.29239193202917e-111, -5.92314850177315e+152, 3.02408750400252e+298,      -2.30793407541799e+94, 2.75237001248236e-257, -2.50271968023523e+49,      3.78187722133666e-277, -1687708698.5152, -9.92526547798748e+78,      29.3239509542033, 3.15753896845544e-241, 1.4552370221044e-223,      1.62616652826196e+289, -2.7837150923281e-281, -1.23841718569173e-133,      -7.3795280206831e-97, -9.26029850891302e-256, 2.18600704194444e+192,      4.3142709857625e-308, -2.8464196605372e-258, 9.30467234836823e-281,      4.95104908463331e-191, -1.80330881809088e-224, 2.42213129131292e+288,      -2.95671291606499e+78, 5.40010881942964e+230, 2.61649376711501e+294,      9.21310356101451e+103, 3.54223264385947e-202, -1.26426867223013e-228,      -5.2499584558963e-79, 2.37041191830635e+222, -31337872710341104,      -8.64948803949791e+238, 18501511226265.1, 6.4477931504975e-156,      2.5376782586438e-246, -5.73599291814705e-257, -1.12136952022833e+261,      7.07497466096429e-225, 1.01811800959294e+259, 2.83018865795766e+241,      -7.65637812137808e+195, 1.32063032556456e-207, 2.93604564097018e+298,      -4.13963321276831e+269, 8.7052174863383e+86, -3.35867940632765e+36,      -8.12614444434011e+160, 6.48020441932252e-177, -2.27826017159192e-171,      6.26623901425707e+168, -1.53092767792204e-205, -1.24336713825186e-301,      1.25246106003234e-276, 3.30167059772148e-206, 1.3864722687952e-297,      -15099788885920138, 2.1449973050471e-156, 7.02420968197796e+233,      -1.94093554083265e+168, -5.82950851044392e+260, 2.60621577692648e+266,      3.20025072498183e+84, -3.53100164441231e+79, 7.46845420361331e-288,      2.36385499149237e-256, -4.567044077789e-258, 3.27158939196117e-255,      1.08395510291725e+293, -4.68230644118037e+263, -3.56811163685803e-308,      1.01125058852379e+237, -9.51666072353773e+139, -7.65637812137808e+195,      1.34509393484495e+76, NA, 1.18840531578536e-71, -1.0753495075156e+56,      -4.43083654891343e+164, 1.38560634317815e-129, 4.40151035321216e-248,      1.00383716139667e+121, 1.43712129919971e-110, Inf, 0))
result <- do.call(flying:::total_Mech_Pow_cpp,testlist)
str(result)