anchor.diff:            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'
  
positive.code: C----
  C Get best damping parameter
  C----
        if (getdmp.eq.1) then
            print *,fact
            call getdamp(soln,gf,obs,nobs,OBSMAX,nflt,FLTMAX,damp0,smooth,
       1                 smoof,fact)
            damp = damp0
        endif
  
  
negative.code:               else
                    i = i - 1
                endif
            elseif (tag(1:9).eq.'-getdamp2') then
                getdmp = 2
                fact = 10.0d0
                i = i + 1
                if (i.gt.narg) goto 102
                call getarg(i,tag)
                indx = index(tag,'-')
                if (indx.eq.0) then
                    read(tag,*) fact
                else
                    i = i - 1
                endif
            elseif (tag(1:2).eq.'-h') then
                call usage(' ')
            elseif (tag(1:2).eq.'-d') then
  