anchor.diff:  c
   c...  subroutine arguments
   c
  -      integer numel,ipstrs,kw,idout
  +      integer numel,intord,ipstrs,kw,idout
         double precision tpois
         character ofile*(*)
   c
   c...  included dimension and type statements
   c
         include "elmlbl_dim.inc"
  +c
  +c...  local variables
  +c
  +      character intorder(3)*17
  +      data intorder/"             Full",
  +     &              "          Reduced",
  +     &              "Selective (B-bar)"/
   c
   c...  included variable definitions
   c
  
positive.code:      &' 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,
       &' prestress option. . . . . . . . . . . . . .(ipstrs) =',i5,/ ,5x,
       &'    eq.0, prestresses are read from the input file    ', / ,5x,
       &'    eq.1, prestresses computed from elastic solution  ', / ,5x,
  
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
  