Esope source files

   1 : C FBG6      SOURCE    CHAT      05/01/12    23:57:13     5004           
   2 : 
   3 : 
   4 :              FUNCTION FBG6(T)
   5 :       IMPLICIT INTEGER(I-N)
   6 :       IMPLICIT REAL*8 (A-H,O-Z)
   7 : 
   8 :       t1 = t**5.D0
   9 :       t4 = 0.2538648D-1-0.252288D-1/(1.D0+0.32D2*t1)
  10 :       FBG6=t4
  11 :       RETURN
  12 :       END
  13 :  
  14 :