anchor.diff:                ostyle = 10
             elseif (tag(1:7).eq.'-misfit') then
                 misfit = 1
  -          elseif (tag(1:8).eq.'-getdamp') then
  +          elseif (tag(1:9).eq.'-getdamp1') then
                 getdmp = 1
                 i = i + 1
                 if (i.gt.narg) goto 102
  
positive.code:               else
                    i = i - 1
                endif
            elseif (tag(1:2).eq.'-h') then
                call usage(' ')
            elseif (tag(1:2).eq.'-d') then
  
negative.code:           write(*,*)
        endif
        write(*,*)
       1 '-getdamp2 SLIP      Determine good damping parameter, mode 2'
        if (d.eq.1) then
            write(*,*)
       1 '                        Increase damping until max slip is ',
       2                                'less than SLIP'
            write(*,*)
       1 '                        Default: SLIP=10'
            write(*,*)
        endif
        write(*,*)
       1 '-h                  Short online help'
        write(*,*)
       1 '-d                  Detailed online help'
  