Sources Esope | Cast3M

elpgfs
C ELPGFS    SOURCE    CHAT      05/01/12    23:37:36     5004
      SUBROUTINE ELPGFS(R,XG)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C    Include contenant quelques constantes dont XPI :
-INC CCREEL
************************************************************************
*
*    FONCTIONDE GREEN STATIQUE PLAQUE KIRCHOFF
*       XG(1 A  5) F(R) ET SES 4 PREMIERES DERIVEES
************************************************************************
      DIMENSION XG (5)
*
      XLR = LOG(R)
*
      XG(1) = (R*R*XLR     ) / (8*XPI)
      XG(2) = (2*R*XLR +  R) / (8*XPI)
      XG(3) = (  2*XLR +  3) / (8*XPI)
      XG(4) =             1 / (4*XPI * R)
      XG(5) =            -1 / (4*XPI * R*R)
*
      RETURN
      END