Esope source files

   1 : C FBG1      SOURCE    CHAT      05/01/12    23:56:57     5004           
   2 : 
   3 : 
   4 : C=====================================================================
   5 : C=====================================================================
   6 : C BGFUNCIONES     SOURCE    MARINO ARROYO      99/05/20          
   7 : C     
   8 :              FUNCTION FBG1(T)
   9 :       IMPLICIT INTEGER(I-N)
  10 :       IMPLICIT REAL*8 (A-H,O-Z)
  11 : 
  12 :       t1 = t**2
  13 :       t2 = t1**2
  14 :       t4 = t2**2
  15 :       t5 = t4**2
  16 :       t6 = t5**2
  17 :       t7 = t6**2
  18 :       t10 = 1.D0/(0.2126494641379152D-89*t7*t2*t1+1.D0)
  19 :       t13 = 1.D0/(0.1316872427983539D0*t2*t+1.D0)
  20 :       t14 = -0.156710172162D4-3020.D0*t10-0.595089827838D4*t13-0.1146775
  21 :      #430405D2*t1+0.458710172162D3*t
  22 :       t17 = abs(t14)/t14
  23 :       t26 = 31536000.D0*exp(-0.2514499507768026D2-0.8765881258141834D0*t
  24 :      #17+0.580521937625287D-3*(1.D0/2.D0+t17/2.D0)*(0.458710172162D4+302
  25 :      #0.D0*t10+0.595089827838D4*t13+0.1146775430405D2*t1-0.458710172162D
  26 :      #3*t)+0.3152398523064585D-3*(1.D0/2.D0-t17/2.D0)*(0.156710172162D4+
  27 :      #3020.D0*t10+0.595089827838D4*t13+0.1146775430405D2*t1-0.4587101721
  28 :      #62D3*t))
  29 :       FBG1=T26
  30 :       RETURN
  31 :       END
  32 :  
  33 :