Télécharger indic1.eso

Retour à la liste

Numérotation des lignes :

  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