Esope source files

   1 : C UO2TE2    SOURCE    STRU      06/03/20    21:16:08     5340           
   2 :       SUBROUTINE UO2TE2(XINVL,W,WMAX,SIGMA,XLTR,PRECIZ,
   3 :      &                  IB,IGAU,ICAS,KERRE)
   4 : *
   5 :       IMPLICIT INTEGER(I-N)
   6 :       IMPLICIT REAL*8(A-H,O-Z)     
   7 : -INC CCOPTIO
   8 : C
   9 :       PARAMETER (XZER=0.D0) 
  10 : C
  11 :       DIMENSION SIGMA(6)
  12 : C
  13 :       DIMENSION WMAX(3),W(3),XLTR(3),XINVL(3)
  14 : C
  15 : C
  16 : C     ICAS = 1   AVANT APPEL A UO2CA
  17 : C     ICAS = 2   APRES APPEL A UO2CA
  18 : C
  19 :       KERRE=0
  20 : C
  21 : C------------------------------------------------------------------------
  22 : C            ON PASSE EN REVUE LES 3 DIRECTIONS POTENTIELLES
  23 : C                          DE FISSURATION
  24 : C------------------------------------------------------------------------
  25 : C
  26 :       DO 88 I=1,3
  27 : 
  28 :          IF(XINVL(I).NE.0.D0) THEN
  29 : C
  30 : C          TEST SUR OUVERTURE MINIMALE
  31 : C
  32 :            IF(W(I).LT.XZER)  THEN
  33 :              KERRE=989
  34 :              WRITE(IOIMP,60000) ICAS
  35 : 60000        FORMAT (/2X, '         PROBLEME   -  ICAS =',I3 //)
  36 :              WRITE(IOIMP,67675) I,W(I),WMAX(I)
  37 : 67675        FORMAT(2X,'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$' /
  38 :      &        4X,'ATTENTION   W < 0 '/
  39 :      &        2X, ' I=',I4,2X,'W=',1PE12.5,2X,'WMAX=',1PE12.5/
  40 :      &        2X,'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'/)
  41 :           ENDIF
  42 : C
  43 : C          TEST SUR DEPASSEMENT DE LA LIMITE EN TRACTION
  44 : C
  45 :            IF(SIGMA(I)-XLTR(I).GT.PRECIZ) THEN
  46 :              KERRE=989
  47 :              WRITE(IOIMP,60000) ICAS
  48 :              WRITE(IOIMP,77058) I,SIGMA(I)
  49 : 77058        FORMAT(2X,'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$' /
  50 :      &        4X,'ATTENTION   DEPASSEMENT DE LTR ' /
  51 :      &        2X, ' I=',I4,2X,'SIGMA=',1PE12.5 /
  52 :      &        2X,'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'/)
  53 :            ENDIF
  54 : C
  55 : C          TEST SUR CONTRAINTE QUAND IL Y A FRACTURATION
  56 : C
  57 :            IF(WMAX(I).GT.PRECIZ) THEN
  58 :               IF(SIGMA(I).GT.PRECIZ) THEN
  59 :                 KERRE=989
  60 :                 WRITE(IOIMP,60000) ICAS
  61 :                 WRITE(IOIMP,77078) I,WMAX(I),SIGMA(I)
  62 : 77078           FORMAT(2X,'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'/
  63 :      &          4X,'ATTENTION  FRACTURATION ET CONTRAINTE POSITIVE '/
  64 :      &          2X, ' I=',I4,2X,'WMAX=',1PE12.5,2X,'SIGMA=',1PE12.5 /
  65 :      &          2X,'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'/)
  66 :               ENDIF
  67 :            ENDIF
  68 : 
  69 :       ENDIF
  70 : 88    CONTINUE
  71 : 
  72 :       IF(KERRE.NE.0) THEN
  73 :           WRITE(IOIMP,70902) IB,IGAU
  74 : 70902     FORMAT(2X,'SORTIE UO2TE2  IB=',I6,2X,'IGAU=',I3////)
  75 :       ENDIF
  76 : C
  77 :       RETURN
  78 :       END
  79 :