Télécharger avendo.eso

Retour à la liste

Numérotation des lignes :

avendo
  1. C AVENDO SOURCE CHAT 05/01/12 21:30:23 5004
  2. SUBROUTINE AVENDO(EP,END,DEQ)
  3. C=======================================================================
  4. C CALCUL DE DEQ
  5. C=======================================================================
  6. C
  7. C CREATION : F.CORMERY
  8. C E.N.S.M.A - LMPM
  9. C DEC 1992
  10. C=======================================================================
  11. IMPLICIT INTEGER(I-N)
  12. IMPLICIT REAL*8(A-H,O-Z)
  13. REAL*8 LAMB,MUT
  14. C-----------------------------------------------------------------------
  15. C COMMONS SPECIFIQUES
  16. C-----------------------------------------------------------------------
  17. COMMON/APENTE/ LAMB,MUT,G,ALP1,BETA
  18. COMMON/MAED/ B,CO,CPRIME
  19. C-----------------------------------------------------------------------
  20. C------- DIMENSION ET DATA
  21. C-----------------------------------------------------------------------
  22. DIMENSION EP(*),END(*)
  23. DATA DEUX/2.D0/
  24. C-----------------------------------------------------------------------
  25. C------ ---------------------
  26. C------ TRACE DES PRODUITS
  27. C------ ---------------------
  28. TRAC1=EP(1)**2+EP(2)**2+EP(3)**2
  29. * +(EP(4)**2+EP(5)**2+EP(6)**2)/DEUX
  30.  
  31. TRAC2=EP(1)*END(1)+EP(2)*END(2)+EP(3)*END(3)
  32. * +EP(4)*END(4)+EP(5)*END(5)+EP(6)*END(6)
  33.  
  34. C------ --------------------
  35. C------ DOMMAGE EQUIVALENT
  36. C------ --------------------
  37. DEQ=SQRT((G**2/DEUX)*TRAC1)-B*G*TRAC2
  38.  
  39. C-----------------------------------------------------------------------
  40. RETURN
  41. END
  42.  
  43.  
  44.  
  45.  

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