anchor.diff:        end
   c
   c version
  -c $Id: viscos.f,v 1.6 2004/08/25 00:59:45 willic3 Exp $
  +c $Id: viscos.f,v 1.7 2005/01/05 22:32:07 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code: c...  local variables
  c
  cdebug      integer idb
        integer indexx,ntot,jcyc,nfirst,naxstp,i,j,ierr
        double precision time,tminmax
        logical ltim,fulout,unlck,unlckf,skc,reform
  c
  c...  included variable definitions
  c
        include "nsysdat_def.inc"
        include "npar_def.inc"
        include "ntimdat_def.inc"
  
negative.code:               if(ierr.ne.izero) return
  c
                call formdf_ss(
       &         bintern,neq,                                             ! force
       &         x,d,dcur,numnp,                                          ! global
       &         s,stemp,                                                 ! stiff
       &         dmat,ien,lm,lmx,infiel,iddmat,ndmatsz,numelt,nconsz,     ! elemnt
  