Télécharger camcri.eso

Retour à la liste

Numérotation des lignes :

  1. C CAMCRI SOURCE FANDEUR 13/01/29 21:15:13 7683
  2. SUBROUTINE CAMCRI(SIG,PI,XMAT,XINV,Y,SELAS)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. DIMENSION SIG(*),XMAT(*)
  6. DIMENSION XINV(2),COVNMS(1)
  7. *
  8. ALFAH=0.D0
  9. COVNMS(1) = 0.D0
  10. XINV(1)=TRACE(SIG)/3.D0
  11. XINV(2)=VONMIS(SIG,1,ALFAH,COVNMS)
  12. COHE = XMAT(7)
  13. GM = XMAT(8)
  14. SELAS =(PI+COHE) * 0.5D0
  15. Y = (COHE-XINV(1)-SELAS)**2 + (XINV(2)/GM)**2
  16. Y = SQRT(Y)
  17. RETURN
  18. END
  19.  
  20.  
  21.  

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