testlist <- list(Dmat = structure(c(1.71768165611109e-29, 4.08675206485684e-196,  2.68266743939134e-58, 1.25864511246829e-29, 1.41462859557873e+230,  3284303787098282, 3.2692864168214e-169, 2.66414948072653e+172,  4.188369084915e-16, 1.00012345637238e-258, 1.90359561764965e+47,  1.66146942272165e-164, 2.0753297863841e+246, 5.57907386721945e+189,  7.25323610704623e-48, 1.04428844877461e+135, 2.54596991691237e+107,  7.35521766981128e-124, 7.35524715459931e+307, 3.72508918281778e+22,  9.53759603544038e-290, 9.8829178047535e-271, 2.58515034521178e-59,  1.40970472205109e+254, 8.59747046703382e+102, 8.88568792724175e+206,  1.12144663744667e+300, 9.03002289510193e-237, 9.62786374615718e+27,  2.39266014808524e+185, 1.73337549185744e-115, 1.83824612423458e-237,  3.26146897094202e-116, 3.68523125923554e+23, 8.63631443292873e+304,  1.30294368032319e+277, 2.10735367737665e+263, 2.95088646857093e+27,  4.86039307311251e-05, 1.1221910466523e+295, 6.99311749874584e+112,  2.87404374358441e-143, 1.1131411694255e-111, 3.2043277010316e+91,  1.083471522564e+203), .Dim = c(5L, 9L)), parm = c(-1.90366937914898e-134,  NaN, 1.46443668621448e+115, -1.44762590136373e+181, -4.006476286997e-103,  -1.01385938726681e-103, 5.354565167381e+229, -1.06058256414885e-195,  2.97602770831806e+202, NA, -2.91565798191573e-162, -3.77912210896227e-51,  3.59383275451564e-93, -2.38476219912887e-225, -1.13528246407045e-164,  3.30566031274217e+71, -2.42328477857779e+128, 4.27974346010477e-131,  -1.4608691849024e-55, -123.011234515133, -1.4608691849024e-55,  -1.5304355794613e-120, 9.91864960156695e-120, 1.67355411048499e+298,  -1.0981528951064e+272, -2.06371761352153e+41, -3.69388068688204e+93,  -93282.6547666361, -9.57592816046359e+286, -7.78614470230495e+42,  -1.4608691849024e-55, -8.97198889894444e+225, -9.44379195199703e+263,  1.18862680464864e-185, -6.57532731995989e+76, Inf, 1.8497248696803e+284,  -3.79108660321154e-152, 0), Xmat = structure(c(1.33810518397546e+156,  4.14469708105132e-05, 3.76621036510002e-92, 1.99727976671286e-133,  3.08667816780729e+211, 3.1573911417944e-239, 6.71404273285565e+62,  7.84330420096305e-84, 780262931246.515, 2.68655229558078e-73,  2.62804874035775e-48, 3.30820198725949e-35, 1.09182626212653e+78,  2.51576519409432e-62, 9.02299345157857e+60, 2.41945487031703e+270,  6.06817905017556e-164, 7.76818769790786e-140, 6.19286219333712e-251,  2.21654972401504e+267, 4.49888177258703e-149), .Dim = c(7L, 3L )))
result <- do.call(icRSF:::bsplitC,testlist)
str(result)