testlist <- list(a = -2.43318023382663e-187, exp_mu = c(3.06886759116986e+143,  -3.91468555641316e-243, -5.48275336426756e+103, 9.28985945620188e-15,  -3.80097643545023e-13, 4.66046102560888e-69, 1.52950337919874e-61,  2.34419643426571e-253, -1.24479898333526e-108, -1.64217809273048e+131,  -2.8470716728564e-150, 4.23066581849164e+207, 2.48183270265646e+47,  8.28182054105106e-108, 1.38680336694119e-275, NaN, 5.78199949171137e-237,  6.2320075141858e-30, -2.11814402719399e-273, -1.27000634718051e-269,  1.09457818701388e+240, NaN, -2.74505505312392e+143, 4.27914432640749e+225,  -9.49379129257654e-217, NA, 2.33085174425266e+48, 3.00618321575548e+174,  -8.78387566818307e+63, Inf, 0), mu = c(1.91698338082271e-80,  2.93871033907185e+294, 6.23890285463427e-80, 4.73594416852843e-68,  1.92374608756283e+304, 5.22278042553461e+77, -2.97932406633684e-194,  -2.68155229469859e-130, -2.8443541465211e-188, -1.37830165814193e-303,  9.46138801054663e+185, 3.43512439634007e-26, -2.80408356385423e+194,  -2.69315621855967e-264, 8.88375296519136e+93, -1.28149993449481e+192,  -1.05378635096144e+270, 9.9348541420566e-272, -4.49673024853768e-166,  1.08790490440457e-197, -1.2041029401751e+269, 5.69436160505039e+304,  -4.31279914103383e+297, -8.50762375722852e-293, 8.10981151245745e+266,  5.79154874698599e-162, -1.52841548347558e+202, 1.08404704783176e-287,  6.87024100783927e+274, -5.68764856223117e-181, -1.13844874214302e-199,  1.96260971350789e-252, 5.33405194998669e-300, 3.76872630433678e+222,  -9.97306573534695e-54, -2.72162996958946e-171, NaN, -1.05877353233728e+151,  2.42723774121938e-180, 2.71379408558098e-129, Inf, -3.92218442701392e+180,  3.87644683863415e+40, 3.76872630433678e+222, 2.1613714735693e-216,  -1.24268282218984e+93, -Inf, 3.92159577538232e-79, -15667.1775954664,  4.57084549186976e-49, -1.25757101230842e+73, 0))
result <- do.call(FENmlm:::cpp_log_a_exp,testlist)
str(result)