anchor.diff:  C      do 101 i=1,nflt
   C          print *,evlo(i),evla(i),evdp(i),slip(i)
   C  101 continue
  -      close(34) 
  +      close(34)
         RETURN
         END
   
  
positive.code:               else
                    i = i - 1
                endif
            elseif (tag(1:2).eq.'-h'.or.tag(1:5).eq.'-help') then
                call usagelong(' ')
            elseif (tag(1:2).eq.'-d'.or.tag(1:8).eq.'-details') then
  
negative.code:           write(*,*) '!! Error: no input faults read'
            call usage('!! Check input files for correct format')
        endif
  
  C Remove all fault sources with slip less than sthr
        smax = 0.0d0
        if (sthr.lt.-1.0d-6) then
  