Esope source files

   1 : C TEQUIV    SOURCE    CHAT      05/01/13    03:36:10     5004           
   2 :        SUBROUTINE TEQUIV(K1,RO1,T0,FP,K2,SIGP,DSIGP,TEQ)
   3 :       IMPLICIT INTEGER(I-N)
   4 :        IMPLICIT REAL*8 (A-H,O-Z)
   5 :        REAL*8 K1,K2,MU
   6 :        MU=(SIGP+DSIGP)/FP
   7 :        EXPOS1=(4.D0/3.D0)/(1.D0-MU)
   8 :        EXP2=EXP((10.D0*MU-7.5D0)/K2)
   9 :        TEQ=T0+(1.D3/24.D0)*((DSIGP/(K1*RO1*
  10 :      &                      (SIGP+DSIGP)*EXP2))**EXPOS1)
  11 :        RETURN
  12 :        END
  13 :  
  14 :