Télécharger la plaquette Cast3M


fr en

Télécharger savcr.eso

Retour à la liste

Numérotation des lignes : 

savcr

  1. C SAVCR     SOURCE    FD218221  26/02/13    21:15:31     12462          
  2.       SUBROUTINE SAVCR(VARF,NVARI,CMAT,NMAT,SIGF,
  3.      $        SIGEF,NSTRS,IFOUR,EPSFLU,AN,BN,CN,KERRE)
  4. C
  5. C ROUTINE APPELE DANS CAMECAJA
  6. C_______________________________________________________________________
  7. C
  8. C SOUS PROGRAMME QUI CALCUL LA DEFORMATION 
  9. C DE FLUAGE 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(NSTRS)
  16.       DIMENSION AN(NSTRS),BN(NSTRS,NSTRS),CN(NSTRS,NSTRS)
  17.       DIMENSION EPSFL1(10),EPSFLA(10),EPSFLD(10)
  18.       DIMENSION SIGFI(10) 
  19. C
  20. C  TEST DE LA DIMENSION
  21. C
  22.       NDI=10
  23.       IF(NSTRS.GT.NDI) THEN
  24.         PRINT *, '  SAUFL1  - DIMENSION INSUFFISANTE '
  25.         KERRE = 99
  26.         RETURN
  27.       ENDIF
  28.  
  29. C
  30. C CALCUL DES DEFORMATIONS DE FLUAGE
  31. C   POUR LES 6 CHAINES DE KELVIN VOIGT
  32. C
  33. C   Chaine 1
  34. C
  35.       CALL SAVCR1(VARF,NVARI,CMAT,NMAT,SIGF,
  36.      $     SIGEF,NSTRS,IFOUR,1,EPSFL1,AN,BN,CN)
  37. C
  38. C   Amortisseur
  39. C
  40.       CALL SAVCR2(VARF,NVARI,CMAT,NMAT,SIGF,
  41.      $     SIGEF,NSTRS,IFOUR,EPSFLA,AN,BN,CN,SIGFI)
  42. C
  43. C   FLUAGE DESSICCATION
  44. C
  45.       CALL SAVCR3(VARF,NVARI,CMAT,NMAT,SIGF,
  46.      $     SIGEF,NSTRS,IFOUR,EPSFLD,AN,BN,CN,SIGFI)
  47. C
  48. C CALCUL DEFORMATION FLUAGE
  49. C
  50.       DO 10 I=1,NSTRS
  51.         EPSFLU(I) = EPSFL1(I) + EPSFLA(I) + EPSFLD(I)
  52.    10 CONTINUE
  53. C
  54.       END
  55.  
  56.  

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