Télécharger la plaquette Cast3M


fr en

Télécharger savcr2.eso

Retour à la liste

Numérotation des lignes : 

savcr2

  1. C SAVCR2    SOURCE    FD218221  26/02/13    21:15:30     12462          
  2.       SUBROUTINE SAVCR2(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 PROPRE D APRES LE MODELE D AMORTISSEUR
  9. C  A LA FIN DU PAS DE TEMPS
  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 VALEURS DES PARAMETRES MATERIAU
  19. C
  20.       TDT  = CMAT(28)
  21. C
  22. C RECUPERATION DES VARIABLES INTERNES INITIALES
  23. C
  24. C   FLUAGE PROPRE
  25. C
  26.       EPSFLU(1) = VARF(15)
  27.       EPSFLU(2) = VARF(16)
  28.       EPSFLU(3) = VARF(17)
  29.       EPSFLU(4) = VARF(18)
  30.       EPSFLU(5) = VARF(19)
  31.       EPSFLU(6) = VARF(20)
  32. C
  33. C  TEST SI LE TEMPS EST NUL
  34. C
  35.       IF (TDT.EQ.0.D0) THEN
  36.         GOTO 30
  37.       ENDIF
  38. C
  39. C INITIALISATION DES MATRICES
  40. C
  41.       CALL ZERO(AN,NSTRS,1)
  42.       CALL ZERO(BN,NSTRS,NSTRS)
  43.       CALL ZERO(CN,NSTRS,NSTRS)
  44.       CALL ZERO(SIGFI,NSTRS,1)
  45. C
  46.       DO 10 I=1,NSTRS
  47.           SIGFI(I) = SIGF(I)
  48.   10  CONTINUE
  49. C
  50. C_______________________________________________________________________
  51. C
  52. C  FLUAGE PROPRE AMORTISSEUR
  53. C
  54.       NDI=NSTRS
  55.       CALL DEFCR2(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,
  56.      $                 AN,BN,CN,NDI)
  57. C
  58.       DO 20 I=1,NSTRS
  59.         EPSFLU(I) = EPSFLU(I) + AN(I)
  60.         DO 21 J=1,NSTRS
  61.           EPSFLU(I) = EPSFLU(I) + BN(I,J)*SIGEF(J) + CN(I,J)*SIGFI(J)
  62.   21    CONTINUE
  63.   20  CONTINUE
  64. C
  65.   30  CONTINUE
  66. C
  67. C  SAUVEGARDE DES DEFORMATIONS
  68. C
  69. C    FLUAGE PROPRE
  70. C
  71.       VARF(15) = EPSFLU(1)
  72.       VARF(16) = EPSFLU(2)
  73.       VARF(17) = EPSFLU(3)
  74.       VARF(18) = EPSFLU(4)
  75.       VARF(19) = EPSFLU(5)
  76.       VARF(20) = EPSFLU(6)
  77. C
  78.       END
  79.  
  80.  

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