Calls with DUP:
   .Fortran("dtpss", des = as.double(des), lddes = as.integer(n), 
       nobs = as.integer(n), dim = as.integer(d), m = as.integer(m), 
       s = double(n), lds = as.integer(n), ncov = as.integer(0), 
       y = as.double(ybak), ntbl = as.integer(nstep.cv), adiag = double(n), 
       lamlim = as.double(lamlim), cost = as.double(cost), dout = double(5), 
       iout = integer(4), coef = double(nnull + n), svals = double(n), 
       tbl = double(nstep.cv * 3), ldtbl = as.integer(nstep.cv), 
       auxtbl = double(3 * 3), work = double(n * (3 + nnull + n)), 
       lwa = as.integer(n * (3 + nnull + n)), iwork = integer(3 * 
           n), liwa = as.integer(3 * n), job = as.integer(job), 
       info = integer(1), DUP = FALSE, PACKAGE = "rgcvpack")
   .Fortran("dtpkm", des = as.double(xs), lddes = as.integer(n), 
       nobs = as.integer(n), dim = as.integer(d), m = as.integer(m), 
       s = double(n), lds = as.integer(n), ncov = as.integer(0), 
       knots = as.double(ks), ldknt = as.integer(b), nknt = as.integer(b), 
       y = as.double(ybak), ntbl = as.integer(nstep.cv), adiag = double(n), 
       lamlim = as.double(lamlim), cost = as.double(cost), dout = double(5), 
       iout = integer(3), coef = double(nnull + b), svals = double(b), 
       tbl = double(nstep.cv * 3), ldtbl = as.integer(nstep.cv), 
       auxtbl = double(3 * 3), work = double(2 * b * (1 + b + n) + 
           n), lwa = as.integer(2 * b * (1 + b + n) + n), iwork = integer(2 * 
           n), liwa = as.integer(2 * n), tau = as.double(tau), job = as.integer(job), 
       info = integer(1), DUP = FALSE, PACKAGE = "rgcvpack")
   .Fortran("dpred", pdes = as.double(newdats), ldpdes = as.integer(npred), 
       npred = as.integer(npred), dim = as.integer(d), m = as.integer(m), 
       desb = as.double(ks), lddesb = as.integer(nknots), ndesb = as.integer(nknots), 
       ps = double(npred), ldps = as.integer(npred), ncov1 = as.integer(0), 
       ncov2 = as.integer(0), coef = as.double(coef), npar = as.integer(npar), 
       pred = double(npred), work = double(lwa), lwa = as.integer(lwa), 
       iwork = integer(d), info = integer(1), DUP = FALSE, PACKAGE = "rgcvpack")
DUP is no longer supported and will be ignored.