testlist <- list(i1 = -959186696L, i2 = 94118594L, X1 = structure(c(1.15314383443613e+179,  4.32835848072972e+281, 3.46110615156134e-61, 2.85175822889394e+66,  3.80723880804946e+199, 7.40792713756715e+112, 2.28055026141845e+152,  1.83551644015758e-68, 1.10599560646147e-257, 4.43485011760266e-109,  1.79330657401767e+99, 8.03594327355063e-236, 1.62609694406248e+128,  1.04329906723355e+58, 1.76786585030032e-190, 3.09954497476518e+151,  3.27045225444521e+71, 1.47249524484353e-226, 4.73089369208327e+197,  5.51060179969392e-184, 3362675615456020480, 1.00354712298013e-284,  7.41311988102667e-143, 7.94032120599936e-14, 1.19929252915321e+286,  1.30620183387334e-140, 0.0193000205221365, 1.13676122891714e+182,  3.50506719782964e+172, 1.36668966847769e-48, 1.83070832839065e-84,  2.61879775336674e+108, 1.40828607777996e+283, 4.82135114420326e-118,  2.44097967362307e-41, 1.52935290733503e+24, 1.54368742186068e-86,  1.59753601989145e+280, 7.90084737257919e+62, 1.09414598894264e+113,  1.00057500166818e+22, 3.32941734878409e+40, 1.98477003396336e+229,  4.1196922639193e+155, 2.27449201023886e+227, 1.53827969739316e+117,  1.37999047290289e-103, 1.20227370581092e+280, 1.57629934768389e-148,  2.65013016248952e-179, 1.52467202928501e-87, 1.50359056155453e-116,  2.47312572376706e+116, 2.66277879044868e+58, 3.52695656087671e+141,  3.7509701183751e-225, 4.24758706131215e-137, 1.10090590191939e-280,  5.17047480866922e-164, 1.78865156625141e+265, 8.06111060114588e+181,  1.08826141060656e-215, 1.40006913743627e+240, 4.16452036336936e-180,  5.55602723441801e+57, 8.31556309396874e-259, 4.52576477777417e-94,  7.54452315723595e+215, 6.94974492715894e-220, 4.24163850378148e-168,  3.95061660685229e-302, 1.55553758462358e+95, 3.78938499437457e+245,  1.42285805615692e-235, 9.73350152678869e-273, 4.06747854053657e-88,  1.71083390675408e+120, 2.88997790861647e-133, 62541571511665616,  5.55503846152595e-302, 5.084226679447e-189), .Dim = c(9L, 9L)))
result <- do.call(hetGP:::partial_d_dist_dX_i1_i2,testlist)
str(result)