anchor.diff:       &         infetype,                                                ! eltype
        &         deltp,nstep,                                             ! timdat
        &         istatout,                                                ! ioopts
  -     &         kucd,ucdroot)                                            ! ioinfo
  +     &         kucd,ucdroot,iprestress)                                 ! ioinfo
               end if
               ltim=.false.
               if(fulout) indexx=indexx+1
  
positive.code:               call printd(d,deld,deltp,idslp,numnp,numnp,ione,
       &         idout,idsk,kto,kw,kp)
                call write_ucd_node_vals(d,deld,deltp,nstep,numnp,kucd,
       &         ucdroot)
                call printf(tfault,dfault,deltp,nfault,numfn,idout,
       &         idsk,kw,kp)
                call printd(dx,deldx,deltp,idslp,numnp,numsn,itwo,
  
negative.code:       end
  c
  c version
  c $Id: viscos.f,v 1.9 2005/01/19 20:38:41 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  