Télécharger foncf.eso

Retour à la liste

Numérotation des lignes :

  1. C FONCF SOURCE CB215821 17/07/21 21:15:10 9513
  2. C
  3. C*********************************************************************
  4. C
  5. FUNCTION FONCF(Q,X,Y,Zin,X0)
  6.  
  7. IMPLICIT INTEGER(I-N)
  8. IMPLICIT REAL*8(A-H,O-Z)
  9.  
  10. EPSIL2=1.D-8
  11. Z = Zin
  12.  
  13. Q2=SQRT(Q*Q+1.)
  14. D=Z+Q*X0
  15.  
  16. IF(D.EQ.0.) THEN
  17. Z=Z+EPSIL2
  18. ENDIF
  19. DELTA=SQRT((X-X0)**2+Y**2+(Q*X+Z)**2)
  20. C
  21. DELTA1=MAX(X*Q2+(Q*Z-X0)/Q2+DELTA,EPSIL2)
  22. DELTA2=MAX(Y+DELTA,EPSIL2)
  23. FONCF=Y*LOG(DELTA1)
  24. & +(X*Q2+(Q*Z-X0)/Q2)*LOG(DELTA2)
  25. & -(Z+Q*X0)/Q2*ATAN(Y*(X*(Q*Q+1.)+Q*Z-X0)/(Z+Q*X0)/DELTA)
  26. C
  27. RETURN
  28. END
  29.  
  30.  

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