Télécharger la plaquette Cast3M


fr en

Télécharger saufl1.eso

Retour à la liste

Numérotation des lignes : 

saufl1

  1. C SAUFL1    SOURCE    AM        09/12/08    21:15:23     6582
  2.       SUBROUTINE SAUFL1(VARF,NVARI,CMAT,NMAT,SIGF,
  3.      $        SIGEF,NSTRS,IFOUR,EPSFLU,AN,BN,CN,KERRE)
  4. C
  5. C ROUTINE APPELE DANS CAMECA
  6. C_______________________________________________________________________
  7. C
  8. C SOUS PROGRAMME QUI CALCUL LA DEFORMATION
  9. C DE FLUAGE PROPRE 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),EPSFL2(10),EPSFL3(10)
  18.       DIMENSION EPSFL4(10),EPSFL5(10),EPSFL6(10)
  19.       DIMENSION EPSFLA(10),EPSFLD(10)
  20.       DIMENSION SIGFI(10)
  21. C
  22. C  TEST DE LA DIMENSION
  23. C
  24.       NDI=10
  25.       IF(NSTRS.GT.NDI) THEN
  26.         PRINT *, '  SAUFL1  - DIMENSION INSUFFISANTE '
  27.         KERRE = 99
  28.         RETURN
  29.       ENDIF
  30.  
  31. C
  32. C CALCUL DES DEFORMATIONS DE FLUAGE
  33. C   POUR LES 6 CHAINES DE KELVIN VOIGT
  34. C
  35. C   Chaine 1
  36. C
  37.       CALL SAUFLD(VARF,NVARI,CMAT,NMAT,SIGF,
  38.      $     SIGEF,NSTRS,IFOUR,1,EPSFL1,AN,BN,CN)
  39. C
  40. C   Chaine 2
  41. C
  42.       CALL SAUFLD(VARF,NVARI,CMAT,NMAT,SIGF,
  43.      $     SIGEF,NSTRS,IFOUR,2,EPSFL2,AN,BN,CN)
  44. C
  45. C   Chaine 3
  46. C
  47.       CALL SAUFLD(VARF,NVARI,CMAT,NMAT,SIGF,
  48.      $     SIGEF,NSTRS,IFOUR,3,EPSFL3,AN,BN,CN)
  49. C
  50. C   Chaine 4
  51. C
  52.       CALL SAUFLD(VARF,NVARI,CMAT,NMAT ,SIGF,
  53.      $     SIGEF,NSTRS,IFOUR,4,EPSFL4,AN,BN,CN)
  54. C
  55. C   Chaine 5
  56. C
  57.       CALL SAUFLD(VARF,NVARI,CMAT,NMAT,SIGF,
  58.      $     SIGEF,NSTRS,IFOUR,5,EPSFL5,AN,BN,CN)
  59. C
  60. C   Chaine 6
  61. C
  62.       CALL SAUFLD(VARF,NVARI,CMAT,NMAT,SIGF,
  63.      $     SIGEF,NSTRS,IFOUR,6,EPSFL6,AN,BN,CN)
  64. C
  65. C   Amortisseur
  66. C
  67.       CALL SAUFLA(VARF,NVARI,CMAT,NMAT,SIGF,
  68.      $     SIGEF,NSTRS,IFOUR,EPSFLA,AN,BN,CN,SIGFI)
  69. C
  70. C   FLUAGE DESSICCATION
  71. C
  72.       CALL SAUFL2(VARF,NVARI,CMAT,NMAT,SIGF,
  73.      $     SIGEF,NSTRS,IFOUR,EPSFLD,AN,BN,CN,SIGFI)
  74. C
  75. C CALCUL DEFORMATION FLUAGE
  76. C
  77.       DO 10 I=1,NSTRS
  78.         EPSFLU(I) = EPSFL1(I) + EPSFL2(I) + EPSFL3(I)
  79.      $              + EPSFL4(I) + EPSFL5(I) + EPSFL6(I)
  80.      $              + EPSFLA(I) + EPSFLD(I)
  81.    10   CONTINUE
  82. C
  83.       END
  84.  
  85.  
  86.  

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