Sources Esope | Cast3M

fbg4
C FBG4      SOURCE    CHAT      05/01/12    23:57:06     5004
 
             FUNCTION FBG4(T)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
 
      t1 = t**2
      t2 = t1**2
      t4 = t2**2
      t5 = t4**2
      t6 = t5**2
      t7 = t6**2
      t9 = 0.2126494641379152D-89*t7*t2*t1+1.D0
      t10 = t9**2
      t14 = t7**2
      t21 = 0.1316872427983539D0*t2*t+1.D0
      t22 = t21**2
      t29 = -0.1338325040926625D-171/t10/t9*t14*t4*t1+0.3101832673594114
     #D-82/t10*t7*t2-0.5159884026030178D4/t22/t21*t4+0.1567314772906667D
     #5/t22*t1*t-0.229355086081D2
      FBG4=T29
      RETURN
      END