Esope source files

   1 : C ELPI02    SOURCE    CHAT      05/01/12    23:37:40     5004           
   2 :       SUBROUTINE ELPI02(XLP0
   3 :      &     ,XD,XNU
   4 :      &     ,S1)
   5 :       IMPLICIT INTEGER(I-N)
   6 :       IMPLICIT REAL*8(A-H,O-Z)
   7 : C    Include contenant quelques constantes dont XPI :
   8 : -INC CCREEL
   9 : ************************************************************************
  10 : *     
  11 : *    PLAQUES EN STATIQUE PAR EQUATION INTEGRALE:
  12 : *     
  13 : *       CALCUL DES TERMES "DIAGONAUX"
  14 : *        V  EXACT     V,N0   0
  15 : *        VN 0        VN,N0   EXACT
  16 : *        MN EXACT    MN,N0   0
  17 : *        KN 0        KN,N0   **** voir elpdy2
  18 : *     
  19 : ************************************************************************
  20 :       DIMENSION S1 (8)
  21 : *     
  22 :       A = XLP0/2
  23 :       XLA= LOG(A)
  24 :       S1(1) = (A**3) * (3*XLA - 1 )/ (36 * XPI)
  25 :       S1(2) = 0D0
  26 :       S1(3) = -1*XD*A* ( (2 + 2*XNU)*XLA - (1 - XNU )) /( 4*XPI)
  27 :       S1(4) = 0D0
  28 :       S1(5) = 0D0
  29 :       S1(6) = - A*(2*XLA  - 1 ) / (4 * XPI)
  30 :       S1(7) = 0D0
  31 :       S1(8) = 0D0
  32 : *     
  33 :       RETURN
  34 :       END
  35 : 
  36 : 
  37 :  
  38 :  
  39 :