Télécharger la plaquette Cast3M


fr en

Télécharger indic1.eso

Retour à la liste

Numérotation des lignes : 

indic1

  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
  43.        CALL DAMAG1(DKT,DKC,ENDC,ENDT,IFIS,IPLA,IC
  44.      &        ,BETJEF,NECH0,NECH1)
  45. C
  46. C~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  47. C                      Direction de traction
  48. C~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  49. C
  50.        IF ((IC.EQ.1).OR.(IC.EQ.3)) THEN
  51. C
  52.         IF (ENDT.GE.ENDL) THEN
  53.          IFIS=2
  54.         ENDIF
  55.        ENDIF
  56. C
  57. C~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  58. C                      Direction de compression
  59. C~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  60. C
  61.        IF (IC.EQ.2.OR.IC.EQ.3) THEN
  62. C
  63.         IF (ENDC.GE.DC) THEN
  64.          IPLA=2
  65.         ENDIF
  66.         IF (ENDC.GE.ENDL) THEN
  67.          IPLA=3
  68.         ENDIF
  69.        ENDIF
  70. C
  71.        RETURN
  72.        END
  73.  
  74.  
  75.  
  76.  

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