anchor.diff:        end
   c
   c version
  -c $Id: write_element_info.f,v 1.4 2005/02/24 00:24:35 willic3 Exp $
  +c $Id: write_element_info.f,v 1.5 2005/03/22 19:51:15 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code: c
        if(idout.gt.izero) then
          open(kw,file=ofile,status="old",access="append")
          write(kw,700) elmlbl,numel,intorder(intord),ipstrs,ipauto,tpois,
       &   tyoungs
          close(kw)
        end if
  
negative.code: c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  c
  c
        subroutine write_element_info(numelv,intord,ipstrs,ipauto,tpois,
       & tyoungs,kw,idout,ofile)
  c
  c...subroutine to write element and prestress parameters
  