testlist <- list(kt = -9.9721142184115e+236, X1 = structure(c(6.15512826360269e+45, 1.96603165428328e-194, 2.03258776856383e-139, 2.15253036399541e-145, 7.06112674255684e+173, 1.11139110232991e-26, 5.8177232129469e+279, 3.25556325397772e+159, 5.74290863923865e+228, 7.73046443020883e+130, 2.13540868082174e+244, 9.69652200192389e+206, 2.0093755699996e-141, 3.61753875027469e-69, 6.41486159791256e-152, 2.28822821739125e+205, 2.86418007875148e+305, 1.19219108853341e+111, 3.22861109469516e+152, 5.75250044511134e-267, 8.3896061427917e+264, 2.14736650417362e+78, 9.59114882462771e-25, 5.45200831156833e-180, 5.56914614178136e-120, 6.30650701263238e-193, 2.69064754104071e+256, 1.52506656646105e-297, 3.60047435453209e-34, 2.79306827447668e+76, 5.80251223492755e-282, 1.12656911313659e-262, 1.46978505953743e-154, 1.51038400514963e-114, 4.74976667192413e+113, 6.02647510865596e-151, 1.04064313453822e+282, 2.65119702633228e-230, 2.61170431876561e+175, 1.35254608364803e+31, 2.34019607309175e-111, 1.31080069527582e+61, 3.76736144238092e-210, 8.91495543212006e-253, 2.16406916980191e+242, 2.13755874272803e-194, 4.94614731074145e+264, 6.31831916032167e+307, 1.80948113014325e-308, 2.49518912569192e+287, 1.72756664763927e-91, 3.15582588266062e-242, 7.07056662345491e-63, 1.03594787734516e+299, 3254410.13701737, 10.6929651703506, 8.91940596136786e+47, 1.32528681946624e-24, 1.51218350300724e+250, 4.73483405421849e+259, 6.35664305100112e+198, 8.36170466667818e+292, 3.37828707091737e-109, 7.97561439346789e-212, 1050158796140.39, 3.4791734351806e+218, 1.82621821984268e+165, 2.69607476367254e+236, 1.11345926153547e+79, 1.73120058099562e-184, 7.3495842015471e+125, 1.42399457811129e+20), .Dim = 8:9), X2 = structure(c(1.43868245904442e+284, 3.01615379420547e-77, 1.0628866776976e-181, 6.82462684450069e+38, 9.59884234538108e+247, 1.78675390336447e-303, 9.11627738401197e-06, 1.01427483563131e+254, 1.91027354746475e-53, 4.4875297708485e-228, 2.42931311512532e-15, 1.64467715704667e+26, 2.59672071429194e+293, 5.54288068943843e-252, 2.41829624386514e+186, 4.3530963200685e+66, 1.1774101241152e+124, 1.77529106249196e-143, 2.92559735568046e-130, 1.68920987344902e+294, 0.00141340560052049, 1.28331033735759e+217, 1.12724749517606, 4.23874373516202e+205, 4.1699494423983e-277, 131804498483149, 7.7216297095439e-198, 2.2879544730914e+151, 2.29901418193811e+63, 2.85406598091466e+64, 8.59558191332212e+189, 2.0851550561682e+285, 1.14863649593601e+227, 1.01424337313066e-307, 4.54365889229152e-262, 9.872515132383e-308, 4191943925.47005, 1.59524583788385e+293, 1.78267698895963e+250, 12466223801320812, 2.11359559793087e+162, 1.8334069103709e-232, 8.74349528427444e+163, 1.25199955843336e-183, 2.11595192946608e-36, 6.38787798682253e-94, 9.99351403892896e+101, 1.71356538415659e+101, 3.56135322725124e+90, 5.19394456150569e-213, 4.1169819625222e-246, 3.5793396768488e-99, 1.64277329862922e+119, 5.79108399569478e+91), .Dim = c(9L, 6L ))) result <- do.call(hetGP:::d_matern3_2_2args_kthetag,testlist) str(result)