Télécharger fz3.eso

Retour à la liste

Numérotation des lignes :

  1. C FZ3 SOURCE CHAT 05/01/13 00:14:18 5004
  2. FUNCTION FZ3(D,XA,XU,SQA,SQU,RSINT)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. IF(RSINT.NE.0.D0) GOTO 2
  6. 1 FZ3=0.D0
  7. RETURN
  8. 2 FZ3=-RSINT*(ATAN((D*XA)/(RSINT*SQA))-ATAN((D*XU)/(RSINT*SQU)))
  9. RETURN
  10. END
  11.  
  12.  

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