SUBROUTINE GAMSP(ITR,T,ANE,AGAM)
C     ================================
C
C     Non-standard expression for the damping parameter  -
C     a user-supplied procedure
C
      INCLUDE 'IMPLIC.FOR'
      INCLUDE 'BASICS.FOR'
      AGAM=0.
      if(itr.le.0) return
      t1=t
      ane1=ane
      RETURN
      END