Télécharger fplq1.eso

Retour à la liste

Numérotation des lignes :

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

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