15 lines
316 B
Fortran
15 lines
316 B
Fortran
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
|