      SUBROUTINE RATECOE(TII,TEE,TNN)                                   
      SAVE
      COMMON/TRAVLH/RK(50),ALP(20),RB(20),RKM(60)                       
      TR=(TII+TNN)*0.5                                                  
      T1=0.667*TII+0.333*TNN                                            
      T2=0.636*TII+0.364*TNN                                            
      A1=T1/300.                                                        
      A2=A1*A1                                                          
      A3=A2*A1                                                          
      A4=A2*A2                                                          
      B1=T2/300.                                                        
      B2=B1*B1                                                          
      RK(1)=2.82E-11-7.74E-12*A1+1.073E-12*A2-5.17E-14*A3+9.65E-16*A4   
      IF(T2.GT.1700.) GO TO 1                                           
      RK(2)=1.533E-12-5.92E-13*B1+8.6E-14*B2                            
      GO TO 2                                                           
   1  RK(2)=2.73E-12-1.155E-12*B1+1.483E-13*B2                          
   2  CONTINUE                                                          
      IF(TR.GE.1500.) GO TO 3                                           
      RK(3)=1.4E-10*(300./TR)**0.44                                     
      GO TO 4                                                           
   3  RK(3)=5.2E-11*(TR/300.)**0.2                                      
   4  CONTINUE                                                          
      RK(4)=1.E-10                                                      
      RK(5)=4.4E-10                                                     
      RK(6)=4.E-10                                                      
      RK(7)=2.E-10                                                      
      RK(8)=1.E-12                                                      
      RK(9)=2.0E-9                                                      
      RK(10)=2.4E-9                                                     
      RK(12)=6.E-10                                                     
      RK(11)=RK(12)*8.*SQRT((TII+TNN/16.)/(TNN+TII/16.))/9.             
      RK(13)=9.4E-10                                                    
      RK(14)=9.0E-10                                                    
      RK(15)=9.6E-11                                                    
      RK(16)=1.6E-10                                                    
      RK(17)=1.4E-10                                                    
      RK(18)=1.0E-9                                                     
      RK(19)=1.2E-10                                                    
      RK(20)=3.3E-10                                                    
      RK(21)=6.0E-11                                                    
      RK(22)=1.3E-10                                                    
      ALP(1)=4.2E-7*(300./TEE)**0.85                                    
      IF(TEE.GE.1200.) GO TO 5                                          
      ALP(2)=2.7E-7*(300./TEE)**0.7                                     
      GO TO 6                                                           
   5  ALP(2)=1.6E-7*(300./TEE)**0.55                                    
   6  CONTINUE                                                          
      ALP(3)=1.8E-7*(300./TEE)**0.39                                    
      ALP(4)=1.0E-7                                                     
      ALP(5)=3.0E-7                                                     
      ALP(6)=3.8E-7*(300/TEE)                                           
      ALP(7)=6.5E-7*(300./TEE)**0.53                                    
C     RB(1)=4.4E-12*EXP(-3200./TNN)
      RB(1)=1.5E-11*EXP(-3600./TNN)
      RB(2)=5.0E-12                                                     
C     RB(3)=3.4E-11
      RB(3)=1.6E-10*EXP(-460./TNN)
C     RB(4)=1.0E-12
      RB(4)=5.0E-13
      RB(5)=3.6E-10*SQRT(TEE/300.)                                      
      RB(6)=7.E-11                                                      
      RB(7)=1.06E-5                                                     
      RB(8)=0.                                                          
      RB(9)=0.                                                          
      RB(10)=5.0E-11                                                    
      RB(11)=1.8E-12*EXP(-1370./TNN)                                    
      RB(12)=3.5E-12*EXP(250./TNN)                                      
      RB(13)=9.3E-12                                                    
C     RB(15)=1.2E-13*EXP(-2450./TNN)                                    
      RB(15)=0.                                                         
      RETURN                                                            
      END                                                               
