Calls with DUP:
   .C("find_best01", x.double.vec, as.integer(n), as.integer(p), 
       uncens.C, as.integer(length(uncens)), as.double(actual.beta), 
       as.double(actual.risk.score), as.double(actual.linear.predictor), 
       weight.double.vec, max.nz.vec, max.1.vec, as.double(weightmat.times.risk), 
       as.double(weightmat.times.risk.sum), as.double(penalty), 
       warncount = integer(1), min.index = integer(1), min.deviance = double(1), 
       min.beta.delta = double(1), score.vec = double(p), DUP = FALSE, 
       NAOK = TRUE)
   .C("find_best", x.double.vec, as.integer(n), as.integer(p), uncens.C, 
       as.integer(length(uncens)), as.double(actual.beta), as.double(actual.risk.score), 
       as.double(actual.linear.predictor), weight.double.vec, max.nz.vec, 
       max.1.vec, as.double(weightmat.times.risk), as.double(weightmat.times.risk.sum), 
       as.double(penalty), as.integer(criterion == "pscore" || criterion == 
           "hpscore"), warncount = integer(1), min.index = integer(1), 
       min.deviance = double(1), min.beta.delta = double(1), score.vec = double(p), 
       DUP = FALSE, NAOK = TRUE)
   .C("find_best_candidate", x.double.vec, as.integer(n), as.integer(p), 
       uncens.C, as.integer(length(uncens)), as.double(actual.beta), 
       as.double(actual.risk.score), as.double(actual.linear.predictor), 
       weight.double.vec, max.nz.vec, max.1.vec, as.double(weightmat.times.risk), 
       as.double(weightmat.times.risk.sum), as.double(penalty), 
       as.integer(criterion == "pscore" || criterion == "hpscore"), 
       as.integer(presel.index - 1), as.integer(length(presel.index)), 
       warncount = integer(1), min.index = integer(1), min.deviance = double(1), 
       min.beta.delta = double(1), score.vec = double(p), DUP = FALSE, 
       NAOK = TRUE)
   .C("find_best_candidate", x.double.vec, as.integer(n), as.integer(p), 
       uncens.C, as.integer(length(uncens)), as.double(actual.beta), 
       as.double(actual.risk.score), as.double(actual.linear.predictor), 
       weight.double.vec, max.nz.vec, max.1.vec, as.double(weightmat.times.risk), 
       as.double(weightmat.times.risk.sum), as.double(penalty), 
       as.integer(criterion == "pscore"), as.integer(new.candidates - 
           1), as.integer(length(new.candidates)), warncount = integer(1), 
       min.index = integer(1), min.deviance = double(1), min.beta.delta = double(1), 
       score.vec = double(p), DUP = FALSE, NAOK = TRUE)
   .C("get_I_vec", as.double(x[subset.time.order, pen.index[I.index]]), 
       as.integer(n), as.integer(length(I.index)), as.integer(length(uncens)), 
       as.double(weightmat.times.risk), as.double(weightmat.times.risk.sum), 
       I.vec = double(length(I.index)), DUP = FALSE)
DUP is no longer supported and will be ignored.