testlist <- list(KROCW = -1.54494175226188e-259, KRWIRO = -4.44684151102297e+188,      NOW = 4.6582780980767e+61, NP = 1820483398L, NW = -1.06004590587294e-293,      SOIRW = 2.83976588052874e-158, SORW = 2.35830448618636e-237,      SWCON = 7.71994269629485e-281, SWCRIT = -2.61986772687738e+97)
result <- do.call(Rrelperm:::kr2p_ow_cpp,testlist)
str(result)