anchor.diff:            write(*,*)
             write(*,*)
        1 '    Format: stlo stla stdp(km)'
  +          write(*,*)
  +          write(*,*)
  +     1 '        (or, if -xy is used: stx(km) sty(km) stdp(km))'
             write(*,*)
             write(*,9999)
             write(*,*)
  
positive.code:           write(*,*)
       1 '    Format: stlo stla stdp u_E(m) u_N(m) u_Z(m)'
            write(*,*)
       1 '    Vertical displacement is positive up.'
            write(*,*)
            write(*,9999)
  
negative.code:           write(*,*)
       1 '        YM: Yen and Ma (2011)'
            write(*,*)
       1 '    If p is appended, then the fault parameters will also be ',
       2                 'printed'
            write(*,*)
       2 '        to standard error'
            write(*,*)
            write(*,9999)
            write(*,*)
  