Télécharger la plaquette Cast3M


fr en

Télécharger elpi02.eso

Retour à la liste

Numérotation des lignes : 

elpi02

  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.  
  40.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales