Télécharger epthhs.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  22. -INC CCHAMP
  23. *
  24. DIMENSION RES(NSTRS)
  25. DIMENSION VALMAT(*)
  26. *
  27. KERRE=0
  28. *
  29. *
  30. * TEST SUR LA FORMULATION
  31. *
  32. *____________________________________________________________________
  33. *
  34. * ELEMENTS POUTRES ET TUYAUX
  35. *____________________________________________________________________
  36. *
  37. IF(MELE.EQ.29.OR.MELE.EQ.42)THEN
  38. ALPH=VALMAT(1)
  39. *
  40. RES(1)= ALPH*TEMP
  41. *
  42. *____________________________________________________________________
  43. *
  44. * ELEMENTS BARRES CERCES ET POINT
  45. *____________________________________________________________________
  46. *
  47. ELSEIF(MELE.EQ.46.OR.MELE.EQ.95.OR.MELE.EQ.45)THEN
  48. *
  49. IF(MELE.EQ.45.AND.IFOUR.NE.-3) THEN
  50. KERRE=86
  51. GO TO 99
  52. ENDIF
  53. IF(MELE.EQ.95.AND.IFOUR.NE.0) THEN
  54. KERRE=86
  55. GO TO 99
  56. ENDIF
  57. *
  58. ALPH=VALMAT(1)
  59. RES(1)= ALPH*TEMP
  60. *____________________________________________________________________
  61. *
  62. * CAS DE LA POUTRE TIMO - MODELE SECTION
  63. *____________________________________________________________________
  64. *
  65. ELSE IF(MELE.EQ.84) THEN
  66. RES(1)=TEMP
  67. RES(2)=0.D0
  68. RES(3)=0.D0
  69. RES(4)=0.D0
  70. RES(5)=0.D0
  71. RES(6)=0.D0
  72. *
  73. * CAS NON TRAITES
  74. *
  75. ELSE
  76. KERRE=19
  77. ENDIF
  78. *
  79. 99 CONTINUE
  80. RETURN
  81. END
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  

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