testlist <- list(n_triplet = 1908784912L, nsites = -1570452740L, phi = c(-5.89853238011395e+273,  Inf, NA, 4.86282119613737e-25, -30008328897358610432, 3.15064672990106e-201,  -3.42018893313329e-56, -2.53310790429508e+154, -3.3107850390328e-89,  -9.68502209969902e+254, 2.30065096441958e-07, -3.31786935152071e-301,  -2.2756704161134e-257, -1.40039420595034e+238, 1.79266080168754e-64,  9.11933124529875e+28, 8.17027614215716e+99, 5.7010310133608e+178,  NA, -2.77650091427492e+246, -9.15223443765247e+260, -9.28331246005239e-153,  1.46997497445088e-148, -1.67276957334301e+57, 2.15554344513316e+234,  7.44374712639853e+299, 6.62863853140071e+36, -1.37009102226436e+292,  2.10216292997856e+207, 0), rho = -6.52491697370363e+304, theta = c(5.65003554767353e+62,  Inf, 1.0716681964559e+260, -4.14667429769276e-38, 1.65556684601246e-215,  8.99726679498334e-130, 1.13022887343331e-69, 9.20451934243219e-128,  2.10473283792589e+21, 3.99594822728167e+259, -1.74163828713833e-151,  1.52602036266968e+143, 5.05692062514984e-275, 7.18560108910245e-185,  1.30192058242381e+109, -9.55749921099641e-260, 6.70496052518883e+268,  -1.10684897433243e-123, -1.37626582991642e-122, 3.76994122063292e+134,  16950903933585.2, -1.31526689390074e-265, -9.99536459852681e+306,  2.44255590280985e-172, -Inf, 3.35681604505328e+196, -2.69234825794437e+289,  -3.48484732674987e+183, -6.14669151792873e+35, -1.46169933139212e-138,  -8.54815356147696e+49, 1.052063934806e-168, 2.40286475497077e+194,  2.84309794968149e+22, -1.34512037511404e-111, -2.69386340219187e-276,  -1.97202248170858e-283, -7.50663167139188e+201, 2.93963771485477e+212,  4.86491796537277e+55, 4.18246664786862e+250, -2.02800443986122e-10,  1.46413242719868e+270, 1.13643442482476e-38, 6.26941431069362e-69,  -2.79829058804516e+268, -1.56293550103892e+296, 3.37520384153442e+27,  3.70120371126216e+273, 1.63562132338096e-155, -9.1530093095546e-199,  4.64696482920271e+156, -1.86745771506057e-210, -1.69746144080546e-30,  -9.26831411008353e-29, -9.14920551729699e+22, -1.3022696793955e+113,  -3.50096651675021e-157, 7.68840604641004e+82, -2.1519134008327e+125,  -3.1350669960811e-207, -3.65828868799889e+99, 1.41493038717477e+195,  9.35819008349524e+181, -Inf, 7.89805629861268e+90, -3.45834728865089e+150,  -5.75159493492026e-271, 1.71567765909589e+105, -3.06936062137984e+287,  -6.88859354414442e+286, -2.62955823421196e-291, -1.79502072819344e-33,  -2.83182343117231, -Inf, 2.95111984068975e-259, -3.50518256317049e-203,  9.87376335049952e+80, 1.61916905177701e-252, 0), Wtriplet = structure(c(1.46642960985984e+96,  2.78238990130135e+267, 1.34379503522911e-34, 8.0496772665444e-23,  2.53505841000564e-117, 1.22489489223889e+45, 4.70664642234297e+275,  1.90097343756059e+286, 9.38098128742232e+229), .Dim = c(9L, 1L )), Wtripletsum = c(-Inf, -4.07571379946943e+187, 9.20658470546929e-10,  -6.29492743468256e+40, -9.31543872143116e-210, -3.32446508459111e+133,  2.3258121480444e-233, -6.14791394700619e-56, Inf, 1.21787535457347e-125,  -4.63057270770543e+171, -3.25304692562561e+33, Inf, 1.19880011877535e-39,  2.859911470035e-90, -2.79626669866767e+71, -1.78061411303142e+213,  -1.57430368692021e+260, -2.98830750868474e-214, NaN, -4.29320574470219e-08,  1.59424494764126e+153, -7.28645162047969e-214, -1.46822145259675e+184,  7.39331065177841e+208, -Inf, 5.25968509532699e-12, 6.14673534338187e+259,  0))
result <- do.call(CARBayes:::quadform,testlist)
str(result)