testlist <- list(amat = structure(c(2.46527484585891e-279, 2.49130284355796e+141,  3.33581568599682e-271, 9801817256220733440, 5.46285483672269e+301,  1.43254525756695e+70, 4.3884539398329e+29, 1.59088224524307e+215,  0.179160281357026, 1.96582747352207e-205, 3.55225144641882e-91,  3.74971753151482e-215, 2.63072407760149e+67, 2.8941540395792e+298,  6.89940774401309e+37, 1.12878351199252e+110, 2.39235281499811e-191,  2.19638385411316e-256, 8.25244711896779e-270, 1.25775878305569e+36,  5.31329190751331e-40, 3.25225955089229e-283, 3.47662122165271e+136,  1.52912360821146e-202, 1.3187805800084e+68, 7.88194006488066e+165,  1.97294714760278e-27, 1.02128587477618e-161, 2.90835546965863e+176,  8.69641013341408e-52, 6.18695359857371e+84, 7.23922866245271e+273,  1.56901763303845e+112, 1.50680299984776e+255, 3.77751603049172e-223 ), .Dim = c(7L, 5L)), n = 1.46924224334766e-209, S = structure(c(4.44489814439309e+21,  3.85863113149111e-168, 4.39870379091824e-147, 0.226144046340746,  1.38144406430965e-92, 6.03809598805819e-24, 1.4157649808992e-26,  1.05869398711707e+70, 6.70627178647569e+165, 1.60694696452669e-295,  1.36867134153646e+268, 1.14518600631515e+262, 6.33216719541506e-78,  6.79563360442282e-165, 4.66106645538214e+71, 2.12158494494417e-276,  6.75084261721346e+301, 2.39017824640956e+156, 6.85272680733777e-153,  6.98574498616533e-127, 6.17595076457362e-306, 5.10357933944e+304,  1.06785781174447e-105, 5.52156508608419e-194, 2.41878468983796e-238,  4.18559564138568e-199, 7.80088633224391e+52, 7.09470817475751e+65,  1.12135587698195e-62, 2.44381336890295e+114, 2.54685459582577e-307,  4.27392565083399e-284, 8.55212777224702e-21, 1.42131482087906e-72,  9.38042265323796e+280, 1.83165011078228e-87, 2.42729588694812e-138,  1.0641464628252e+159, 4.50593220044036e-69, 9.64626900036227e+156,  1.72179749911763e-289, 1.9650964751565e-269, 4.08622458066758e-223,  2.51574726706038e-297, 2.20497460847899e+30, 3.19411808580699e-103,  7.18134466092434e+290, 4.34734763924656e-20, 3.53673559176397e+125,  8.39373448650892e+115, 3.93762597295467e+298, 3.73902616187916e-252,  3.43003030890576e-06, 5.05833794672529e+118, 1.80231890404248e+118,  7.57321615585339e-41, 1.81526871873764e+24, 1.42861951754406e-188,  8.96991028199524e+67, 8.69602035987227e+197, 1.9331445263292e+233,  3.38488761847569e+89, 4.57833845052388e-231, 1.21430376912615e-12,  2.4993039229869e-209, 5.44411799008481e+62, 1.32656533725031e+110,  3.06201826058563e-176, 1.70035518011132e-180, 1.23255053397862e-146 ), .Dim = c(10L, 7L)), tol = 3.14355049342052e-148)
result <- do.call(robFitConGraph:::myfitConGraphC,testlist)
str(result)