anchor.diff:        ntimdat(1)=nstep
         maxitp=maxit(ii)
         ntimdat(2)=maxitp
  -      maxitcp=maxitc(ii)
  -      ntimdat(3)=maxitcp
  +      ntdinitp=ntdinit(ii)
  +      ntimdat(3)=ntdinitp
         lgdefp=lgdef(ii)
         ntimdat(4)=lgdefp
         ibbarp=ibbar(ii)
  
positive.code:       end
  c
  c version
  c $Id: const.f,v 1.1 2004/04/14 21:18:30 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c...  subroutine arguments
  c
        integer nintg,i,naxstp,nfirst
        integer maxstp(nintg),maxit(nintg),ntdinit(nintg)
        integer lgdef(nintg),ibbar(nintg),itmax(nintg)
        double precision delt(nintg),alfa(nintg),utol(nintg),ftol(nintg)
        double precision etol(nintg)
  