Télécharger la plaquette Cast3M


fr en

Télécharger crplaw.eso

Retour à la liste

Numérotation des lignes : 

crplaw

  1. C CRPLAW    SOURCE    OF166741  25/11/04    21:15:40     12349          
  2.  
  3. C         CE SOUS PROGRAMME CALCULE LA VITESSE DE FLUAGE
  4. C
  5. C**********    ENTREES
  6. C             EPSI DEF INELASTIQUE EQUIVALENT
  7. C          SIGMA   CONTRAINTE EQUIVALENTE
  8. C         TET(I)  VALEUR DU CHAMP I A L'INSTANT OU ON FAIT LE CALCUL
  9. C                 LES CHAMPS SONT RANGES DS LE TABLEAU TET DS L'ORDRE
  10. C                 DS-LEQUEL ILS SONT DONNES : A CETTE EXCEPTION PRES
  11. C                 S'IL Y A 1 CHAMP DE TEMPERATURES C'EST LE PREMIER
  12. C                 PAR EX SI 2 CHAMPS TEMPERATURE ET DOSE
  13. C                                    TET(1)=TEMPERATURE
  14. C                                    TET(2)=DOSE
  15. C           TIME TEMPS
  16. C         DT PAS DE TEMPS
  17. C           ICLE =0   CALCUL DE LA VITESSE
  18. C           ICLE =1   CALCUL DE     DELTA EPSILON INELASTIQUE
  19. C        NCOURB   NUMERO DU MATERIAU INELASTIQUE
  20. C
  21. C*********    SORTIE PENTE
  22. C          CAS ICLE=0            PENTE = VITESSE DE FLUAGE
  23. C          CAS ICLE =1   PENTE=DELTA EPSILON INELASTIQUE
  24. C
  25. C            EXEMPLE    ON PROGRAMME ICI EPSILON POINT = A * SIGMA**N
  26.  
  27.       SUBROUTINE CRPLAW(PENTE,EPSI,SIGMA,TET,TIME,DT,ICLE,NCOURB)
  28.  
  29.       IMPLICIT INTEGER(I-N)
  30.       IMPLICIT REAL*8(A-H,O-Z)
  31.  
  32.       DATA BETA,DELTA,TZERO/3.34,.1,19.72/
  33.       DATA SI,GAMMA/1.44956E+5,1.3392939E+6/
  34.  
  35.       A=1.D-7
  36.       XN=5.0D0
  37.       PENTE=A*SIGMA**XN
  38.  
  39.       RETURN
  40.       END
  41.  
  42.  
  43.  

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