Télécharger la plaquette Cast3M


fr en

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