tmno.F [SRC] [CPP] [JOB] [SCAN]
TOOLS / COMMON / MODELSOURCES/MODEL [=]



   1 | include(dom.inc)
   2 | 
   3 |        SUBROUTINE TMNO(TM,RT,IT)
   4 | 
   5 |        IMPLICIT NONE
   6 | 
   7 |        DOM_REAL TM,RT
   8 |        DOM_INT  IT
   9 | 
  10 |        !------------------------------------------!
  11 |        ! CALCULATE THE INTERPOLATION COEFFICIENTS !
  12 |        !------------------------------------------!
  13 | 
  14 |        IF(TM.GT.300.0) THEN
  15 |           IF(TM.LT.2900.0) THEN
  16 |              RT=(TM-300.0)/200.0
  17 |              IT=INT(RT+1.0E-6)
  18 |              RT=RT-IT
  19 |              IT=IT+1
  20 |           ELSE
  21 |              RT=1.0
  22 |              IT=11
  23 |           ENDIF
  24 |        ELSE
  25 |           RT=0.0
  26 |           IT=1
  27 |        ENDIF
  28 | 
  29 |        END SUBROUTINE TMNO


tmno.F could be called by:
kbarandphi.F [TOOLS/COMMON/MODEL] - 70
kbarandphi.F [SOURCES/MODEL] - 85
Makefile [TOOLS/RAY] - 67
Makefile [SOURCES] - 97
Makefile [TOOLS/TABFSK] - 65