testlist <- list(Dm = structure(c(4.32344537085934e+233, 1.80353643720024e-248,  2.35930973870179e-20, 4.32658254303342e+157, 4.86375382879013e+241,  3.48850479113806e+193, 1.33854485015944e-219, 1.29963334515379e-306,  6.17811737621876e-108, 2.24059714880965e+179, 3.42445082288757e+296,  1.89343279483619e-169), .Dim = 3:4), parm = c(6.03402479970776e-180,  NaN, -3.3579581497432e-64, -2.73413740246912e-24, -8.37009810561113e-41,  8.45873977867729e-228, 5.50009254790609e+113, -Inf, 2.89246207258644e-283,  -6.19904523460857e+88, -1.00614738344845e-280, -1.25058179689847e-166,  1.80175388607665e-278, -7.67724640176058e-204, -4.51269467606775e+203,  3.52203678692948e-127, -6.84208309104963e-223, -31655.3765459399,  -62211092.4311984, -1.1772143790258e+299, 7.05207002388853e+145,  -2.15516664673991e-167, -3.36022045379282e+271, Inf, -3.11691804449609e-223,  -2.25436607604325e+267, -4.9478129203171e+157, -6.81638047187016e-70,  4.88887202693409e+209, 1.93466113761193e+118, -5.37425773430956e+61,  -2.08391221224616e+281, 4.03368860738362e-84, -2.50952846921229e+233,  3.10701129756338e+187, 4.78318162189539e+142, -5.47265986749496e-19,  5.01385124616347e+36, -2.02528419506153e-187, 7.70162848148079e+144,  -1.37467966099806e+95, -Inf, -5.97568213274936e-131, -2.41538418311031e+286,  -2.7564388794305e-282, 1.56326857952463e+29, -1.34083251955051e-99,  -6.70690380885769e+160, -4.9030632085363e+267, -1.47044456707529e-245,  -2.89085236062312e-103, 3.46679592758364e-47, -8.44748950373226e-13,  -3.60596051795971e-233, 1.35356240280627e-163, 3.28474767903583e-250,  4.11733919553852e-62, -8.19479109741927e-08, -3.36052721189333e-83,  -2.07670102280874e+48, 1.39347673931607e+286, -5.63365552895506e-124,  4.32186283181981e+80, 0), TXmat = structure(c(1.36511174957355e-305,  9.01367705341132e-232, 2.97153244630952e+163, 1.01544492928425e+220,  3.49957959107823e-139, 2.73861529325673e+124, 3.22987120358184e+99,  7.7729945512032e-198, 9.58967330602252e-134, 3.36177592751197e+229,  9.01722252350522e+306, 4.20298970989613e-225, 1.61673386188468e-226,  0.00152382388816629), .Dim = c(7L, 2L)))
result <- do.call(icensmis:::gradlikTA,testlist)
str(result)