Esope source files

   1 : C FBG3      SOURCE    CHAT      05/01/12    23:57:03     5004           
   2 : 
   3 :              FUNCTION FBG3(T)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       IMPLICIT REAL*8 (A-H,O-Z)
   6 : 
   7 :       t1 = t**2
   8 :       t2 = t1**2
   9 :       t4 = t2**2
  10 :       t5 = t4**2
  11 :       t6 = t5**2
  12 :       t7 = t6**2
  13 :       t10 = (0.2126494641379152D-89*t7*t2*t1+1.D0)**2.D0
  14 :       t12 = t2*t
  15 :       t16 = (0.1316872427983539D0*t12+1.D0)**2.D0
  16 :       t19 = 0.4495409671875527D-84/t10*t7*t12+0.3918286932266667D4/t16*t
  17 :      #2+0.458710172162D3-0.229355086081D2*t
  18 :       FBG3=T19
  19 :       RETURN
  20 :       END
  21 :  
  22 :