anchor.diff:            write(*,*)
        1 '    onto the rake vector of the target fault.'
             write(*,*)
  +     1 '    To have output be absolute value of shear traction, ',
  +     1       'use -shearu.'
  +          write(*,*)
             write(*,9999)
             write(*,*)
         endif
  
positive.code:               knor = 1
                i = i + 1
                call getarg(i,norf)
            elseif (tag(1:6).eq.'-shear') then
                if (kstn.eq.0) kstn = 2
                if (ksts.eq.0) ksts = 2
  
negative.code:       IMPLICIT NONE
        INTEGER kdsp,kstn,ksts,knor,kshr,kcou,kgmt
        COMMON /OCHECK/ kdsp,kstn,ksts,knor,kshr,kcou,kgmt
        if (kdsp.le.0.and.kstn.eq.0) then
            write(*,*) '!! Error: No output file specified'
            call usage('!! Use -disp, -strain, -stress, '//
       1                   '-normal, -shear, -coul, or an -auto option')
  