testlist <- list(air_rh = c(NaN, 2.45579024550788e+55, 4.8744102135897e+46,  -1.63800461068719e-149, -4.58933464479211e-145, 2.94929990209009e+237,  NaN, 3.84643183683778e-18, -6.0378194565318e+141, -1.23617515155905e-176,  -1.69832052165658e+155, 2.38612460679438e-174, -2.67262976800475e-167,  -2.37287540004046e+268, 2.11260137061573e+177, 4.09954847315469e+208,  1.94719018135629e+243, NA, 1.21261621079552e+86, 1.82923066193431e+73,  -2.22372321458071e-60, -5.77134086455062e+44, 1.27190322382324e+198,  5.30913028775216e-280, 4.43779144502588e+59, 5.17147853247536e+287,  -10.6501749823655, -8.86986355564155e+149, -2.35812126469472e-210,  9.9592775629912e+141, -765463442668814464, -1.36637469880194e+77,  -4.64628121178932e-99, 1.72374811612598e-161, 1.12169892285899e+214,  7.93055818580895e-136, -3.67093610000142e+71, 7.98388140058605e-199,  5.96003017574415e-99, 1.6098795343272e+142, -2.61422858051691e+241,  -7.13558137683926e-149, 4.9528807190045e-55, -9.99684182360179e+241,  -2.84719814137211e-167, -1.91101661288259e+259, 5.852135088672e-155,  -6.85730280543174e+245, -1.13691985197051e-239, -1.07224944443056e-98,  1.89283979077673e-121, -1.16363398434606e-86, 1.34744378256908e+99,  -4.33269947831125e-177, -1.46112323037378e-63, 4.90231531286323e+99,  4.60886262517608e+277, -2.83988006630584e-76, -3.07078260519931e+153,  4.50156665556738e-73, -2.29058376228747e+297, 1.95452134153892e+151,  3.61891880816208e+256, -6.34938811464157e+234, -4.757920616717e-72,  7.90903399115251e-144, -1.45012827247961e+188, 1.26411058454804e-139,  -5.28139459648583e-111, -3.02022385794265e-275, -0.000980630899240966,  1.09349702852775e-302, NaN, -6.86748022651815e-177, 0), rotor_radius = c(-3.90235962291518e+67,  -8.95659480115241e-137, 1.17196430305691e-251, -3.26531666049968e-193,  -2.76563972844386e+48, -9.11699843304452e-130, NA, NA, 1.27723397670762e-291,  NA, -8.19346584546473e-54, 4390137258828687, 0), wind_speed = c(-3.71068472552219e+254,  -5.69013809456263e+89, 2.28974100211398e+39, -1.87376321836933e+161,  NaN, NaN, NaN, -7.66807228552709e-153, Inf))
result <- do.call(windfarmGA:::energy_calc_CPP,testlist)
str(result)