testlist <- list(blk = c(-9.42479322868495e-139, -2.77880834313929e+218,  -2.36203134257835e-109, 1.45149655469103e-51, 2.28216284227782e+209,  8.82377133141316e+78, -4.23622850344875e-216, 752551560228.574,  32.8480477357901, 0.0273134900865026, 6.53337849169343e+86, -1.41326940822168e-285,  8.43309075166444e+303, 2.6305878853304e+250, 4.45091837857516e+102,  -4.84176888258619e+169, -8.83361792258959e-43, 3.06061747514633e+137,  7.26657465234565e+159, 2.46941730175599e-155, -1.10394974878945e-214,  1.11903595215922e+28, -1.25162578864962e+173, -2.07025600526726e+48,  NA, 1.29928754190194e-296, -7.61409343551287e+238, 1.11140487837846e-76,  -4.06595675179469e+121, 6.14435136975689e+258, -1.39305578317756e+115,  NaN, 2.15635714927475e+28, -2.23363957380906e-170, 1.30639432708205e+208,  -1.49931372640431e+136, -2.16152624512117e-68, 9.58808012524132e-147,  3.48281911311636e+218, -2.72287343191417e-12, -3.76114124426251e-251,  -9.09668163292374e+291, 1.51957570968137e+290, Inf, -3.48625481190644e-113,  -6.65021626462029e-189, -1.23760175655554e+119, -5.97373429107074e-272,  -4.73757349050144e+254, 3.32716994918954e-139, -1.62313915715165e-259,  4.06933520761332e-271, -1.11063791222347e+64, 7.62115480602828e-75,  -9.46721467185711e-185, -9.50531319104704e+60, -2.36574709877486e-114,  5.15250632284284e+213, -2.53548599141654e-97, 1.31935230466731e+226,  -7.05809596577169e-169, 2.99410983430624e-112, -2.02278848208876e-110,  -1.3042602755397e+72, 3.67387261951318e-27, 5.66357514998748e-178,  -6.19770299348907e+265, 1.19639464299215e-235, -9.12745149403451e+65,  1.78014553709723e+86, 7.55556527887261e+83, 2.19269884269335e+117,  1.17256730328089e-272, -5.85339348640067e-133, -7.26217715562477e+185,  2.12257943350137e-103, -Inf, -7.78981864892437e-283, -9.02319968697613e+174,  1.44271180606491e+215, -Inf, -5.18944242822972e+123, 0), cN = 2.00083656807416e+258,      col = c(2.83705318082755e-168, -3.74074371204008e+126, 1.1727628969681e-121,      4.27090998741248e-250, 1.13459540055622e+86, -8.78355880484277e-278,      511120024.64334, 2.24613040611104e-206, -Inf, -1.73106394187413e-81,      -1.80178551735879e+276, -1.05298873279163e+262, NaN, -4.88140482889244e-211,      8.08365759623683e+272, -2.08179477550806e+114, 3.58088182056612e-12,      -2.47460499011964e+82, 2.30665398682254e+244, -2.44932285525777e-189,      4.80131433298859e-145, -1.09208376312016e-307, 8.80891910004997e+232,      -2.51947649378149e-213, 2.57198178072734e-167, -3.88572194578948e+127,      0.00390600784666965, -8.10852705428849e+155, -8.80651724284188e+215,      8.12252520024622e+61, -2.09943412138504e+227, NA, 133.465021570115,      -1.20761997486179e+165, -9.21241621115341e-28, 1.86427434783251e-190,      2.16859280272584e-216, -199822857367897248, -7.00876878283612e-113,      2.25787724610965e+278, 5.57097263170885e+111, -1.00529515974947e+289,      0), rN = 4.26154236835835e-299, row = c(Inf, Inf, 3.32271496684439e-247,      -Inf, 4.8592907699178e-256, -5.10474086579319e-157, 4.75620281245605e-266,      0))
result <- do.call(NAM:::SPM,testlist)
str(result)