Esope source files

   1 : C FBG5      SOURCE    CHAT      05/01/12    23:57:10     5004           
   2 : 
   3 :              FUNCTION FBG5(T)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       IMPLICIT REAL*8 (A-H,O-Z)
   6 : 
   7 :       t1 = t**70.D0
   8 :       t4 = t**5.D0
   9 :       t7 = 0.1005524820235976D1-0.2009049640471953D0/(0.307077455497043D
  10 :      #-89*t1+1.D0)-0.8036198561887811D0/(0.1903968584518355D-2*t4+1.D0)
  11 :       FBG5=t7
  12 :       RETURN
  13 :       END
  14 :  
  15 :