anchor.diff:                  end if
                   write(kw,3000) iel,l,(stmp(i),i=1,nstr)
                 end if
  -              if(idsk.eq.0) write(kp,1500) iel,l,(stmp(i),i=1,nstr)
  -              if(idsk.eq.1) write(kp) stmp
  +              if(idsk.eq.izero) write(kp,1500) iel,l,(stmp(i),i=1,nstr)
  +              if(idsk.eq.ione) write(kp) stmp
               end do
             end do
           end if
  
positive.code:       include "ndimens.inc"
        include "nshape.inc"
        include "materials.inc"
  c
  c...  subroutine arguments
  c
  
negative.code:       end
  c
  c version
  c $Id: write_state.f,v 1.3 2004/07/12 21:22:42 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  