Télécharger la plaquette Cast3M


fr en

Télécharger uo2tes.eso

Retour à la liste

Numérotation des lignes : 

uo2tes

  1. C UO2TES    SOURCE    CHAT      05/01/13    03:59:30     5004
  2.       SUBROUTINE UO2TES(XINVL,W,WMAX,SMAX,SIGMA,XLTR,PRECIZ,
  3.      &                  BTR,WRUPT,
  4.      &                  IB,IGAU,ICAS,KERRE)
  5. *
  6.       IMPLICIT INTEGER(I-N)
  7.       IMPLICIT REAL*8(A-H,O-Z)
  8.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. C
  12. C
  13.       DIMENSION SIGMA(6)
  14. C
  15.       DIMENSION WMAX(3),SMAX(3),W(3),
  16.      &    XLTR(3),XINVL(3),WRUPT(3)
  17. C
  18.       DIMENSION WREOUV(3)
  19.  
  20. C
  21. C     ICAS = 1   AVANT APPEL A UO2CA
  22. C     ICAS = 2   APRES APPEL A UO2CA
  23. C
  24.       KERRE=0
  25. C
  26. C------------------------------------------------------------------------
  27. C            ON PASSE EN REVUE LES 3 DIRECTIONS POTENTIELLES
  28. C                          DE FISSURATION
  29. C------------------------------------------------------------------------
  30. C
  31.       DO 88 I=1,3
  32.  
  33.          IF(XINVL(I).NE.0.D0) THEN
  34.  
  35.            WREOUV(I)=BTR*MIN(WMAX(I),WRUPT(I))
  36. *
  37. *          TEST SUR OUVERTURE MINIMALE
  38. *
  39.            IF(W(I).LT.WREOUV(I)-1.D-10*WRUPT(I))  THEN
  40.              KERRE=70
  41.              WRITE(IOIMP,60000) ICAS
  42. 60000        FORMAT (/2X, '         PROBLEME   -  ICAS =',I3 //)
  43.              WRITE(IOIMP,67675) I,W(I), WREOUV(I),WMAX(I)
  44. 67675        FORMAT(2X,'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$' /
  45.      &        4X,'ATTENTION   W < WREOUV '/
  46.      &        2X, ' I=',I4,2X,'W=',1PE12.5,2X,'WREOUV=',1PE12.5,
  47.      &        2X,'WMAX=',1PE12.5/
  48.      &        2X,'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'/)
  49.           ENDIF
  50. *
  51. *          TEST SUR DEPASSEMENT DE LA LIMITE EN TRACTION
  52. *
  53.            IF(SIGMA(I)-XLTR(I).GT.PRECIZ) THEN
  54.              KERRE=70
  55.              WRITE(IOIMP,60000) ICAS
  56.              WRITE(IOIMP,77058) I,SIGMA(I)
  57. 77058        FORMAT(2X,'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$' /
  58.      &        4X,'ATTENTION   DEPASSEMENT DE LTR ' /
  59.      &        2X, ' I=',I4,2X,'SIGMA=',1PE12.5 /
  60.      &        2X,'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'/)
  61.            ENDIF
  62.  
  63. *
  64. *          TEST SUR SECANTE
  65. *
  66.           IF(BTR.NE.1.D0) THEN
  67.             IF(WMAX(I).LT.WRUPT(I).AND.W(I).GT.WREOUV(I)) THEN
  68.               PPP = SMAX(I)/( WMAX(I)-WREOUV(I))
  69.               ZZOB = W(I) -WREOUV(I)
  70.               SSS = ZZOB*PPP
  71.               IF(SIGMA(I).GT.PRECIZ.AND.
  72.      &           ABS(SIGMA(I)-SSS).GT.PRECIZ) THEN
  73.  
  74.              KERRE=70
  75.              WRITE(IOIMP,60000) ICAS
  76.                 WRITE(IOIMP,79912) I,SIGMA(I),SSS,WMAX(I),
  77.      &                       W(I),WREOUV(I),ZZOB,SMAX(I)
  78. 79912     FORMAT(2X,' ################################### '/
  79.      &    2X,'I=',I4,2X,'SIGMA=',1PE12.5,
  80.      &    2X,'SSS=',1PE12.5/2X,'WMAX=',1PE12.5/
  81.      &    2X,'W=',1PE12.5,2X,'WREOUV=',1PE12.5,
  82.      &    2X,'W-WREOUV = ',1PE12.5,2X,'SMAX= ',1PE12.5/
  83.      &        2X,' ################################### '/)
  84.            PRINT *,'SIGMA=',SIGMA(I)
  85.            PRINT *,'SSS  =',SSS
  86.            PRINT *,'WMAX =',WMAX(I)
  87.            PRINT *,'W    =',W(I)
  88.            PRINT *,'WREOUV=',WREOUV(I)
  89.            PRINT *,'W - WREOUV=',ZZOB
  90.            PRINT *,'SMAX    =',SMAX(I)
  91.  
  92.           ENDIF
  93.         ENDIF
  94.         ENDIF
  95.  
  96.       ENDIF
  97. 88    CONTINUE
  98.  
  99.       IF(KERRE.NE.0) THEN
  100.           WRITE(IOIMP,70902) IB,IGAU
  101. 70902     FORMAT(2X,'SORTIE OTTEST  IB=',I6,2X,'IGAU=',I3////)
  102.       ENDIF
  103. C
  104.       RETURN
  105.       END
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  

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