anchor.diff:            write(*,*)
        1 '            Lame  lamda(Pa)  mu(Pa)'
             write(*,*)
  +     1 '                   OR'
  +          write(*,*)
  +     1 '            Poisson mu(Pa)  Poisson_Ratio'
  +          write(*,*)
             write(*,*)
        1 '    If seismic velocities are given, elastic parameters are ',
        2     'computed:'
  
positive.code:       write(*,*)
       1 '               [-h|-help] [-d|-details]'
        write(*,*)
        STOP 1
        END
  
  C----------------------------------------------------------------------C
  
negative.code:           write(*,*) '!! Error too many input faults (max:',FMAX,')'
            call usage('!! Reduce number of input faults or change FMAX')
        endif
  C Read faults
        read (34,'(A200)',END=342) inline
            if(index(inline,'p').ne.0) then
                typ(i) = 0
  