anchor.diff:  c
   c...  local variables
   c
  -      integer igroup,naxstp,nfirst
  +      integer igroup,naxstp,nfirst,iprestress
         double precision time,tminmax
         logical*4 fulout,skc
   c
  
positive.code:       ndtot=izero
        ntimdat(8)=ndtot
        ntimdat(9)=ireform
  cdebug      write(6,*) "Before const:"
        call const(maxstp,delt,alfa,maxit,ntdinit,lgdef,utol,ftol,
       & etol,itmax,nintg,igroup,naxstp,nfirst,rtimdat,deltp,alfap,
  
negative.code:      &   ielno,iside,ihistry,pres,pdir,                                 ! tractn
       &   prop,mhist,infmat,infmatmod,tminmax,                           ! materl
       &   gauss,sh,shj,infetype,                                         ! eltype
       &   histry,rtimdat,ntimdat,nvisdat,iprestress,                     ! timdat
       &   rgiter,gcurr,gi,gprev,gtol,rmin,rmult,nsiter,                  ! iterate
       &   skew,                                                          ! skew
       &   ncodat,nunits,nprint,                                          ! ioinfo
  