testlist <- list(C = structure(c(3.36337751745988e-22, 1.18768284934514e+114,  1.99026304697011e-212, 8.8972232637045e+185, 3.94755525739185e-206,  1.46559322925623e+61, 3.70546118917622e+298, 2.90017921783881e-20,  8.48738867635794e+36, 2.20899399036366e-237, 9.93801370547866e+42,  9.12857431538348e+250, 4.64599600717419e+130, 1.08308216815724e-209,  7.96553162969435e-195, 1.39325346348317e+125, 4.09763796501605e-224,  5.92789663705582e+111, 4.78858715990734e-225, 4.2326008721914e-273,  4.26301614934704e-79, 1.28339417221961e+293, 3.93220688244815e+176,  4.61573046719478e-253, 2.96107943490985e-204, 2.58449995521256e+233,  5.28725685122298e+141, 2.06726248577572e-114, 2.53866030971738e-306,  1.11119965092856e-273, 3.26454969780914e+84, 1.37639376409087e+281,  3.87908691646319e+124, 4.53973340139615e-239, 2.23952680714491e+51,  5.74294933246633e-68, 1.06561774456969e+72, 1.68589755459622e-251,  5.51559002342101e-71, 1.42608106161341e-274, 6.96084892275909e-85,  2.43660564231781e-278, 8.04623905416274e+173, 8.9333415602616e-187,  2.97131406200299e+284, 8.97847884243084e+109, 2.67087112987718e+170,  1.31893656476025e+88, 3.49362429474635e-176, 1.23656834341802e+278,  5.0275868531449e+225, 1.54487160611182e+170, 1.1972151510177e+216,  1.23129587704263e-294, 1.84084318108963e-161, 6.84471550465623e+242,  2.74634027230944e-243, 1.04607083912217e-98, 4.51880845420562e-205,  2.59865209683382e-192, 1.73883222533358e-40, 5.03959599661266e+42,  1.36027916700484e+164, 2791281733.7717, 8.32827142953859e+192,  1.32002844892198e+82, 6.28966461370329e-235, 2.16997084325939e+300,  9.3197707788297e+168, 3.77692344982532e+124, 6.2006399166262e+55,  8.8659668934076e-290), .Dim = 9:8), g = c(3.63012909583399e-23,  -Inf, -Inf, 8.55389346707963e-175, 4.01474559309425e-147, -2.44351321502167e-144,  -2.14299502810785e-215, 1.40847835415242e-216, 4.45911710808475e-154,  8.85185630215352e-69, -1.87258105184741e-194, 3.20732038943048e-173,  NaN, -6.37551361483495e+133, 4.16358781349231e-286, -Inf, -6.37303756976518e-94,  -2.53199101902849e-74, 8.51074765802046e-274, 4.80881589724962e-106,  1.6854201201285e+74, NaN, 7.85268352506037e+268, -1.154803572058e+29,  5.52940026233835e-109, -1.4771896772619e-61, 2.00278390387053e+235,  9.2292963881612e+258, 7.41089763436365e-31, -8.42393795421531e-171,  -1.55723758910891e+308, -3.55963477096015e+70, -2.34178728466133e+144,  -1.50735789830864e-283, -7.8444433970318e-156, 7.9293080165367e-245,  4.76789253410454e-60, 7.00115082645604e+63, 7.08246872196755e-60,  1.15709299693137e-25, -1.14725618974849e-114, 39779625642.5391,  8.37205374479681e+120, 7.90731220743115e-216, -2.90914734358021e+140,  -1.43033669227222e-92, 2.14865491484753e+194, 1.10225297901696e+231,  -6.45733507173354e+287, 7.14339549406181e-39, 2.30638556711442e+63,  5.96250045297898e-23, -3.87821605888741e-253, 4.68347013521032e-118,  -1.40945888883185e+187, 3.89915933185765e-304, -1.70649086761879e+159,  2.29506057913286e-68, 5.13805576369016e-200, -246875330968.698,  2.47363354532701e-191, -2.76035053352124e+188, -8.09193920859053e-231,  6.42385855625933e+234, 3.83891346865993e-58, 6.71168702999005e-308,  6.77249569090606e+94, -2.1265779168616e-114, 2.23619325991866e+179,  7.06238452671284e-15, 2.3490742970228e+302, -1708810460439472384,  2.78158903279477e+86, 0), N = 1986343766L, r = c(2.2035088046443e+252,  3.64886030945276e-85, NA, 5.9073626379621e+298, -4.6816270919392e-250,  -2.30641763509105e+245, 2.95576057623381e+249, 6.97514951777289e-230,  5.07966158372672e+230, -5.10065292383466e+84, -465287102826091,  -2.05601205831688e-38, NaN, -66195009063.0276, -6.1635234961387e+66,  6.27497879831266e-09, 9.11532746038234e-47, -4.12099203183481e-17,  5.65929009369417e+225, NaN, -221840826.035922, -7.58949863306347e-124,  -7.57033017704103e-18, -1.7200018172165e+150, -1.78210966470438e+29,  1.50276600873398e+250, 1.60603804261225e-205, -2.35620067711469e-205,  -2.09253410048523e+306, -3.3942575444471e-85, -4.67797609850695e-103,  1.46397852628419e+305, 5.50680971329122e+97, 4.83853873703583e-96,  -2.41241607866894e-199, 2.38283694927382e-208, -2.4546024236714e-212,  2.3374652119473e+64, -8.63787506118105e+156, 8.68963857198439e-180,  -8.10670811616169e-234, 9.16590708356918e+218, 3.83244780688966e-289,  NaN, -7.95995529921772e+46, 0))
result <- do.call(NAM:::gs,testlist)
str(result)