Sources Esope | Cast3M

tufvar
C TUFVAR    SOURCE    CHAT      05/01/13    03:56:56     5004
       SUBROUTINE TUFVAR(SIG,EPSCRP,EPSPLU,EPSMIN,EPSEFF,EPSH,M,
     &                   NSTRS)
      IMPLICIT INTEGER(I-N)
       IMPLICIT REAL *8 (A-H,O-Z)
       DIMENSION SIG(*)
       DATA X,Y/1.0D-06,0.0D0/
C _____________________________________________________________________
C  CETTE ROUTNE METS A JOUR LES VARIABLES INTERNES
C _____________________________________________________________________
C
       P6  =(EPSCRP-EPSPLU)
       SPLU= P6*SIG(6)
       GPLU= P6
       P6  =(EPSCRP-EPSMIN)
       SMIN= P6*SIG(6)
       GMIN= P6
       N=0
       IF(GPLU.LT.X.AND.GMIN.LT.X) THEN
       N=1
       GO TO 13
       ELSE IF(SPLU.GE.Y.AND.SMIN.LT.Y) THEN
       N=1
       GO TO 13
       ELSE IF(SPLU.GT.Y.AND.SMIN.LE.Y) THEN
       N=1
       GO TO 13
       ELSE IF(SPLU.LT.Y.AND.SMIN.GE.Y) THEN
       N=2
       GO TO 13
       ELSE IF(SPLU.LE.Y.AND.SMIN.GT.Y) THEN
       N=2
       GO TO 13
       ELSE IF(SPLU.GT.Y.AND.SMIN.GT.Y.AND.GMIN.GT.(GPLU+X)) THEN
       N=2
       GO TO 13
       ELSE IF(SPLU.GT.Y.AND.SMIN.GT.Y.AND.GMIN.LE.(GPLU+X)) THEN
       N=1
       GO TO 13
       ELSE IF(SPLU.LT.Y.AND.SMIN.LT.Y.AND.GMIN.GT.(GPLU+X)) THEN
       N=1
       GO TO 13
       ELSE IF(SPLU.LT.Y.AND.SMIN.LT.Y.AND.GMIN.LE.(GPLU+X)) THEN
       N=2
       ENDIF
   13  CONTINUE
       IF(N.EQ.0) GO TO 18
       IF(N.EQ.1) LL=0
       IF(N.EQ.2) LL=1
       IF(LL.EQ.M) GO TO 18
       IF(M.EQ.1) GO TO 15
       IF(GPLU.LE.EPSEFF) GO TO 18
       EPSMIN = EPSCRP
       EPSEFF=GPLU
       GO TO 18
   15  IF(GMIN.LE.EPSEFF) GO TO 18
       EPSPLU = EPSCRP
       EPSEFF=GMIN
   18  CONTINUE
       IF(LL.NE.0) GO TO 20
       P6  =(EPSCRP-EPSPLU)
       EPSH= P6
       GO TO 22
   20  CONTINUE
       P6  =(EPSCRP-EPSMIN)
       EPSH=P6
   22  CONTINUE
       M = LL
C ----------------------------------------------------------------------
       RETURN
       END