Esope source files

   1 : C INDIC1    SOURCE    CHAT      05/01/13    00:35:52     5004           
   2 : C INDIC1    SOURCE   NECHNECH   99/27/5
   3 :       SUBROUTINE INDIC1(DKT,DKC,IFIS,IPLA,IC,BETJEF,NECH0,NECH1)
   4 : C
   5 :       IMPLICIT INTEGER(I-N)
   6 :       IMPLICIT REAL*8(A-H,O-Z)
   7 : C
   8 : *      COMMON /DBETNECH0/DT,DC,ALFG,S0,ENDO
   9 : *      COMMON /DBETNECH1/ENDL        
  10 :       SEGMENT BETJEF
  11 :       REAL*8 AA,BETA,COLI,PALF,YOUN,XNU,GFC,GFT,CAR,ETA,TDEF,
  12 :      &          TCON,DPSTF1,DPSTF2,TETA,PDT
  13 :        INTEGER ICT,ICC,IMOD,IVIS,ITR,
  14 :      &                ISIM,IBB,IGAU,IZON
  15 :       ENDSEGMENT
  16 :       SEGMENT NECH0
  17 :        REAL*8 DT,DC,ALFG,S0,ENDO
  18 :       ENDSEGMENT
  19 :       SEGMENT NECH1
  20 :        REAL*8 ENDL
  21 :       ENDSEGMENT
  22 : *--------------------------------------------------------------------*
  23 : *                                                                    *
  24 : *    MISE A JOUR DES INDICATEURS D'ENDOMMAGEMENT                     *
  25 : *    ___________________________________________                     *
  26 : *                                                                    *
  27 : *    ENTREES:                                                        *
  28 : *                                                                    *
  29 : *        DKT       PARAMETRE D'ECROUISSAGE EN TRACTION               *
  30 : *        DKC       PARAMETRE D'ECROUISSAGE EN COMPRESSION            *
  31 : *        IC        =1 : COURBE de TRACTION                           *
  32 : *                  =2 : COURBE de COMPRESSION                        *
  33 : *                  =3 : COURBES TRACTION COMPRESSION                 *
  34 : *        ENDL      ENDOMMAGEMENT LIMIT                               *  
  35 : *                                                                    *
  36 : *    SORTIES:                                                        *
  37 : *                                                                    *
  38 : *        IFIS      INDICATEUR DE FISSURATION (TRACTION)              *
  39 : *        IPLA      INDICATEUR DE PLASTICITE  (COMPRESSION)           *
  40 : *                                                                    *
  41 : *--------------------------------------------------------------------*
  42 : C
  42 :        CALL DAMAG1(DKT,DKC,ENDC,ENDT,IFIS,IPLA,IC
  43 :      &        ,BETJEF,NECH0,NECH1)
  44 : C
  45 : C~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  46 : C                      Direction de traction   
  47 : C~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  48 : C
  49 :        IF ((IC.EQ.1).OR.(IC.EQ.3)) THEN
  50 : C      
  51 :         IF (ENDT.GE.ENDL) THEN
  52 :          IFIS=2
  53 :         ENDIF
  54 :        ENDIF
  55 : C
  56 : C~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  57 : C                      Direction de compression   
  58 : C~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  59 : C 
  60 :        IF (IC.EQ.2.OR.IC.EQ.3) THEN
  61 : C
  62 :         IF (ENDC.GE.DC) THEN
  63 :          IPLA=2
  64 :         ENDIF
  65 :         IF (ENDC.GE.ENDL) THEN
  66 :          IPLA=3
  67 :         ENDIF
  68 :        ENDIF
  69 : C
  70 :        RETURN
  71 :        END         
  72 : 
  73 :  
  74 :