testlist <- list(KRGCL = -8.78956641950907e-19, KROGCG = -5.45681116542308e+122,      NG = -1.60883580103303e+106, NOG = -1.06589925427276e-42,      NP = 1059985409L, SGCON = -1.51131311286776e+246, SGCRIT = -1.29361606289407e-46,      SOIRG = -3.5062695785668e+78, SORG = -5.83697583858913e-05,      SWCON = -1.5206226077882e+140)
result <- do.call(Rrelperm:::kr2p_gl_cpp,testlist)
str(result)