anchor.diff:  c
   c     Error codes:
   c         0:  No error
  -c         1:  Error opening input file (no exception should be raised
  -c             in this case since a split node file is optional)
  -c         2:  Units not specified (not yet used for this routine)
  +c         1:  Error opening input file (only if numfn.ne.zero)
  +c         2:  Error opening output file
   c         3:  Read error
  +c         4:  Write error
   c
   
         include "implicit.inc"
   c
  +c...  parameter definitions
  +c
  +      include "ndimens.inc"
  +      include "nconsts.inc"
  +      include "rconsts.inc"
  +c
   c...  subroutine arguments
   c
  -      integer numfn,numflt,ndof,numnp,kr,kw,kp,idout,idsk,ierr
  +      integer numfn,numflt,numnp,kr,kw,kp,idout,idsk,ierr
         integer nfault(3,numfn)
         double precision fault(ndof,numfn)
  -      character spfile*(*),ofile*(*),pfile*(*)
  -c
  -c...  defined constants
  -c
  -      include "nconsts.inc"
  -      include "rconsts.inc"
  +      character spfile*(*),ofile*(*),pfile*(*),errstrng*(*)
   c
   c...  intrinsic functions
   c
  
positive.code: c
   30   continue
          ierr=3
          close(kr)
          return
  c
   3000 format(1x///1x,'s p l i t  n o d e   d a t a'//
  
negative.code: c
   20   continue
          ierr=1
          errstrng="read_split"
          close(kr)
          return
  c
  