testlist <- list(tau = c(4.77948563126498e+52, 2.85922553217405e+158, -1.19231863542094e+113,  Inf, NA, -1.61388134391446e+127, -1.94268309660463e+50, -1.66295601182137e-43,  -2.04976635660902e-52, -9.39113132130448e-268, -4.6531042979938e-72,  4.44108534140242e-112, -5.03689294856414e-49, Inf, -5.94155256290338e+219,  -1.09181685837353e+153, 3.0547722645631e+163, -3.64623115790757e-152,  -1.37698904107187e+158, 4.94083677526608e+97, -4.09467930530591e+68,  -1.19271583655321e+204, -4.84767682081531e-282, 9.25375422301376e+20,  -68109544144650992, 5.70174073880177e+209, 7.44540014607304e-208,  -2.51240177194961e-110, -3.90232887326558e+101, -6.75625526910606e+23,  Inf, 0), x = 323314247L, y = -34134484L)
result <- do.call(timma:::maxcpp1,testlist)
str(result)