Télécharger bfildr.eso

Retour à la liste

Numérotation des lignes :

  1. C BFILDR SOURCE CHAT 05/01/12 21:39:16 5004
  2. SUBROUTINE BFILDR(COUR,YMIN,YMAX,X,BZ)
  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 champ 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 le champ (0,0,BZ)
  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*X)
  20. C
  21. BZ=-COEF*(YMAX/SQRT(X**2+YMAX**2)-YMIN/SQRT(X**2+YMIN**2))
  22. RETURN
  23. END
  24.  
  25.  
  26.  
  27.  
  28.  

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