Esope source files

   1 : C FBG4      SOURCE    CHAT      05/01/12    23:57:06     5004           
   2 : 
   3 :              FUNCTION FBG4(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 :       t9 = 0.2126494641379152D-89*t7*t2*t1+1.D0
  14 :       t10 = t9**2
  15 :       t14 = t7**2
  16 :       t21 = 0.1316872427983539D0*t2*t+1.D0
  17 :       t22 = t21**2
  18 :       t29 = -0.1338325040926625D-171/t10/t9*t14*t4*t1+0.3101832673594114
  19 :      #D-82/t10*t7*t2-0.5159884026030178D4/t22/t21*t4+0.1567314772906667D
  20 :      #5/t22*t1*t-0.229355086081D2
  21 :       FBG4=T29
  22 :       RETURN
  23 :       END
  24 :  
  25 :