Télécharger ftan.eso

Retour à la liste

Numérotation des lignes :

  1. C FTAN SOURCE CHAT 05/01/13 00:11:01 5004
  2. FUNCTION FTAN(X,Y,Z,SQ)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. FTAN=0.D0
  6. IF((X.EQ.0.D0).OR.(SQ.EQ.0.D0)) RETURN
  7. FTAN= X*ATAN((Y*Z)/(X*SQ))
  8. RETURN
  9. END
  10.  
  11.  

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