Esope source files

   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 :