testlist <- list(KRGCL = 2.71834391486473e+79, KROCW = -5.5238123954975e+60,      KRWIRO = 5.94573177080397e+51, NG = -1.33198000544142e+32,      NOG = 2.52765304619743e-281, NOW = -2.00168677057891e+114,      NP = -139076671L, NW = 4.27272560293026e-151, SGCON = 28359933502128226304,      SGCRIT = -1.29702596949219e+156, SOIRG = 1.6803017944816e+292,      SOIRW = 4.09001985010331e+175, SORG = -8.89237976843088e-112,      SORW = -1.65873555269281e-154, SWCON = 5.6915342534828e+61,      SWCRIT = -1.71846744783421e-241)
result <- do.call(Rrelperm:::kr3p_StoneI_So_cpp,testlist)
str(result)