Télécharger la plaquette Cast3M


fr en

Télécharger defcr.eso

Retour à la liste

Numérotation des lignes : 

defcr

  1. C DEFCR     SOURCE    FD218221  26/02/13    21:15:13     12462          
  2.       SUBROUTINE DEFCR(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,
  3.      $                  AN,BN,CN,KERRE)
  4. C
  5. C ROUTINE APPELE DANS CAMECAJA
  6. C_______________________________________________________________________
  7. C
  8. C SOUS PROGRAMME QUI CALCUL LES MATRICES DE DEFORMATION 
  9. C  DE FLUAGE  
  10. C
  11. C_______________________________________________________________________
  12. C
  13.       IMPLICIT INTEGER(I-N)
  14.       IMPLICIT REAL*8(A-H,O-Z)
  15.       DIMENSION VARF(NVARI),CMAT(NMAT)
  16.       DIMENSION AN(NSTRS),BN(NSTRS,NSTRS),CN(NSTRS,NSTRS)
  17.       DIMENSION A1(10),B1(10,10),C1(10,10)
  18.       DIMENSION AA(10),BA(10,10),CA(10,10)
  19.       DIMENSION AD(10),BD(10,10),CD(10,10)
  20.  
  21. C  TEST SUR LA DIMENSION
  22.  
  23.       NDI = 10
  24.       IF(NSTRS.GT.NDI) THEN
  25.          PRINT *, ' FLUD - DIMENSION INSUFFISANTE'
  26.          KERRE=99
  27.          RETURN
  28.       ENDIF
  29. C
  30. C CALCUL DES DEFORMATIONS DE FLUAGE
  31. C   POUR LES 3 UNITE DE FLUAGE
  32. C
  33. C   Chaine 1
  34. C
  35.       NN=1
  36.       CALL DEFCR1(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,
  37.      $                       A1,B1,C1,NN,NDI)
  38. C
  39. C   Amortisseur
  40. C
  41.       CALL DEFCR2(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,
  42.      $                       AA,BA,CA,NDI)
  43. C
  44. C   fluage dessiccation
  45. C
  46.       CALL DEFCR3(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,
  47.      $                       AD,BD,CD,NDI)
  48. C
  49. C
  50. C   ASSEMBLAGE DES MATRICES
  51. C
  52.       DO 10 I=1,NSTRS
  53.         AN(I) = A1(I) + AA(I) + AD(I)
  54.         DO 11 J=1,NSTRS
  55.           BN(I,J) = B1(I,J) + BA(I,J) + BD(I,J)
  56.           CN(I,J) = C1(I,J) + CA(I,J) + CD(I,J)
  57.    11   CONTINUE
  58.    10 CONTINUE
  59. C
  60.       END
  61.  
  62.  

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