anchor.diff:          if(ierr.ne.izero) return
         end do
   c
  +c...  output gravitational acceleration
  +c
  +      if(idout.gt.izero) then
  +        write(kw,1100,err=20)
  +        do i=1,ndof
  +          write(kw,1200,err=20) labeld(i),grav(i)
  +        end do
  +      end if
  +c
   c...  normal return
   c
         if(idout.gt.izero) close(kw)
  
positive.code:  1000 format(1x,///,
       & " m a t e r i a l   s e t   d a t a                    ",//,5x,
       & " number of material sets . . . . . . . . . . (numat) =",i5)
  c
        end
  c
  c version
  c $Id: write_props.f,v 1.2 2004/07/13 16:26:48 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c
  c...  parameter definitions
  c
        include "ndimens.inc"
        include "materials.inc"
        include "nconsts.inc"
  c
  