anchor.diff:       &' e l e m e n t    s y s t e m   d a t a',///,5x,
        &' element type:  ',a40,//,5x,
        &' number of elements . . . . . . . . . . . . .(numel) =',i7,//,5x,
  +     &' 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,
  
positive.code: c
  c...  subroutine arguments
  c
        integer numel,ipstrs,kw,idout
        double precision tpois
        character ofile*(*)
  c
  c...  included dimension and type statements
  c
        include "elmlbl_dim.inc"
  c
  c...  included variable definitions
  c
  
negative.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
  