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: c
  c...  subroutine arguments
  c
        integer numel,intord,ipstrs,kw,idout
        double precision tpois
        character ofile*(*)
  c
  c...  included dimension and type statements
  
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
  