Esope source files

   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 :