1 | C***********************************************************************
   2 | C                                                                      *
   3 | C     THIS SUBROUTINE CALCULATES THE INTERPOLATION COEFFICIENTS  
   4 | c     prog taine tmno.f						       *
   5 | c	in --> tm la temperature
   6 | c       out--> rt le coordonnes sur base lineaire
   7 | c	       it le num de la temp pivot inf
   8 | C                                                                      *
   9 | C***********************************************************************
  10 | C
  11 |       SUBROUTINE TMNO(TM,RT,IT)
  12 |       DOUBLE PRECISION TM,RT
  13 |       IF(TM.GT.300.0) THEN
  14 |          IF(TM.LT.2500.0) THEN
  15 |             RT=(TM-300.0)/200.0
  16 |             IT=INT(RT+1.0E-6)
  17 |             RT=RT-IT
  18 |             IT=IT+1
  19 |          ELSE
  20 |             RT=1.0
  21 |             IT=11
  22 |          ENDIF
  23 |       ELSE
  24 |          RT=0.0
  25 |          IT=1
  26 |       ENDIF
  27 |       RETURN
  28 |       END