C ECOUV     SOURCE    STRU      08/12/22    21:15:13     6246
c     Sous-Programme du module MISTRAL0
C     --------------------------------------------------------------------------
      SUBROUTINE ECOUV (SEQ,RR,EPSEQ,TT,FI,PSI, DSESDS, IDP, PECOU,
     &                  NPECOU, VEPSP,VEPSE)
C     --------------------------------------------------------------------------
C     Calcul, pour les deformations viscoplastiques de nature IDP :
C     - de la vitesse de deformation equivalente VEPSE,
C     - des vitesses de deformation VEPSP(IJ,IDP),
C     en fonction :
C     - de la contrainte effective equivalente SEQ,
C     - de la contrainte seuil RR,
C     - de la deformation equivalente EPSEQ,
C     - de la temperature TT,
C     - du flux de neutrons rapides FI,
C     - de la variable de durcissement du a l'irradiation PSI,
C     - des derivees partielles DSESDS(IJ) de SEQ par rapport aux contraintes
C     "effectives" S(IJ) = SIG(IJ)-XX(IJ,IDP),
C     - des parametres de la loi d'ecoulement transmis dans PECOU,
C     NPECOU (incremente ici) etant en entree le nombre de ceux
C     correspondant aux deformations de natures IDPP < IDP.
C     --------------------------------------------------------------------------
      IMPLICIT INTEGER (I-N)
      IMPLICIT REAL*8 (A-H, O-Z)
      PARAMETER ( NPTTM = 5 , NPPSIM = 6 )
      PARAMETER ( NPEDIM = 13+6*NPTTM+NPPSIM )
c     (NPEDIM = 49)
      PARAMETER ( NVM=2 , NPATDM = 14 , NPFIM = 9 )
      PARAMETER ( NPERVM = 11+NVM*(NPEDIM+2*NPATDM+NPFIM+11) )
c     (NPERVM = 205)
      DIMENSION DSESDS(1:*), PECOU(1:*)
      DIMENSION PERV(1:NPERVM)
        DIMENSION VEPSP(1:6,0:*)
      NPECOU = NPECOU+1
      NPERV = NINT(PECOU(NPECOU))
        IF (SEQ.LE.RR) THEN
         DO IJ = 1,6
          VEPSP(IJ,IDP) = 0.
         END DO
       VEPSE = 0.
        ELSE
       DO IP = 1,NPERV
        PERV(IP) = PECOU(NPECOU+IP)
       END DO
       CALL ECOREV (SEQ,RR,EPSEQ,TT,FI,PSI, PERV, VEPSE)
       DO IJ = 1,6
          VEPSP(IJ,IDP) = DSESDS(IJ)*VEPSE
         END DO
        END IF
      NPECOU = NPECOU+NPERV
        RETURN
        END