testlist <- list(af = structure(c(7.78977468933701e+159, 5.68506606287001e+80,  2.19993177182304e-285, 1.71989700163021e-51, 4.07917496173353e+165,  11.4126620730419, 5.71161975194342e+62, 392547523747806, 4.49652815404873e+83,  8.29783096275115e+300, 1.44694460535527e-22, 5.24923537909702e+272,  4599873890604020224, 1.51667032522555e-225, 6.61248672625989e-257,  2.62736251134913e-264, 8.62422196953177e-89, 1.01362548601491e+74 ), .Dim = c(2L, 9L)), hsum = c(1452738095L, 1618366851L, 1679204877L,  1586657384L, -2073912510L, 2030347660L, 720227797L, 1790569921L,  1375006897L, 1782658255L, 1473698998L), indtyp = c(2.12400470318687e-163,  -9.51322527977542e-197, 3.19247409491708e-184, 1.49438959299443e+214,  -7261.58833629619, 1.80254340298381e+45, -1.19984617346502e-167,  -1.25432748665957e+73, -2.85375313625005e-285, -4.96181582679852e+212,  NA, -3.48461004441606e-264, -2.09114629438106e-209, 2.70314661994904e+165,  -4.35122767000865e-245, -4.7888039998992e-91, -6.156071458036e-134,  1.58392495589908e+299, 1.75992208404568e-188, 2.92513266167968e-276,  6.55275385389841e-240, NA, 3.22331413379946e-237, 6.20751978617475,  8.2741183176495e+256, 1.04413468899705e-152, 1.74060816995693e+94,  NA, 8.21606235820788e-152, 2.27704808300536e+266, 1.32765433246678e-258,  -6.5879078243921e-221, 0))
result <- do.call(diveRsity:::glbWCcpp,testlist)
str(result)