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