Esope source files

   1 : C FTRC      SOURCE    CHAT      05/01/13    00:11:11     5004           
   2 :       FUNCTION FTRC(Z,A,B,C,D)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 :       C12=SQRT(C)
   6 :       C32=C12**3
   7 :       B2=B**2
   8 :       Z2=Z**2
   9 :       TRINOM=A+B*Z+C*Z2
  10 :       TRINOM=SQRT(TRINOM)
  11 :       AC=A*C
  12 :       TERM1=B2-4.*AC
  13 :       TERM2=(2.*B2-4.*AC)*Z
  14 :       TERM3=2.*A*B
  15 :       TERM4=2.*C*D*(B*Z+2.*A)
  16 :       FTRC=(TERM2+TERM3+TERM4)/(C*TERM1*TRINOM)
  17 :       FTRC=LOG(TRINOM+Z*C12+B/(2.*C12))/C32-FTRC
  18 :       RETURN
  19 :       END
  20 :  
  21 :