testlist <- list(k1 = 382767301772749440, k2 = -1.65343656020319e+50, k3 = 1.37394515647756e+128,      l_const = -4.95189684683758e-06, mu1 = 8.66615828768502e-287,      mu2 = -7.68696729165468e+208, x = c(2.8932e-151, 8.382e+85,      8.6002e-44, -3.0394e+10, 1.9501e+118, -5.0891e-166, -1.0582e+200,      4.1664e-83, -5.262e-285, -9.2385e-83, -6546400000, 2.6983e-205,      -5.0245e+208, -1.278e+210, 3.7396e-241, 3.0158e-22, 1.3478e+182,      4.0347e-93, -9.6672e-38, 6.5225e-116, -1.9617e-242, 1.1587e-82,      1.1791e-196, -3.6442e-199, 4.004e-103, 2.4418e-242, -1.4092e+280,      -1.0302e-06, 3.9422e-238, -5.0284e-189, 1.0395e+257, 1.2338e-143,      3179300, -3.2338e+153, -175970, -5.1255e-12))
result <- do.call(BAMBI:::ldcos_manyx_onepar,testlist)
str(result)