anchor.diff:  character(len=512) :: mag_file                    ! source faults: ... mag format
   character(len=512) :: flt_file                    ! source faults: ... slip wid len format
   character(len=512) :: tns_file                    ! volume source: ... opening wid len
  +character(len=512) :: gmt_fault_file              ! for plotting with psxy -SJ
   logical :: isFaultFileDefined                     ! input fault tag
   logical :: isTensileFileDefined                   ! input tensile source tag
   character(len=16) :: fault_type                   ! point or finite source tag
  
positive.code: 
      elseif (tag.eq.'-az') then
          disp_output_mode = 'amz'
  
      elseif (trim(tag).eq.'-v'.or.trim(tag).eq.'-verbose'.or.trim(tag).eq.'-verbosity') then
          i = i + 1
  
negative.code: flt_file = ''
  mag_file = ''
  tns_file = ''
  gmt_fault_file = ''
  isFaultFileDefined = .false.
  isTensileFileDefined = .false.
  fault_type = 'rect'
  