anchor.diff:  c
         if(idout.gt.izero) then
           open(kw,file=ofile,status="old",access="append")
  -        write(kw,700) elmlbl,numel,intorder(intord),ipstrs,tpois
  +        write(kw,700) elmlbl,numel,intorder(intord),ipstrs,ipauto,tpois,
  +     &   tyoungs
           close(kw)
         end if
   c
  
positive.code:      &' integration order . . . . . . . . . . . = ',a17,//,5x,
       &' prestress option. . . . . . . . . . . . . .(ipstrs) =',i5,/ ,5x,
       &'    eq.0, prestresses are read from the input file    ', / ,5x,
       &'    eq.1, prestresses computed from elastic solution  ', / ,5x,
       &'          assuming near-incompressibility             ', / ,5x,
       &' poissons ratio for prestresses. . . . . . . (tpois) =',1pe15.8,
       & /,5x,'    only used for ipstrs=1',/)
        return
        end
  c
  c version
  c $Id: write_element_info.f,v 1.3 2004/08/02 21:33:26 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  c
  c
        subroutine write_element_info(numel,intord,ipstrs,ipauto,tpois,
       & tyoungs,kw,idout,ofile)
  c
  c...subroutine to write element and prestress parameters
  c
  