Télécharger bet3d.eso

Retour à la liste

Numérotation des lignes :

  1. C BET3D SOURCE PV 17/12/08 21:15:10 9660
  2. C URGCST SOURCE PV 00/12/22 21:16:39 4064
  3. SUBROUTINE BET3D(WRK52,WRK53,WRK54,WRK4,NSTRSS,
  4. 1 IFOUR,DDT,IB,IGAU,HCAR)
  5. C---------------------------------------------------------------------
  6. C MODELE BETON 3D
  7. C---------------------------------------------------------------------
  8. C
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8(A-H,O-Z)
  11. -INC DECHE
  12. C
  13. SEGMENT WRK4
  14. REAL*8 XE(3,NBNN)
  15. ENDSEGMENT
  16. C
  17. SEGMENT BETINSA
  18. REAL*8 RT,RC,YOUN,XNU,GFT,GFC,CAR
  19. REAL*8 DKT,DKC,SEQT,SEQC,ENDT,ENDC
  20. INTEGER IFIS,IPLA,IBB,IGAU1
  21. ENDSEGMENT
  22. C
  23. NCOMAT = nmatt
  24. NBNN=XE(/2)
  25. NVARI=VAR0(/1)
  26. SEGINI BETINSA
  27. C
  28. CAR = HCAR
  29. C
  30. YOUN = XMAT( 1)
  31. XNU = XMAT( 2)
  32. RHO = XMAT( 3)
  33. ALPH = XMAT( 4)
  34. RT = XMAT( 5)
  35. RC = XMAT( 6)
  36. GFT = XMAT( 7)
  37. GFC = XMAT( 8)
  38. C
  39. C---------------------------------------------------------------------
  40. C
  41. C CORRESPONDANCE DES VARIABLES POUR URGCST
  42. C
  43. C
  44. IBB = IB
  45. IGAU1 = IGAU
  46. C
  47. C------------------------------------------------------
  48. C INITIALISATION DES VARIABLES INTERNES
  49. C------------------------------------------------------
  50. C A: MODELE PLASTIQUE
  51. C
  52. IFIS = INT(REAL(VAR0(1)))
  53. IPLA = INT(REAL(VAR0(2)))
  54. SEQT = VAR0(3)
  55. SEQC = VAR0(4)
  56. DKT = VAR0(5)
  57. DKC = VAR0(6)
  58. ENDT = VAR0(7)
  59. ENDC = VAR0(8)
  60. IF (VAR0(9).EQ.0.D0) THEN
  61. ******* COERAND = RAND()
  62. CALL TDRAND(COERAND)
  63. ELSE
  64. COERAND = VAR0(9)
  65. ENDIF
  66. RT = (1. + ((2.*COERAND - 1.) * 0.1))*RT
  67. C
  68. IF (SEQT.EQ.0.D0) THEN
  69. SEQT = RT
  70. ENDIF
  71. IF (SEQC.EQ.0.D0) THEN
  72. SEQC = RC/3.D0
  73. ENDIF
  74. C
  75. C---------------------------------------------------------------------
  76. C
  77. GO TO (10,10,10,10,10,30),NSTRSS
  78. 10 CONTINUE
  79. KERRE=437
  80. WRITE(*,*) '!! ATTENTION DANS BET3D NSTRSS=',NSTRSS
  81. STOP
  82. GO TO 1000
  83. C
  84. 40 CONTINUE
  85. C
  86. 30 CONTINUE
  87. C
  88. C---------------------------------------------------------------------
  89. C
  90. CALL BONE3D(SIG0,SIGF,DEPST,NSTRSS,BETINSA)
  91. C
  92. C---------------------------------------------------------------------
  93. C ACTUALISATION DES VARIABLES INTERNES
  94. C---------------------------------------------------------------------
  95. C A: MODELE PLASTIQUE
  96. C
  97. VARF( 1)=FLOAT(IFIS)
  98. VARF( 2)=FLOAT(IPLA)
  99. VARF( 3)=SEQT
  100. VARF( 4)=SEQC
  101. VARF( 5)=DKT
  102. VARF( 6)=DKC
  103. VARF( 7)=ENDT
  104. VARF( 8)=ENDC
  105. VARF( 9)=COERAND
  106.  
  107. C
  108. C---------------------------------------------------------------------
  109. C
  110. 1000 CONTINUE
  111. C
  112. SEGSUP BETINSA
  113. C
  114. RETURN
  115. END
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  

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