testlist <- list(X = structure(c(1.71989700163021e-51, 4.07917496173353e+165,  11.4126620730419, 5.71161975194342e+62, 392547523747806, 4.49652815404873e+83,  8.29783096275115e+300, 1.44694460535527e-22, 5.24923537909702e+272,  4599873890604020224, 1.51667032522555e-225, 6.61248672625989e-257,  2.62736251134913e-264, 8.62422196953177e-89, 1.01362548601491e+74,  2.14828588283137e+78, 1.56355569872783e-81, 1.87144928514855e+289,  4.33713900917097e-104, 8.95061606531969e-07, 1.86530911350654e+250,  1.02817515733494e-81, 1.83373691827773e-104, 9.93170256377077e-171,  1088.07751695644, 8.8807736008108e+282, 5.10577627940228e-14,  9.71140106453329e-241, 7.70718615662346e-71, 1.4974142352784e+196,  1.44529238258315e+91, 4.09428352962162e+146, 8.78820712548496e+143,  1.60645519355506e-158, 2.54096333611907e-21, 2.36295222737535e+123,  1.93464690535798e-43, 0.00892625105931129, 1.30327416034052e+122,  4.33867249973442e+27), .Dim = c(10L, 4L)))
result <- do.call(MM4LMM:::chol_inverse,testlist)
str(result)