Télécharger elpgfs.eso

Retour à la liste

Numérotation des lignes :

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

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