anchor.diff:  c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   c
   c
  -      subroutine id_split(nfault,idftn,numnp,numfn,numflt,kp,idsk,pfile)
  +      subroutine id_split(nfault,idftn,numnp,numfn,numflt)
   c
   c...  subroutine to store the node number of each split node in idftn.
   c     This routine needs to be called after nfault has been read
  
positive.code: c
  c                             Charles A. Williams
  c                       Rensselaer Polytechnic Institute
  c                        (C) 2004  All Rights Reserved
  c
  c  Copyright 2004 Rensselaer Polytechnic Institute.
  c  All worldwide rights reserved.  A license to use, copy, modify and
  c  distribute this software for non-commercial research purposes only
  c  is hereby granted, provided that this copyright notice and
  
negative.code: c
  c...  subroutine arguments
  c
        integer numnp,numfn,numflt
        integer nfault(3,numfn),idftn(numflt)
  c
  c...  local variables
  c
        integer n,i,nn
  c
  c... find split nodes and store them in idftn
  c
        nn=0
        do n=1,numnp
  