anchor.diff:  c
   c                             Charles A. Williams
   c                       Rensselaer Polytechnic Institute
  -c                        (C) 2004  All Rights Reserved
  +c                        (C) 2005  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
  
positive.code: c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  c
  c
        subroutine id_split(nfault,idftn,numnp,numfn,numflt,kp,idsk,pfile)
  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
  
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
  