Calls with DUP:
   .C("get_min_score_dev_binary_index", x.linear, as.integer(length(y)), 
       as.integer(componentwise.no), as.integer(nrow(x.linear)), 
       subset.index, linpen.index, as.double(y), as.double(actual.mu), 
       as.double(actual.eta), as.double(D), as.double(weights), 
       double(length(y)), as.double(fstruct$penalty.linear[linear.is.penalized]), 
       double(componentwise.no), index = integer(1), score = double(componentwise.no), 
       dev = double(1), DUP = FALSE)
   .C("calc_dev_binary_index", x.linear, as.integer(length(y)), 
       as.integer(componentwise.no), as.integer(nrow(x.linear)), 
       subset.index, linpen.index, as.double(y), as.double(actual.mu), 
       as.double(actual.eta), as.double(D), as.double(weights), 
       double(length(y)), as.double(fstruct$penalty.linear[linear.is.penalized]), 
       double(componentwise.no), double(componentwise.no), res = double(componentwise.no), 
       DUP = FALSE)
   .C("pre_sum_index", x.linear, as.integer(length(D)), as.integer(componentwise.no), 
       as.integer(nrow(x.linear)), subset.index, linpen.index, as.double(D), 
       as.double(weights), res = double(componentwise.no), DUP = FALSE)
   .C("get_min_score_dev_gaussian_index", x.linear, as.integer(length(y)), 
       as.integer(componentwise.no), as.integer(nrow(x.linear)), 
       subset.index, linpen.index, as.double(y), as.double(actual.mu), 
       as.double(actual.eta), as.double(D), as.double(weights), 
       double(length(y)), as.double(fstruct$penalty.linear[linear.is.penalized]), 
       pre.sum, index = integer(1), score = double(componentwise.no), 
       dev = double(1), DUP = FALSE)
   .C("get_min_score_dev_general_index", x.linear, as.integer(length(y)), 
       as.integer(componentwise.no), as.integer(nrow(x.linear)), 
       subset.index, linpen.index, as.double(y), as.double(actual.mu), 
       as.double(actual.eta), as.double(D), as.double(weights), 
       double(length(y)), as.double(fstruct$penalty.linear[linear.is.penalized]), 
       double(componentwise.no), index = integer(1), score = double(componentwise.no), 
       beta.delta = double(1), DUP = FALSE)
DUP is no longer supported and will be ignored.