testlist <- list(M1 = structure(c(1.05414702709612e-68, 1.86446765666332e-211, 449058805123160512, 2.72550962279315e-214, 6.53679281395345e-70, 2.42643425911725e+241, 1.65686753146763e+24), .Dim = c(1L, 7L )), M2 = structure(c(2.26826065394075e-294, 1.69214887635963e-72, 2.19647580872514e-56, 1.54154212574147e-261, 1.75552992521395e+70, 2.86555489089896e+90, 4.82067410803116e+210, 7.6301488414695e-75, 2.94576051165654e+186, 3.05508620742933e-115, 2.21844362553763e-63, 2.44674583935188e+228, 2.44527575082657e-89, 7.36896789779786e-209, 1.6633654797488e+72, 1.45745619825011e-84, 8.53546114526541e+161, 3.09937765454676e-158, 3.95465385030692e-169, 1.51562050952451e-167, 2.14755111587525e-74, 3.05571876439121e-170, 1.51007261204457e+259, 1.05369956531537e+280, 1.73775029250148e-47, 1.66721044640579e+131, 1.26728528595525e+79, 3.84739392816999e-178), .Dim = c(4L, 7L ))) result <- do.call(Opt5PL:::Multiple,testlist) str(result)