testlist <- list(k1 = -1.79846853151264e+123, k2 = 8.76742216136757e+24,      k3 = -1.84537482578067e-32, mu1 = -4.37387868609899e-67,      mu2 = -7.4330462401975e-84, omega_2pi = c(1.0058e+146, 3.4118e+241,      2.2141e-15, -1.3586e+110, -1.0276e-204, 9.5567e+73, -2.3684e-154,      1.6081e+299, 1.6447e+287, 2.3775e-232, 4.9127e+136, 9.652e+44,      4.8196e+224, -1.5223e-48, 9.9567e-139, -3.927e-240, -9.2038e-64,      -5.7198e+11, 2.194e+238, -9.3034e-88, -5.1645e+164, -2.2523e+222,      -1.7299e-257, -1.4337e-28, -1.4151e+197, 2.3164e-263, 1.2329e-75,      2.6108e-81, -8.8921e-53, -4.2845e+100, -4.6274e-07, 1.9056e-128,      6.2784e-231, 8.6308e-172, 1.3954e+209, -5.283e+27, 1.0447e+209,      -1.9874e-199, -2.4885e+111, 9.2575e+230, 3.4489e-202, 2.7408e-257,      -3.0172e-242, 1.5999e+172, -4.0326e-144, -2.0585e-44, -4.694e+20,      3.5217e-182, -7.0109e+58, 2.495e+289, -2.1653e-14, -6.6963e+201,      -3.1286e-306, -2.7109e-139, -6.142e+271, 2.6771e-251, 9.7435e+112,      -5.5788e-272, -4.3208e+92, -2.0772e+233, -3960500, 5.5498e-304,      2.4001e-157, 1.0452e-286, 3.7464e-284, 5.1146e-154, -1.4412e+175,      -1.1947e-263, 3.7563e-48, -2.6917e-279, 3.6443e+83, 5.4447e+105,      3.4496e+299, -1.0369e-185, 1.23e-305, -8.0612e-216, 5.4055e-91,      -1.433e-214, -2.7131e+150, -1.9156e-21, -2.5324e+63, -2.6344e+188,      1.6655e+12, 3.7079e-134, -4.2691e-243, 1.1008e+204, 2.1792e+124,      2.4563e-201, -2.8243e+200, -1.1751e-58, 9.1778e-107, -1.6356e-245,      1.3037e+180, 4.1483e-53, 9.5738e-62, 1.6213e-203, 1.2782e-90,      -7.4943e-131, -2.5689e+107, 3.3261e-136), x = c(5.4413e-27,      -7.5054e+198, 4.2151e-245, 6.0935e+137, 2.9662e-108, -2.372e+71,      1.9127e-19, 3.8312e+18, -3.7721e+267, 2.116e-57, -7.5819e+257,      8.812e-210, -8.8285e-100, -5.638e+222, 2.7e+47, -2.1469e-61,      -7.9799e+290, -6.5746e+237, 7.3288e+45, 1.6887e+100, -6.1252e+256,      -6.0803e+193, 6.7503e-99, -5.0441e-174, -1.728e+222, 1.9589e-50,      -32818, -1.3433e+124, 5.7682e-268, 8.4706e-103, 2.5995e+130,      -9.1818e+263, 3.8302e-51, -4.2765e-190, 2.8439e-201, -6.9649e-131,      -5.2101e+117, 1.5095e+67, -4.7002e+114, -2.4637e+134, 4.7237e-110,      -2.6023e+132, 5.0702e+291, 4.2293e-235, 1.5982e-48))
result <- do.call(BAMBI:::dwnorm2_manyx_onepar,testlist)
str(result)