anchor.diff:  clater     &         ielno,iside,ihistry,pres,pdir,                           ! tractn
   clater     &         prop,mhist,infmat,infmatmod,tminmax,                     ! materl
   clater     &         gauss,sh,shj,infetype,                                   ! eltype
  -clater     &         histry,rtimdat,ntimdat,nvisdat,                          ! timdat
  +clater     &         histry,rtimdat,ntimdat,nvisdat,iprestress,               ! timdat
   clater     &         rgiter,gcurr,gi,gprev,gtol,rmin,rmult,nsiter,            ! iterate
   clater     &         skew,                                                    ! skew
   clater     &         ncodat,nunits,nprint,                                    ! ioinfo
  
positive.code: c...  local variables
  c
  cdebug      integer idb
        integer indexx,ntot,jcyc,nfirst,naxstp,i,j
        double precision time,tminmax
        logical ltim,fulout,unlck,unlckf,skc,reform
  c
  
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
  