testlist <- list(gcoef = -Inf, InuT = -1.9150834128595e+25, jtms = c(4.24195415756373e+22,  -1.3484668303288e-218, 8.07634259695606e-201, 9.96356289148442e-247,  2.90006540622778e+287, -3.62253220237966e+84, -0.00016852503890871,  -5.51903795077038e-05, -2.04972055854821e+224, 2.91998178219736e-47,  4.09707721003032e+206, -1.08136198436748e+108, -0.0456404306303113,  7.86531961485621e-108, 1.77775555112607e+279, 1.92512546208025e-122,  -1.74847823197689e+192, -8.62176304742102e+250, 1.6260684855955e+96,  1.56395602788288e+138, 1.86510843342709e-245, -1.6578235520724e-126,  8.31920255513824e+76, 1.21214794644861e-73, -1.82852408321013e+183,  4.29485968908016e-206, 4.54964027613698e+119, -1.51652249314335e+167,  -3.75004888626212e-129, 3.69390615123829e+234, 5.50122451930252e+234,  -5.85649931437095e+106, 2.33603150842745e+187, -2.61014782890184e-89,  5.39802665415686e+140, 4.34952641997584e-92, 4.43042828616646e-127,  3.44019924376599e-175, 5.97911312413231e+292, -2.91472249704818e-218,  -1.65068658328465e-137, -2.23942978672215e+46, 8.11011748043062e+134,  -1.03257662527594e+153, 1.07152618122477e+139, -1.32829145719433e+231,  4.88048830900701e-239, -5.26071435728122e+264, -5.76397108542496e-280,  -9.94650562032047e+188, -1.49918877353769e+56, 1.81312413287634e-164,  7.26431178286288e+160, 3.97887764037891e-75, -3.63104284120958e+53,  1.311014330822e+226, -8.01925069391582e-77), nuvs = c(4.59357370881766e+258,  -1.02108437557686e+209, -1.66227370957137e+71, -0.01003847487936,  2.34192915355255e+295, -9.20502565118273e-170, -3.39306543816541e+131,  9.88233618618302e-105, -1.71593794529162e-172, 5.9368176106544e-148,  3.25414398283022e+150, 9.06214298231002e-102, 5.21957845705684e-76,  -2.43535279865779e-299, -8.46451060132381e+109, 1.78305029150471e+123,  9.06878093561411e-199, -5.08852565064959e-155, 4.48373865713521e-181,  2.47398364732046e-73, 3.82504709473899e+232, 1.37854041650907e+44,  9.96193890446363e+126, 1.11302925836436e-94, 3.17049852378735e+35,  6.0961280935684e+76, -1.95911022351181e+49, 4.33974061736841e+132,  -1.87966073614262e+245, 3.38798302230317e+182, -2.51461527935472e-47,  1.19302609611582e+229, -1.52478046635433e+200, -5.50447217443272e-100,  6.04914664611398e+74, 2.38321605042757e-73, 8.83511617093032e-40,  1.10232556674988e-152, -5.77226490664983e-192, 5.85921155585348e+57,  8.25400423504468e-84, 5.37185806047134e+86, -7.10654425545614e+237,  -1.50068042774653e+222, -2.55082138101597e-191, 2.508185756681e+123,  5.96094123278471e+179, -1.88273347179149e+86, 1.35389710979726e+31,  1.37161361418265e+99, -3.06122496699391e-70, 6.96398099163469e+169,  1.41430742644254e-85, -34543.1733826779, 32599890807.1303), TT = -2.71556013655488e+194)
result <- do.call(IHSEP:::mloglik1e,testlist)
str(result)