Télécharger la plaquette Cast3M


fr en

Télécharger epthhs.eso

Retour à la liste

Numérotation des lignes : 

epthhs

  1. C EPTHHS    SOURCE    BP208322  15/06/22    21:17:59     8543
  2.       SUBROUTINE EPTHHS(MELE,VALMAT,NSTRS,TEMP,RES,KERRE)
  3. *******************************************************************
  4. *  APPELE PAR ETHP : DEFORMATIONS THERMIQUES POUR LES MATERIAUX
  5. *  HOMOGENEISES ET SECTION
  6. *
  7. *   ENTREES :
  8. *    MELE   = NUMERO DE L'ELEMENT FINI
  9. *    VALMAT = TABLEAU DE MATERIAU
  10. *    NSTRS  = NOMBRE DE COMPOSANTES DE DEFORMATIONS
  11. *    TEMP   = TEMPERATURES
  12. *   SORTIES :
  13. *    RES =  TABLEAU DE DEFORMATIONS
  14. *    KERRE  = INDICATEUR D'ERREUR
  15. *
  16. *  AM1 JANV 95
  17. ***********************************************************************
  18.       IMPLICIT INTEGER(I-N)
  19.       IMPLICIT REAL*8(A-H,O-Z)
  20. *
  21.  
  22. -INC PPARAM
  23. -INC CCOPTIO
  24. -INC CCHAMP
  25. *
  26.       DIMENSION RES(NSTRS)
  27.       DIMENSION VALMAT(*)
  28. *
  29.       KERRE=0
  30. *
  31. *
  32. *     TEST SUR LA FORMULATION
  33. *
  34. *____________________________________________________________________
  35. *
  36. *               ELEMENTS POUTRES ET TUYAUX
  37. *____________________________________________________________________
  38. *
  39.       IF(MELE.EQ.29.OR.MELE.EQ.42)THEN
  40.             ALPH=VALMAT(1)
  41. *
  42.             RES(1)= ALPH*TEMP
  43. *
  44. *____________________________________________________________________
  45. *
  46. *               ELEMENTS BARRES CERCES ET POINT
  47. *____________________________________________________________________
  48. *
  49.       ELSEIF(MELE.EQ.46.OR.MELE.EQ.95.OR.MELE.EQ.45)THEN
  50. *
  51.        IF(MELE.EQ.45.AND.IFOUR.NE.-3) THEN
  52.         KERRE=86
  53.         GO TO 99
  54.        ENDIF
  55.        IF(MELE.EQ.95.AND.IFOUR.NE.0) THEN
  56.         KERRE=86
  57.         GO TO 99
  58.        ENDIF
  59. *
  60.        ALPH=VALMAT(1)
  61.        RES(1)= ALPH*TEMP
  62. *____________________________________________________________________
  63. *
  64. *  CAS DE LA POUTRE TIMO - MODELE SECTION
  65. *____________________________________________________________________
  66. *
  67.       ELSE IF(MELE.EQ.84) THEN
  68.          RES(1)=TEMP
  69.          RES(2)=0.D0
  70.          RES(3)=0.D0
  71.          RES(4)=0.D0
  72.          RES(5)=0.D0
  73.          RES(6)=0.D0
  74. *
  75. *   CAS NON TRAITES
  76. *
  77.       ELSE
  78.         KERRE=19
  79.       ENDIF
  80. *
  81.  99   CONTINUE
  82.       RETURN
  83.       END
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  

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