Télécharger ftrc.eso

Retour à la liste

Numérotation des lignes :

  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.  
  22.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales