anchor.diff:          end do
         end if
         close(kr)
  -      if(idout.gt.0) close(kw)
  +      if(idout.gt.izero) close(kw)
         close(kp)
   c
   c...  normal return
  
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
  c...  open input file and read entries
  c
        ierr=izero
        numflt=izero
        if(numfn.ne.izero) then
          call fill(fault,zero,ndof*numfn)
          call ifill(nfault,izero,3*numfn)
          open(kr,file=spfile,status="old",err=20)
  