anchor.diff:  c
   c...  subroutine arguments
   c
  -      integer numel,intord,ipstrs,kw,idout
  -      double precision tpois
  +      integer numel,intord,ipstrs,ipauto,kw,idout
  +      double precision tpois,tyoungs
         character ofile*(*)
   c
   c...  included dimension and type statements
  
positive.code: c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  c
  c
        subroutine write_element_info(numel,intord,ipstrs,tpois,kw,idout,
       & ofile)
  c
  c...subroutine to write element and prestress parameters
  c
  
negative.code:      &' integration order . . . . . . . . . . . = ',a17,//,5x,
       &' prestress option. . . . . . . . . . . . . .(ipstrs) =',i5,/ ,5x,
       &'    eq.0, prestresses are read from the input file    ', / ,5x,
       &'    eq.1, gravitational prestresses automatically     ', / ,5x,
       &'          computed                                    ', / ,5x,
       &' prestress auto-computation option . . . . .(ipauto) =',i5,/ ,5x,
       &'    eq.0, computation uses assigned elastic properties', / ,5x,
       &'    eq.1, properties listed below are used for        ', / ,5x,
       &'          auto-computation                            ', / ,5x,
       &' poissons ratio for auto-computation . . . . (tpois) =',1pe15.8,
       & /,5x,'    only used for ipstrs=1 and ipauto=1',/,5x,
       &' youngs modulus for auto-computation . . . (tyoungs) =',1pe15.8,
       & /,5x,'    only used for ipstrs=1 and ipauto=1',/)
        return
        end
  c
  c version
  c $Id: write_element_info.f,v 1.4 2005/02/24 00:24:35 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  