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