anchor.diff:            write (*,8888)
             read *,haffile
             if (haffile.eq.'quit') stop
  +          if (haffile.eq.'help') call usage()
             goto 13
         else
              write(*,9999)
  
positive.code: C----
  C Parse fault file
  C List of:
  C  x y dep(km) str dip rak slip(m) dy(km) dx(km) flttyp
  C Last column indicates fault type:
  C   0 for point source
  C   1 for finite source
  
negative.code:       REAL*8 vp,vs,dens
  
        REAL*8 ux,uy,uN,uE,uZ,uNnet,uEnet,uZnet
  
        call gcmdln(verbose)
  C----
  C Input files
  C----
  