testlist <- list(Dm = structure(c(5.61262990509006e-29, 1.2617446902182e+191, 1.38338509162234e-213, 7.27838576693675e-217, 2.2266593112146e-187, 8.06369235090801e-93, 3.39742779088813e+39, 4891637.16030841, 8.84063565600872e-215, 8.60317421484655e+212, 1.32722625148325e+275, 6.08177616201554e-264, 5.64847955112472e+303, 2.36667517083251e-302, 9.5321319423403e+67, 2.84381433644928e+154), .Dim = c(2L, 8L)), parm = c(8.86353457455759e+296, NaN, -29375916.6073142, -9.34731219618432e+38, Inf, 0), Xmat = structure(c(4.65081635037149e-39, 6.66927402764762e-172, 1.74361560694013e-141, 3.16402340757896e-119, 1.28828624834127e-07, 5.40226118464805e-52, 3.082057442659e+214, 7.58641751709305e-233, 1.05534352794948e+288, 8.15500022633933e+265, 6.456733805277e+214, 1.99802687485298e-198, 1.07495750419609e+58, 6.18447824239222e-290, 1.82140173689433e+260, 2.30706513784686e-227, 329.653155569429, 1.70497722005996e-128, 2.17104657195922e+188, 3.43769698148206e-223, 1.02213532656109e+308, 6.70987320076319e+39, 1.51752187515834e+280, 560961944507337344, 1.6316101617316e+66, 5.72492031186141e-251, 5.73658035699224e+295, 1.00186707205452e+181, 2.73288568174875e-137, 1.7963580187415e+204, 2.58713270874913e-297, 2.0468370491946e-11, 2.08127062124996e+123, 2.7476554920728e-191, 3.29995486106017e-210, 0.00343595138127858, 2.59140132535236e+230, 1.25485582265202e+266, 8.16226413022235e-197, 3.62194048091514e-12, 6.74992709790691e+204, 1.44950259276763e+238, 2.71843650681995e+35, 4.70198602725643e-198, 2.647927685699e-48, 5.68339350664699e-123, 7.57546188318437e-20, 1.91006419687108e+47, 1.41818427703571e-206, 2.72921322941529e-143, 7.57936533653965e-251, 3.1028042069739e+147, 2.5060794559276e+200, 1.51927605974376e-64, 1.33291284819809e+116, 9.58197453029823e+103, 11428171721.7038, 6.82393736892501e+165, 1.83589334207823e-209, 2.44923120135814e-110, 1.58233087555514e+188, 5.57904569969994e+248, 1.08230105798547e-89, 2.78352117019068e-48, 1.8194184735313e-295, 3.16659772688587e+283, 7.7612773913235e-263, 6.05680777175143e-276, 5.88982446986776e-135, 1.8436431889038e+205, 2.51697838683085e+168, 3.59178445321058e-272, 5.09452572042349e-259, 4.89401672320371e-78, 3.4872307090453e+153, 1.20233087975842e+132, 1.95170505529047e+134, 4.82772669201898e-82, 2.17099968699123e+194, 1.78458075516303e-237 ), .Dim = c(8L, 10L))) result <- do.call(icensmis:::gradlikB,testlist) str(result)