Esope source files

   1 : C ELPGFS    SOURCE    CHAT      05/01/12    23:37:36     5004           
   2 :       SUBROUTINE ELPGFS(R,XG)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)
   5 : C    Include contenant quelques constantes dont XPI :
   6 : -INC CCREEL
   7 : ************************************************************************
   8 : *     
   9 : *    FONCTIONDE GREEN STATIQUE PLAQUE KIRCHOFF
  10 : *       XG(1 A  5) F(R) ET SES 4 PREMIERES DERIVEES
  11 : ************************************************************************
  12 :       DIMENSION XG (5)
  13 : *     
  14 :       XLR = LOG(R)
  15 : *     
  16 :       XG(1) = (R*R*XLR     ) / (8*XPI)
  17 :       XG(2) = (2*R*XLR +  R) / (8*XPI)
  18 :       XG(3) = (  2*XLR +  3) / (8*XPI)
  19 :       XG(4) =             1 / (4*XPI * R)
  20 :       XG(5) =            -1 / (4*XPI * R*R)
  21 : *     
  22 :       RETURN
  23 :       END
  24 : 
  25 : 
  26 :  
  27 :  
  28 :