Télécharger afildr.eso

Retour à la liste

Numérotation des lignes :

afildr
  1. C AFILDR SOURCE CHAT 05/01/12 21:19:35 5004
  2. SUBROUTINE AFILDR(COUR,YMIN,YMAX,X,AY)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C
  6. -INC CCREEL
  7. C
  8. C*********************************************************************
  9. C Calcul du potentiel vecteur induit par un fil de courant COUR,
  10. C d'axe Oy:
  11. C - extension longitudinale YMIN a YMAX
  12. C - le point de calcul a pour coordonnees (X,0,0)
  13. C et on calcule (0,AY,0)
  14. C*********************************************************************
  15. C
  16. C calcul des grandeurs geometriques reduites
  17. C
  18. AMU=4.E-7*XPI
  19. COEF=COUR*AMU/(4.*XPI)
  20. C
  21. IF(X.NE.0.) THEN
  22. AY=COEF
  23. & *LOG((YMAX+SQRT(X**2+YMAX**2))/(YMIN+SQRT(X**2+YMIN**2)))
  24. ELSE IF(YMIN*YMAX.GT.0.) THEN
  25. AY=COEF*LOG(ABS(YMAX/YMIN))
  26. ELSE
  27. AY=XGRAND
  28. ENDIF
  29. RETURN
  30. END
  31.  
  32.  
  33.  
  34.  
  35.  

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