testlist <- list(Dx = structure(c(4.90830643079372e-119, 4.9408198817007e-231,  9.46803936352065e-34, 8.35472913598678e-42, 4.29993270337524e+179,  1.64910342715269e-121), .Dim = c(6L, 1L)), Dy = structure(c(3.60055067248367e-154,  2.0373391366314e+260, 1.58840727196554e-178, 4.7548814279363e-121,  3.87458186007664e-47, 3.3445102686035e-166, 5.82036967036354e-304,  1.90776964540195e-251, 7.96099871686901e-20, 2.48675898620893e-124,  1.45178896170505e+173, 2.5765445681136e+156, 546368547000243648,  1.17346082205903e-122, 303.883716475132, 1.23308140808567e+58,  3.22678253820984e-93, 5.18665280184314e-151, 1.08958102375144e+32,  8.70608491029069e+257, 4.96181607677667e-163, 7.04335678117202e-296,  1.15739362918341e-53, 2.76780233034752e+26, 4.22475010730822e-101,  2.51058990211039e-57, 4.8078232853544e-163, 1.17963431095295e-102,  17006148.7774701, 1.90799788341259e+154, 1.04585619266909e+223,  1.28924639662906e-294), .Dim = c(4L, 8L)))
result <- do.call(energy:::dcovU_stats,testlist)
str(result)