testlist <- list(eps = -3.91125844553682e+269, k = 1.04220407782623e+51,      mat = structure(c(1.02355335071202e-175, 3.15695767417962e-47,      6.79754965255748e-187, 6.16301514479473e-265, 5.98970087981799e+66,      1.1051788939038e-73, 1.1675107726352e+178), .Dim = c(7L,      1L)), N = -140469226L, w0 = 7.12509832101958e-206)
result <- do.call(abcADM:::use_CANL,testlist)
str(result)