testlist <- list(h = 1.28500895208387e-145, l = numeric(0), y = structure(c(9.04785911572999e-246,  2.1195274878126e+175, 1.97484021284251e-73, 7.61116118414731e+241,  6.02349896549741e+160, 8.87733588404654e+275, 5.06088818496302e+179,  1.9318830011052e+296, 2.05348099513863e+135, 7.61305693793727e+145,  8.1251604760586e-37, 3.23872981231312e-300, 5.29680968169448e+231,  3.53987399059552e+154, 1.976984225453e-26, 3.58626435444611e-211,  7.91234107484177e-152, 5.10961155289448e-214, 1.22514379961832e-225,  6.56291745792853e-167, 3.04470413664972e+258, 2.47155740692162e-97,  2.96222905021051e-121, 1.97757795559498e-109, 1.48970740261237e-177,  2.8831177550907e+155, 3.2310671937851e+114, 2.80773782769889e-23,  2.26650094324299e-79, 8.69486369261506e+240, 7.47167554882281e-67,  2.77842702595268e+145, 1.50670758943949e-124, 5.6727491565757e-195,  5.74603680513085e-184, 0.00549003077520633, 2.73217893337985e-200,  1.83506189134044e-68, 8.91308334141293e+204, 1.87386598589943e+59,  5.4865065698126e+126, 4.40663828025353e+259), .Dim = 7:6), z = c(NaN,  8.76582805963347e-150, 13710306144.2592, 5.14803900634694e-193,  -5.58372139178257e-151, -9.95820668684471e+103, 8.88660046066125e+159,  -8.82188129234071e-284, Inf, 9.60891352851411e-230, -1.27052571364764e-175,  8.0551974971168e-49, -1.09629922901511e+281, 1.28869958684355e-31,  NaN, -4.57745771640348e+285, -2.50106728656583e+258, NA, -3.14725843392919e+305,  1.52229294649418e-175, 5.32131499958799e-36, 3.56885736332644e+115,  -4.54388391431778e-116, -1.8817272646678e-87, 4.56366044826737e+88,  -7.13935898929312e-09, 2.43969014831687e-287, -2.18715521310464e+66,  -1.57140106889568e+220, 1.83938550407584e+215, -7.03422447116178e+90,  -1.07655467423534e+67, 4.48507833923053e-181, 1.46810244841558e-305,  -8.56353958741998e+100, 0))
result <- do.call(cgAUC:::c_d_theta_sh_h_p,testlist)
str(result)