Numérotation des lignes :

C FLUDE1    SOURCE    CB215821  16/04/21    21:16:54     8920      SUBROUTINE FLUDE1(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,     \$                       AN,BN,CN,NDI)CC_______________________________________________________________________CC SOUS PROGRAMME QUI CALCUL LES MATRICES DE DEFORMATIONC  DE FLUAGE DESSICCATIONC   D APRES LE MODELE BAZANTCCC_______________________________________________________________________C      IMPLICIT INTEGER(I-N)      IMPLICIT REAL*8(A-H,O-Z)      DIMENSION VARF(NVARI),CMAT(NMAT)      DIMENSION AN(*),BN(NDI,*),CN(NDI,*)C      CALL ZERO(AN,NSTRS,1)      CALL ZERO(BN,NDI,NSTRS)      CALL ZERO(CN,NDI,NSTRS)CC RECUPERATION DES VALEURS DES PARAMETRES MATERIAUC      XFDE = CMAT(25)      XNU  = CMAT(24)CC RECUPERATION DES TEMPERATURESC      TINI = CMAT(29)      TFIN = CMAT(30)      HINI = EXP(0.018*TINI/(1000.*8.314*293.))      HFIN = EXP(0.018*TFIN/(1000.*8.314*293.))CC CONSTRUCTION DE LA MATRICEC      ADR = 0.D0      BDR = XFDE*( ABS(HFIN - HINI) )/2.D0      CDR = BDRC      DO 10 I=1,NSTRS          AN(I) = 0.D0  10  CONTINUEC      IF(IFOUR.EQ.-2) THENCC  - CONTRAINTES PLANESC         BN(1,1)=1.D0         BN(1,2)=-XNU         BN(2,1)=BN(1,2)         BN(2,2)=BN(1,1)         BN(3,3)=1.D0+XNU      ELSE IF((IFOUR.EQ.-1).OR.(IFOUR.EQ.0)) THENCC  - DEFORMATION PLANE OU AXISYMETRIQUEC         BN(1,1)=1.D0         BN(1,2)=-XNU         BN(1,3)=BN(1,2)         BN(2,1)=BN(1,2)         BN(2,2)=BN(1,1)         BN(2,3)=BN(1,2)         BN(3,1)=BN(1,2)         BN(3,2)=BN(1,2)         BN(3,3)=BN(1,1)         BN(4,4)=1.D0+XNU      ELSECC  - CALCUL TRIDIMENSIONELC         BN(1,1)=1.D0         BN(1,2)=-XNU         BN(1,3)=BN(1,2)         BN(2,1)=BN(1,2)         BN(2,2)=BN(1,1)         BN(2,3)=BN(1,2)         BN(3,1)=BN(1,2)         BN(3,2)=BN(1,2)         BN(3,3)=BN(1,1)         BN(4,4)=1.D0+XNU         BN(5,5)=BN(4,4)         BN(6,6)=BN(4,4)      ENDIFC      DO 20 I=1,NSTRS        DO 20 J=1,NSTRS          CN(I,J) = CDR * BN(I,J)          BN(I,J) = BDR * BN(I,J)  20  CONTINUEC      END

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