testlist <- list(nsites = 510140324L, offset = c(NA, NaN), sigma2 = -5.46902559379194e-289,      theta_tune = 5.2835978267655e+206, theta = c(2.81516568979166e-25,      NA, -3.80807483257427e-259, -0.239309273957243, -8.69945461501171e+163,      4.88254081469951e-250, Inf, 1.00635417590262e+74, 1.07907554459084e+285,      4.11729344867056e-138, 9.51531302011084e-183, -245353.342605234,      3.36042515058988e-102, 2.86483336537426e+126, 2.92894326694771e+279,      3.29637140923364e-164, -2.31187398968407e-45, -Inf, Inf,      -4.24055092905191e-83, 1.79387268046837e+137, 4.42049246972451e-78,      1.45520617126928e-160, 0), y = c(1.30175473456187e+208, 7.65491376924908e+287,      -3.83714205940773e-107, 3.68595871676082e+78, 8.41013406942274e+256,      -7.69629419176308e-70, 1.6120716153672e+131, Inf, 8.49325765946394e+118,      6.56176493715041e+245, 1.69943095862164e-14, 3.24129659641011e-267,      2.81859104690092e-285, -1.42685994445218e+221, 9.23156061591588e-256,      -2.55592294946211e-302, 6.30927389682722e+109, -0.00300182491437852,      -2.42721937923066e-162, -1.49964139326073e-263, 2.29260486092015e+185,      2.62473509196409e-130, -5.24726915620945e+32, -7.22801102403418e-205,      Inf, NaN, -4.54755979271426e-119, 4.98989939618783e+175,      4.1175396631571e+171, 9.83324112878352e+70, -2.54812178220835e-129,      4.55886699287778e-132, -1.06186648591712e-84, 7.45554616554203e+265,      -3.76720713022413e-255, 4.83752399267174e+233, 3.62318011516595e-301,      -1.23276122020565e-250, 3.44738597957752e+23, 35245418162501.7,      2.08910952683041e+40, 5.41936402465595e-190, -7.26415500119267e+151,      2.81549809754156e+285, 1.33199430615877e-169, -4.53528209910307e+151,      -3.04283227489472e+74, -0.000114225062759115, 3.46894850816115e-56,      -4.48149471349728e-76, 7.68674172846919e+238, 1.15109155030867e+301,      -7.38983727008423e-110, 1.45735166123214e+292, NaN, 3.64537138376672e+167,      2.30747137353514e+232, 2.17982362864984e+100, -4.72165305663617e-45,      514375260.937547, 6.92110885581441e+242, 1.19151673719903e+131,      2.48962468982151e-203, 0))
result <- do.call(CARBayes:::poissonindepupdateMALA,testlist)
str(result)