anchor.diff:                    slip_file, &
                     time_file, &
                     depth_file, &
  +                  area_file, &
                     clip_file, &
                     clip_type, &
                     epi_file, &
  
positive.code: close(21)
  close(22)
  close(23)
  close(31)
  close(41)
  
  
negative.code: write(stderr,*) '-clip CLIPFILE     Write outline of FFM to file'
  write(stderr,*) '-clipseg CLIPFILE  Write outline of each segment of FFM to file'
  write(stderr,*) '-epi EPIFILE       Write epicenter to file'
  write(stderr,*) '-area AREAFILE     Sub-fault area, length, and width'
  write(stderr,*)
  
  stop
  