Télécharger ckrit.eso

Retour à la liste

Numérotation des lignes :

  1. C CKRIT SOURCE CHAT 05/01/12 22:04:03 5004
  2. SUBROUTINE CKRIT(IMAPLA,STOT,ITYP,XMAT,ALFAH,COVNMS,XINV,Y)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. DIMENSION STOT(*),XMAT(*),COVNMS(*),XINV(*)
  6. IMP1=IMAPLA+1
  7. XINV(1)=0.D00
  8. GO TO(2001,2001,2000,2000,2001,2005,2000,2006),IMP1
  9. 2001 Y=VONMIS(STOT,ITYP,ALFAH,COVNMS)
  10. XINV(2)=Y
  11. RETURN
  12. 2005 XINV(1)=TRACE(STOT)
  13. XINV(2)=VONMIS(STOT,ITYP,ALFAH,COVNMS)
  14. Y=XMAT(1)*XINV(1)+XMAT(2)*XINV(2)
  15. RETURN
  16. 2006 BETO=COVNMS(1)
  17. DBET=EXP(BETO)
  18. BBET=XMAT(1)*XMAT(2)*DBET/(1.-XMAT(2)+XMAT(2)*DBET)
  19. XINV(1)=TRACE(STOT)
  20. XINV(2)=VONMIS(STOT,ITYP,ALFAH,COVNMS)
  21. Y=XMAT(3)*BBET*EXP(XINV(1)/(XMAT(1)*3))+XINV(2)
  22. 2000 CONTINUE
  23. RETURN
  24. END
  25.  
  26.  

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