testlist <- list(A = structure(c(2.47457453640069e-138, 9.70840770756396e-178,  7.62766382412581e+267, 5.79760158790049e-192, 4.60127012673239e-199,  6.0899024183317e-117, 1.02811449025161e+123, 3.12663997258697e-15,  2.60118235966695e-85, 7.05702450468995e-274, 8.02297893148237e-209,  7.9723160509734e-215, 8.86096187459737e-169, 5.36158168580325e+197,  1.3189101296583e-162, 9.16742051292329e-142, 7.93886186856206e+169,  4.79135570350152e+213, 5.96404095873814e+244, 9.9445248006459e+39,  6.22049753084687e-243, 5.80013534916996e+287, 4.43492111836902e-276,  2.75038825223438e-30, 4.3734276819566e+232, 4.97393450542263e+108,  9.33891169264473e-306, 3.23240776901735e+203, 4.58794172280297e+21,  3.93607362773483e+164, 1.09049414311397e-174, 6.3790256009756e-297,  4.4211730344036e+133, 3.4291902495862e-152, 9.89178134067078e-143,  9.235758210794e-209, 9.76875250373537e-210, 5.03644821424345e+94,  3.29464226477449e+301, 2.97750026704486e-55, 2.03767779737483e+208,  1.91932939493721e-78, 9.28378285199949e+86, 6.45793438661778e-300,  1.41197592938629e+157, 5.34262777244968e-194, 7.07265227160737e+202,  7.11620014784246e-269, 2.61545201165037e-77, 7.10792999336742e-109,  1.4507560423406e+94, 1.33018336570898e-300, 4.96486327244271e-181,  1.52695685668387e+135, 2.17663279378812e+130, 1739.05144289653,  3.31524736385477e-245, 3.37467803837319e+78, 6.36138292535885e-254,  1.55027417744446e-152, 9.46223765212235e-76, 2.94732132649956e+82,  4.98768573104708e-55, 3.07223637096594e+259, 1.95284310151697e+34,  1.13579003565942e+124, 1.86374675380856e+125, 8.53418567289297e-287,  4.79280703102236e+307, 4.01077346467174e+155, 5.43739811850365e+221,  3.31558925283381e-264), .Dim = 9:8), B = structure(c(8.75542722721563e+198,  2.5184636911871e+186, 3.02054257295848e-297, 3.05082243815941e-73,  7.39577783109415e+138, 9.62594513375945e-44, 3.22940153925286e+58,  1.53685778970521e+149, 1.10338948954114e-119, 3.57857186540177e-307,  3.56177809105314e+144, 1.39641933895804e+83), .Dim = c(2L, 6L )))
result <- do.call(hetGP:::trace_sym,testlist)
str(result)