C INDIC1    SOURCE    CHAT      05/01/13    00:35:52     5004           
C INDIC1    SOURCE   NECHNECH   99/27/5
      SUBROUTINE INDIC1(DKT,DKC,IFIS,IPLA,IC,BETJEF,NECH0,NECH1)
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C
*      COMMON /DBETNECH0/DT,DC,ALFG,S0,ENDO
*      COMMON /DBETNECH1/ENDL        
      SEGMENT BETJEF
      REAL*8 AA,BETA,COLI,PALF,YOUN,XNU,GFC,GFT,CAR,ETA,TDEF,
     &          TCON,DPSTF1,DPSTF2,TETA,PDT
       INTEGER ICT,ICC,IMOD,IVIS,ITR,
     &                ISIM,IBB,IGAU,IZON
      ENDSEGMENT
      SEGMENT NECH0
       REAL*8 DT,DC,ALFG,S0,ENDO
      ENDSEGMENT
      SEGMENT NECH1
       REAL*8 ENDL
      ENDSEGMENT
*--------------------------------------------------------------------*
*                                                                    *
*    MISE A JOUR DES INDICATEURS D'ENDOMMAGEMENT                     *
*    ___________________________________________                     *
*                                                                    *
*    ENTREES:                                                        *
*                                                                    *
*        DKT       PARAMETRE D'ECROUISSAGE EN TRACTION               *
*        DKC       PARAMETRE D'ECROUISSAGE EN COMPRESSION            *
*        IC        =1 : COURBE de TRACTION                           *
*                  =2 : COURBE de COMPRESSION                        *
*                  =3 : COURBES TRACTION COMPRESSION                 *
*        ENDL      ENDOMMAGEMENT LIMIT                               *  
*                                                                    *
*    SORTIES:                                                        *
*                                                                    *
*        IFIS      INDICATEUR DE FISSURATION (TRACTION)              *
*        IPLA      INDICATEUR DE PLASTICITE  (COMPRESSION)           *
*                                                                    *
*--------------------------------------------------------------------*
C
       CALL DAMAG1(DKT,DKC,ENDC,ENDT,IFIS,IPLA,IC
     &        ,BETJEF,NECH0,NECH1)
C
C~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
C                      Direction de traction   
C~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
C
       IF ((IC.EQ.1).OR.(IC.EQ.3)) THEN
C      
        IF (ENDT.GE.ENDL) THEN
         IFIS=2
        ENDIF
       ENDIF
C
C~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
C                      Direction de compression   
C~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
C 
       IF (IC.EQ.2.OR.IC.EQ.3) THEN
C
        IF (ENDC.GE.DC) THEN
         IPLA=2
        ENDIF
        IF (ENDC.GE.ENDL) THEN
         IPLA=3
        ENDIF
       ENDIF
C
       RETURN
       END