testlist <- list(sigma = -7.54302346037979e-177, W = c(-6.32015386551361e+44,  5.65740494348233e+36, -8.49302064230942e+242, -1.655974503568e+255,  -3.75212527707898e+55, -1.0163426273481e-287, -2.07246344773626e-119,  -6.03930810494072e+147, 1.90786394662337e+26, 3.15616007649671e-297,  1.80191438702487e+142, -3.09935847228222e-29, -8.26422090793385e-285,  1.14781476541671e+157, 1.91329611051038e+79, NaN, 3.15492814569412e+92,  -2.35933622823287e+36, -0.00014648817332605, 1.01379005707523e-196,  1.07601117448291e+295, -1.00126813592771e-17, 6.71406435283683e-271,  -Inf, 3.11110525942596e+140, -2.32475184372399e-244, -2.39126293844893e+188,  0), x = -2.03950991727629e-125, X = c(1.48324687883622e+69, 8.3656229826949e+136,  4.91608709085739e-183, 7.88535126874445e-219, 1.66049942433845e+217,  5.76477870937549e+50, -Inf, 4.75755044596222e-126, -0.186730426675608,  -312136309995244800, -8.81694070554795e+58, -5.6970287223463e+130,  2.81003116845715e-242, 2.00437032007715e-07, 1.26869483062498e+166,  -1.23023763874994e+129, -6.95674459534046e+280, -Inf, 2.05810631454618e-26,  -3.10250721659154e-111, -2.04873805864681e+90, -1.20943606964477e+239,  -3.57850504362671e-130, NaN, 6.26198300457435e-15, 4.62316510138542e-230,  -2.07302501091842e+175, -4.82348728470482e-280, 6.46079265219001e+66,  -2.07244153109335e-75, 1.54356034242293e+186, -2.88911901021184e+261,  1.23338015288153e+72, -Inf, 3.9893667642826e-48, 5.56693121536053e-233,  1.68227266716384e-193, 2.91613027499083e-194, -1.74242437493449e-191,  2.21544018541866e+167, 1.26511257449587e-260, 6.75218266459243e+227,  0))
result <- do.call(hetGP:::c1_mat52_cpp,testlist)
str(result)