anchor.diff:                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
  
positive.code:           write(*,*)
        endif
        write(*,*)
       1 '-h                  Short online help'
        write(*,*)
       1 '-d                  Detailed online help'
  
negative.code: C----
  C Get best damping parameter
  C----
        if (getdmp.ge.1) then
            print *,fact
            call getdamp(soln,gf,obs,nobs,OBSMAX,nflt,FLTMAX,damp0,smooth,
       1                 smoof,fact,getdmp)
            damp = damp0
        endif
  
  