1 : C TUFVAR SOURCE CHAT 05/01/13 03:56:56 5004 2 : SUBROUTINE TUFVAR(SIG,EPSCRP,EPSPLU,EPSMIN,EPSEFF,EPSH,M, 3 : & NSTRS) 4 : IMPLICIT INTEGER(I-N) 5 : IMPLICIT REAL *8 (A-H,O-Z) 6 : DIMENSION SIG(*) 7 : DATA X,Y/1.0D-06,0.0D0/ 8 : C _____________________________________________________________________ 9 : C CETTE ROUTNE METS A JOUR LES VARIABLES INTERNES 10 : C _____________________________________________________________________ 11 : C 12 : P6 =(EPSCRP-EPSPLU) 13 : SPLU= P6*SIG(6) 14 : GPLU= P6 15 : P6 =(EPSCRP-EPSMIN) 16 : SMIN= P6*SIG(6) 17 : GMIN= P6 18 : N=0 19 : IF(GPLU.LT.X.AND.GMIN.LT.X) THEN 20 : N=1 21 : GO TO 13 22 : ELSE IF(SPLU.GE.Y.AND.SMIN.LT.Y) THEN 23 : N=1 24 : GO TO 13 25 : ELSE IF(SPLU.GT.Y.AND.SMIN.LE.Y) THEN 26 : N=1 27 : GO TO 13 28 : ELSE IF(SPLU.LT.Y.AND.SMIN.GE.Y) THEN 29 : N=2 30 : GO TO 13 31 : ELSE IF(SPLU.LE.Y.AND.SMIN.GT.Y) THEN 32 : N=2 33 : GO TO 13 34 : ELSE IF(SPLU.GT.Y.AND.SMIN.GT.Y.AND.GMIN.GT.(GPLU+X)) THEN 35 : N=2 36 : GO TO 13 37 : ELSE IF(SPLU.GT.Y.AND.SMIN.GT.Y.AND.GMIN.LE.(GPLU+X)) THEN 38 : N=1 39 : GO TO 13 40 : ELSE IF(SPLU.LT.Y.AND.SMIN.LT.Y.AND.GMIN.GT.(GPLU+X)) THEN 41 : N=1 42 : GO TO 13 43 : ELSE IF(SPLU.LT.Y.AND.SMIN.LT.Y.AND.GMIN.LE.(GPLU+X)) THEN 44 : N=2 45 : ENDIF 46 : 13 CONTINUE 47 : IF(N.EQ.0) GO TO 18 48 : IF(N.EQ.1) LL=0 49 : IF(N.EQ.2) LL=1 50 : IF(LL.EQ.M) GO TO 18 51 : IF(M.EQ.1) GO TO 15 52 : IF(GPLU.LE.EPSEFF) GO TO 18 53 : EPSMIN = EPSCRP 54 : EPSEFF=GPLU 55 : GO TO 18 56 : 15 IF(GMIN.LE.EPSEFF) GO TO 18 57 : EPSPLU = EPSCRP 58 : EPSEFF=GMIN 59 : 18 CONTINUE 60 : IF(LL.NE.0) GO TO 20 61 : P6 =(EPSCRP-EPSPLU) 62 : EPSH= P6 63 : GO TO 22 64 : 20 CONTINUE 65 : P6 =(EPSCRP-EPSMIN) 66 : EPSH=P6 67 : 22 CONTINUE 68 : M = LL 69 : C ---------------------------------------------------------------------- 70 : RETURN 71 : END 72 :
© Cast3M 2003 - All rights reserved.
Disclaimer