Télécharger la plaquette Cast3M


fr en

Télécharger bet3d.eso

Retour à la liste

Numérotation des lignes : 

bet3d

  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