Télécharger la plaquette Cast3M


fr en

Télécharger douota.eso

Retour à la liste

Numérotation des lignes : 

douota

  1. C DOUOTA    SOURCE    CHAT      05/01/12    22:54:33     5004
  2.       SUBROUTINE DOUOTA(VELA,MATE,IFOU,MAPL, SIG,VAR, LHOOK,DDHOOK,IRET)
  3. C
  4. C=======================================================================
  5. C
  6. C  MATRICE DE HOOKE TANGENTE DES ELEMENTS JOINTS
  7. C
  8. C  ENTREES
  9. C     VELA() = materiau dans un tableau de travail
  10. C     MATE   = Nom du materiau
  11. C     IFOU   = num{ro d'harmonique de  fourier: IFOUR de CCOPTIO
  12. C     MAPL   = numero du materiau plastique
  13. C     LHOOK  = taille de la matrice de hooke
  14. C     SIG()  = etat de contrainte
  15. C     VAR()  = variables internes
  16. C
  17. C  SORTIES
  18. C     DDHOOK(LHOOK,LHOOK) = matrice de hooke
  19. C     IRET = 1 si option existante 0 SINON
  20. C
  21. C  Pierre Pegon (ISPRA) OCTOBER 93
  22. C=======================================================================
  23. C
  24.       IMPLICIT INTEGER(I-N)
  25.       IMPLICIT REAL*8(A-H,O-Z)
  26.       CHARACTER*8 MATE
  27. C
  28.       DIMENSION VELA(*),DDHOOK(LHOOK,*),SIG(*),VAR(*)
  29. C
  30.       IRET=1
  31.       CALL ZERO(DDHOOK,LHOOK,LHOOK)
  32. C
  33. C     MATERIAU ISOTROPE (SEULEMENT)
  34. C
  35.       IF(MATE.EQ.'ISOTROPE') THEN
  36. C
  37. C     MODELE DE JOINT DILATANT EN CONTRAINTE OU DEF. PLANE
  38. C
  39.         IF(MAPL.EQ.35.AND.
  40.      &    (IFOU.EQ.-3.OR.IFOU.EQ.-2.OR.IFOU.EQ.-1)) THEN
  41. C
  42.           DDHOOK(1,1)=VAR(7)
  43.           DDHOOK(1,2)=VAR(8)
  44.           DDHOOK(2,1)=VAR(9)
  45.           DDHOOK(2,2)=VAR(10)
  46. C
  47. C     MODELE DE JOINT_SOFT
  48. C
  49.         ELSEIF(MAPL.EQ.56.AND.
  50.      &     (IFOU.EQ.-3.OR.IFOU.EQ.-2.OR.IFOU.EQ.-1)) THEN
  51. C
  52.           DDHOOK(1,1)=VAR(3)
  53.           DDHOOK(1,2)=VAR(4)
  54.           DDHOOK(2,1)=0.D0
  55.           DDHOOK(2,2)=VAR(5)
  56. C
  57. C     MODELE D'ANCRAGE_ELIGEHAUSEN
  58. C
  59.         ELSEIF(MAPL.EQ.91.AND.
  60.      &     (IFOU.EQ.-3.OR.IFOU.EQ.-2.OR.IFOU.EQ.-1)) THEN
  61. C
  62.           DDHOOK(1,1)=VAR(4)
  63.           DDHOOK(1,2)=0.D0
  64.           DDHOOK(2,1)=0.D0
  65.           DDHOOK(2,2)=VAR(5)
  66. C
  67. C     OPTION NON DEFINIE
  68. C
  69.         ELSE
  70.           IRET=0
  71.         ENDIF
  72. C
  73. C     OPTION NON DEFINIE
  74. C
  75.       ELSE
  76.         IRET=0
  77.       ENDIF
  78. C
  79.       RETURN
  80.       END
  81.  
  82.  
  83.  
  84.  

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