Télécharger ftrc2.eso

Retour à la liste

Numérotation des lignes :

  1. C FTRC2 SOURCE CHAT 05/01/13 00:11:08 5004
  2. FUNCTION FTRC2(Z,A,B,C)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C12=SQRT(C)
  6. C32=C12**3
  7. Z2=Z**2
  8. TRINOM=A+B*Z+C*Z2
  9. TRINOM=SQRT(TRINOM)
  10. FTRC2=TRINOM/C-B/2.*LOG(TRINOM+Z*C12+B/(2.*C12))/C32
  11. RETURN
  12. END
  13.  
  14.  
  15.  

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