testlist <- list(freq = -1.30160617474089e-32, interp = -887030556L, seed = 1529700720L,      x = c(-2.22185343706559e+202, -3.27111600211021e-198, -2.33854593113844e+146,      1.27971878083934e+183, -2.28150399357844e-47, 4.92563828060621e-96,      -7.07180912196834e+264, -8.46274288580701e-208, 2.00627673889098e+299,      -1.89445775504709e+244, -7.2729443994999e-190, -5.57938189111671e+49,      2.93461103939732e-267, -1.03221589010836e+215, -1.58071589623654e-98,      -8.68829898780811e-166, 1.59276646801998e+237, 7.77444306476325e+210,      4.03067436611322e-297, 1.43310136560898e-109, 3.70921765293572e+76,      -4.80135706782402e+26, -4.4578637272348e+148, -5.26028007819362e-226,      1.80912542654671e-98, -2.499876600871e-29, 3.15286648879824e-282,      -5.18679651306051e+273, -Inf, 2.58500434706479e+72, -3856268.5697472,      5.21994592554915e-133, 4.39864806815584e+164, -1.48660768352799e+104,      1.04337382049418e+191, -Inf, 0.000377457551274081, 7.90831530248497e+303,      4.62860871133725e+52, 3.67213317640944e+21, 3.48823101341619e-275,      -Inf, -1.46212238599656e+88, -3.07829618121116e-113, 1.6446366448806e-107,      -5.05533578400995e-148, 1.66557467183698e+248, -1.20846698849379e+226,      2.07002379001751e+73, 4.90174899046964e-235, Inf), y = c(1.7181922467783e+171,      -2.30735335413435e-186, -6.25488519096435e-89, -Inf, 5.45802440758291e+185,      4.50888845779018e+52, 1.16020779795302e+299, Inf, NaN, -1.47933033305366e+144,      NaN, 3.88280223673771e-294, -1.26436211183458e-225, 4.72094366350324e+167,      -7.06636963704572e+194, NA), z = c(Inf, -2.45714388214595e-150,      6.54409110705053e-220, 3.98200905154832e+151, -2.31803537745308e+74,      -1.17728132231671e-197, 1.98871288837062e-145, -80251661.1824678,      NA, -1.65190389982434e+207, 1.97712612309085e-189, Inf, -2.31803537745308e+74     ))
result <- do.call(ambient:::gen_perlin3d_c,testlist)
str(result)