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 :
© Cast3M 2003 - All rights reserved.
Disclaimer