Télécharger cdp.eso

Retour à la liste

Numérotation des lignes :

  1. C CDP SOURCE CHAT 05/01/12 21:51:34 5004
  2. SUBROUTINE CDP(TENS,ADP,RDP,VDP)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. DIMENSION TENS(3)
  6. C
  7. C----------------------------------------------------
  8. C CETTE ROUTINE PERMET DE CALCULER LA VALEUR |
  9. C DU DRUCKER PRAGER |
  10. C----------------------------------------------------
  11. C
  12. VDP=TENS(1)*TENS(1)+TENS(2)*TENS(2)-TENS(1)*TENS(2)
  13. 1 +3.D0*TENS(3)*TENS(3)
  14. VDP=SQRT(VDP)+ADP*(TENS(1)+TENS(2))-RDP
  15. RETURN
  16. END
  17.  
  18.  

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