anchor.diff:  C----------------------------------------------------------------------C
   
         SUBROUTINE getdamp(soln,gf,obs,nobs,OBSMAX,nflt,FLTMAX,damp,
  -     1                   smooth,smoof,fact)
  -      IMPLICIT none
  +     1                   smooth,smoof,fact,getdmp)
  +      IMPLICIT none
  +      INTEGER getdmp
         CHARACTER*80 smoof
         REAL*8 damp,smooth
         INTEGER OBSMAX,FLTMAX
  
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:           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'
  