anchor.diff:       &         ielno,iside,ihistry,pres,pdir,                           ! tractn
        &         prop,mhist,infmat,infmatmod,tminmax,                     ! materl
        &         gauss,sh,shj,infetype,                                   ! eltype
  -     &         histry,rtimdat,ntimdat,nvisdat,                          ! timdat
  +     &         histry,rtimdat,ntimdat,nvisdat,iprestress,               ! timdat
        &         rgiter,gcurr,gi,gprev,gtol,rmin,rmult,nsiter,            ! iterate
        &         skew,                                                    ! skew
        &         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:       end
  c
  c version
  c $Id: viscos.f,v 1.8 2005/01/18 20:32:31 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  