testlist <- list(Dx = structure(c(3.94854070007264e-289, 8.73449803052013e-72,  1.7348928754283e+151, 1.25581004362978e+162, 1.26674869213214e-195,  1.37987738035749e+278, 1.88999564764532e-137, 4.74817912497755e+232,  2.86031529980211e+225, 1.86004970430512e+206, 9.71737682237715e-119,  2.05751054603413e-52, 4.94101192978601e+255, 1.45464641965901e+234,  4.64752695605806e+27, 1.20130145917172e-251, 3.99541128325736e-121,  2.95877355401216e-220, 3.46788633995666e+263, 3.11704136124569e+196,  1.93861623775521e+306, 2.33966244514893e+120, 3006806604847218688,  3.82409015807781e+71, 3.83869446775743e-125, 3.28178479902732e-187,  1.7309521342815e+139, 3.0328994140794e-115, 1.58818201103372e-80,  5.97910274789036e+228, 8.73411645328447e+27, 1.69133567740693e-93 ), .Dim = c(8L, 4L)), Dy = structure(c(3.30939621773999e-115,  1.57166679809548e+63, 1.96862596038285e+84, 4.76331565349104e+148,  5.79896079765341e-205, 8.39445601652876e-106, 3.05571369547e-196,  9.89998192834284e+82, 2.38421470516616e-172, 2.1000231808782e-81,  1.17164072675275e-293, 3.09726221553895e+262, 3.01660860472058e+122,  2.97118389172584e+141, 6.08324682928607e-71, 1.40132191699772e+129,  2.97400388078075e-226, 1.11577730484574e+228, 1.11543214710362e+92,  5.79211830075724e+187, 4.95921687915959e+132, 2.33733228222425e-66,  1.67528640230759e+43, 4.59583918996868e-258, 9.08533327775987e-81,  2.49087366155402e-233, 1.49152528712333e+180, 1.84432526316065e+134,  2.03308182794141e-88, 2.85213512869371e-174, 9.08998149717964e-45,  6.56022190850765e+117), .Dim = c(8L, 4L)), Dz = structure(c(1.20589114477765e-33,  1.07736468595711e+172, 1.40325571223039e-114, 1.00409467413998e+250,  1.42091104824708e-77, 4.15219837718688e-212, 2.77473044153299e+130,  3.07310706579052e+35, 1.4982120314016e+88, 7.14873007497116e+286,  8.85096352464975e+124, 5.43605842099165e+218, 2.07259683844859e+282,  4.59181817995075e+291, 1.25067275146652e+52, 5.43887399978308e+167,  3.68074057512926e+98, 2.02640182305629e+177, 1.40989870885481e-16,  1.53282665311253e-68, 2.16243148591916e-173, 9.19357062969589e+244,  7.75645983759812e-218, 6.24337103073623e-160, 1.62126615608333e-116,  1.25655246814682e-277, 7.76878178455556e-46, 2.95808784845223e-243,  3.14820245836951e+198, 2.34238436786592e-188, 3.44690268756537e-118,  9.50150427944477e+278, 6.95267796885695e+264, 1.16420279056003e-94,  2094024.29687892, 6.4269993024285e-126, 2.34246160671183e+53,  3.57240777591207e-43, 1.49534920615131e-94, 1.34640920565702e+38,  2.65050599545169e-179, 7.13975928916482e+104, 2.13489164400134e-271,  1.53778256427314e-275, 3.91234826726057e-78, 916722899555438,  7.74751203397166e+251, 3.97864737948539e-273, 2.69309912472156e+241,  4.4325069060576e+79), .Dim = c(5L, 10L)))
result <- do.call(energy:::partial_dcov,testlist)
str(result)