testlist <- list(ALPHA = c(-1.38151649219348e+168, 1.19315392535658e-141,  -Inf, -2.07561316533082e+237, -1.05581945385514e+199, -4.88804776511754e-297,  NaN, 3453.29047984424, -3.56975382312108e-36, 5.39109019284475e-201,  -1.38151649219348e+168, 1.00426359673653e+235, -Inf, 8.6392692646041e-86,  -6.59108461596248e+260, 1.36824344822951e+256, 1.36165960185641e-268,  0), awv = c(NA, -1961126537L, 16918809L, 1827146404L), DELTA = structure(c(9.85991889654162e+61,  4.31567448048197e-209, 6.67144770073947e+285, 1.72654835500306e+62,  1.9471437367986e+175, 9.63683795739168e-160, 7.89358439800608e+200,  1.44942673204774e+271, 4.71498943427519e-172, 1.02169459811525e+65,  3.61119268294964e+99, 4.96837254833045e-73, 6.30551957537696e+298,  1.91396236729787e-158, 3.02787817232068e-297, 3.98386458094579e+21,  3.97376606830012e-200, 2.10007476436439e-194), .Dim = c(3L, 6L )), nodes = c(-3.78137137380498e+98, -30.3095311970015, -9.44728251757619e+250,  7.77369144597467e+57, -4.75823644366329e-112, -2.61185131835848e-224,  -2.93550779886446e-242, 3.09248746130399e-51, 2.5064017401481e-76,  -7.20689643666705e-140, -1.00929607203332e-64, 1.59779980196489e-62,  -6.99466678523644e+209, 1.52665490917757e-305, 2.21654926504423e-249,  6.29526913983297e-189, 3.96280922524116e-296, -1.85521753160427e+223,  1.4075212938441e-230, -2.0930448581776e-243, 9.93139025895017e-06,  4.10818172689269e+121, -4.741347138743e-196, -9.22489434668333e+195,  9.3684859792068e+306, 2.57335360653662e-41, -1.5109428809765e-174,  5.23107732941355e-272, -3.20481612305979e-95, -6.24803806332412e-99,  1.02542254747116e-295, -2.06039926831703e+73, 8.46559245893004e-268,  -1.91851971468017e+302, 7.37301623407987e-280, -9.12493132315977e-17,  7.47513230497205e-60, NaN, -8.85284579649145e+235, 3.5388801906261e+30,  3.55870532323773e-92, -1.43944467490655e-181, -5.4581884850951e-155,  -1.08157172263477e-264, 9.76232472042469e-115, -1.05752188705884e-86,  2.13749829391867e+289, -7.5689993365049e+128, -1.22135638615234e-172,  1.27373824650375e-44, 7.68098242037095e-62, -3.60692087272765e-240,  -1.15210146311907e+303, NA, -1.27352233251617e+143, 6.6684974957888e-212,  9.41905149455082e+163, 3.0329399763631e+299, 5.99498324287186e-162,  -5053.13915483294, 1.2976828911401e+65, 6.02145883201328e-302,  3.99096415385107e+275, NA, -2.60347191169849e+194, -2.51359511799574e+152,  -3.47739577381303e+269, -4.81703726036126e-191, 6.1270526884939e-194,  2.74181613379759e+111, -3.21810062700477e+205, -6.91205952422119e-10,  6.60729135734076e-18, -6.63752334587263e-86, 6.80669365280262e+98,  -1.86136988998373e+29, 3.73548487096016e-38, -6.25420376852398e-196,  -1.15352246935634e+296, 4.16444127035133e+157, -1.43579154959865e-196,  9.89050974696618e-103, -6.98754661714203e+72, 2.79158916166661e+304,  -4.93154022500174e+278, 1.44429611797142e+25, -Inf, -1.73463571455095e+237 ))
result <- do.call(PP:::Likgpcm,testlist)
str(result)