testlist <- list(gamma = 4.33898108723878e-234, lambda = 4.50663906728526e+263,      response = c(-3.10997619669227e+174, 2.68366358032973e+173,      5.15195773836667e-297, -9.98955817860994e-306, -15813060.3125093,      2.62422363199186e+164, 7.72212087023076e+230, 6.94358129422499e-131,      3.6246747289559e+162, -2.70278760263864e+149, 5.1412334143614e-241,      4.84286343504886e+234, -1.11423674122116e-160, 0.000107391576692519,      1.33842905674072e-283, 2.72234064527406e+68, -4.64205608080478e-166,      2.81838805941482e-90, 5.28580625866325e-204, 3.72523379378187e-306,      Inf, 2.85328739922986e-224, -6.252498318038e-263, NaN, 2.30304914252814e-45,      -1.96823084222614e+170, 3.36869230592869e+100, 1.69642778221737e-05,      NaN, -1.4713658749351e-208, -5.19202704423807e+270, 5.71162804532999e+285,      -6.49341257119801e-95, -2.25816401880415e-57, -4.50789090762003e+160,      -5.929875658582e-235, -1.02501759395824e+148, 5.15195773836667e-297,      -4.95747144672084e-192, -8.69218299797688e+204, 5.11348879704569e+87,      -3.91573170902646e+175, -7.03152761844427e-298, -4.88838460346896e-45,      -5.21117814657566e+300, 122095113435215, 1.75256263089425e-244,      3.3575758931684e+86, -1.33323081120411e-17, 9.43105188045337e-261,      -1.20417288376912e+59, -1.07864445635295e+207, -8.60539838493147e+127,      1.6192991288469e+184, 3.63071840791214e-120, -0.00313329417076933,      0), weight = c(-6.45693453935003e-172, 2.72290364868967e-256,      -1.26957421636344e-92, Inf, -3.65803203272529e+248, -5.95564310836751e-46,      1.14838128329549e+157, 1.62871088774944e+222, -7.20123318785917e+223,      1.30151060115348e+77, 4.08812298515408e+163, -7.5324999901496e+230,      1.2255764813417e-280, -2.40757700887417e-06, 1.63462840555053e-43,      -9.1577828539383e+276, 2.11586913114236e-116, 9.38134416442235e+206,      -1.13088568336565e-124, 4.25652755407588e-110, -1.63876627833511e-76,      Inf, 5.14315258492333e+81, 1.04197300486636e-240, 5.79744067983513e+30,      -1.77021559109993e+105, -1.95534985565611e-293, 3.32646684753535e+167,      2.22865956354546e-62, 3.99809370946795e+78, 7.05372502174313e+91,      -60808.2045876794, -5.18201023944126e+42, 2.4899793182544e-214,      1.84233747584812e-205, -1.59548059958246e-179, -3.02547548968509e+94,      1.25635487843838e-294, 2.07127531581826e-190, 5.41738154840269e-31,      NaN, -5.95517132147917e-205, 3.1825695636902e-171, 4.58395047619845e-228,      -2.69358746806744e-204, -8.8272381369111e+227, -1.13458888838333e-79,      7.18719140803302e-129, 3.95094967307021e+296, -1.04842749954331e-296,      2.11573272242714e+122, 1.53904483064049e-179, -1.61057575294615e+50,      -4.74294978593362e-73, -2.52740931840868e-295, 4.34463588567088e-69,      3.46145241642054e+289, -9.21485914778244e+137, Inf, 2.81608422709759e-145,      8.03983729061744e+104, 0))
result <- do.call(CatReg:::DoBlock,testlist)
str(result)