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:       end
  c
  c version
  c $Id: write_element_info.f,v 1.2 2004/07/15 19:53:39 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,tpois,kw,idout,
       & ofile)
  c
  c...subroutine to write element and prestress parameters
  c
  