Télécharger la plaquette Cast3M


fr en

Télécharger uo2te2.eso

Retour à la liste

Numérotation des lignes : 

uo2te2

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

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