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