Télécharger la plaquette Cast3M


fr en

Télécharger savcr3.eso

Retour à la liste

Numérotation des lignes : 

savcr3

  1. C SAVCR3    SOURCE    FD218221  26/02/13    21:15:30     12462          
  2.       SUBROUTINE SAVCR3(VARF,NVARI,CMAT,NMAT,SIGF,
  3.      $           SIGEF,NSTRS,IFOUR,EPSFLU,AN,BN,CN,SIGFI)
  4. C
  5. C_______________________________________________________________________
  6. C
  7. C  SOUS PROGRAMME APPELE PAR SAVCR QUI CALCUL LES MATRICES DE 
  8. C  DEFORMATION DE FLUAGE DE DESSICCATION A LA FIN DU PAS DE TEMPS
  9. C  D APRES LE MODELE DE F. BENBOUDJEMA (similaire au modele de Bazant) 
  10. C_______________________________________________________________________
  11. C
  12.       IMPLICIT INTEGER(I-N)
  13.       IMPLICIT REAL*8(A-H,O-Z)
  14.       DIMENSION VARF(NVARI),CMAT(NMAT),SIGF(NSTRS),SIGEF(NSTRS)
  15.       DIMENSION EPSFLU(6),SIGFI(NSTRS)
  16.       DIMENSION AN(NSTRS),BN(NSTRS,NSTRS),CN(NSTRS,NSTRS)
  17. C
  18. C RECUPERATION DES VARIABLES INTERNES INITIALES
  19. C
  20. C   FLUAGE PROPRE
  21. C
  22.       EPSFLU(1) = VARF(21)
  23.       EPSFLU(2) = VARF(22)
  24.       EPSFLU(3) = VARF(23)
  25.       EPSFLU(4) = VARF(24)
  26.       EPSFLU(5) = VARF(25)
  27.       EPSFLU(6) = VARF(26)
  28. C
  29. C  TEST SI LE TEMPS EST NUL
  30. C
  31.       TDT = CMAT(28)
  32.       IF (TDT.EQ.0.D0) THEN
  33.         GOTO 30
  34.       ENDIF
  35. C
  36. C INITIALISATION DES MATRICES
  37. C
  38.       CALL ZERO(AN,NSTRS,1)
  39.       CALL ZERO(BN,NSTRS,NSTRS)
  40.       CALL ZERO(CN,NSTRS,NSTRS)
  41.       CALL ZERO(SIGFI,NSTRS,1)
  42. C
  43.       DO 10 I=1,NSTRS
  44.           SIGFI(I) = SIGF(I)
  45.   10  CONTINUE
  46. C
  47. C_______________________________________________________________________
  48. C
  49. C  FLUAGE PROPRE AMORTISSEUR
  50. C
  51.       NDI=NSTRS
  52.       CALL DEFCR3(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,
  53.      $                 AN,BN,CN,NDI)
  54. C
  55.       DO 20 I=1,NSTRS
  56.         EPSFLU(I) = EPSFLU(I) + AN(I)
  57.         DO 21 J=1,NSTRS
  58.           EPSFLU(I) = EPSFLU(I) + BN(I,J)*SIGEF(J) + CN(I,J)*SIGFI(J)
  59.   21    CONTINUE
  60.   20  CONTINUE
  61. C
  62.   30  CONTINUE
  63. C
  64. C  SAUVEGARDE DES DEFORMATIONS
  65. C
  66. C    FLUAGE DESSICCATION
  67. C
  68.       VARF(21) = EPSFLU(1)
  69.       VARF(22) = EPSFLU(2)
  70.       VARF(23) = EPSFLU(3)
  71.       VARF(24) = EPSFLU(4)
  72.       VARF(25) = EPSFLU(5)
  73.       VARF(26) = EPSFLU(6)
  74. C
  75.       RETURN
  76.       END
  77.  
  78.  

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