anchor.diff:   10     continue
         end do
   c
  -c...  write results to plot file, if requested
  -c
  -      if(idsk.eq.1) then
  -        open(kp,file=pfile,status="old",access="append")
  -        write(kp,"(i7)") numflt
  -      else if(idsk.eq.2) then
  -        open(kp,file=pfile,status="old",access="append",
  -     &   form="unformatted")
  -        write(kp) numflt
  -        if(numflt.ne.0) write(kp) (idftn(i),i=1,numflt)
  -      end if
  -      close(kp)
  -c
         return
         end
   c
   c version
  -c $Id: id_split.f,v 1.2 2004/08/25 01:12:48 willic3 Exp $
  +c $Id: id_split.f,v 1.3 2005/04/14 00:56:09 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
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                             Charles A. Williams
  c                       Rensselaer Polytechnic Institute
  c                        (C) 2005  All Rights Reserved
  c
  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
  