Télécharger fplq2.eso

Retour à la liste

Numérotation des lignes :

fplq2
  1. C FPLQ2 SOURCE CHAT 05/01/13 00:07:30 5004
  2. FUNCTION FPLQ2(X,COST,Z,RHO)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. D2=X**2+Z**2
  6. XRCOS=X*RHO*COST
  7. C=SQRT(D2-2.*XRCOS+RHO**2)
  8. FPLQ2=-RHO/C
  9. RETURN
  10. END
  11.  
  12.  
  13.  

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