Télécharger hookho.eso

Retour à la liste

Numérotation des lignes :

  1. C HOOKHO SOURCE BP208322 15/06/22 21:19:14 8543
  2. SUBROUTINE HOOKHO(VALMAT,IB,IGAU,MFR,NBGMAT,NELMAT,SECT,
  3. + LHOOK,DDHOOK,IRET)
  4. C
  5. C----------------------------------------------------------------------
  6. C
  7. C Calcul de la matrice de HOOKE dans le cas d'un
  8. C matériau homogeneise
  9. C
  10. C Entrees:
  11. C --------
  12. C VALMAT tableau de materiau
  13. C IB numero de l'element
  14. C IGAU numero du point de Gauss
  15. C MFR numero de formulation
  16. C NBGMAT, NELMAT tailles des tableaux
  17. C SECT SECTION DE L'ELEMENT IB (<> 0 SI MFR.EQ.27)
  18. C LHOOK taille de la matrice de HOOKE
  19. C
  20. C Sorties:
  21. C --------
  22. C DDHOOK matrice de HOOKE
  23. C IRET = 1 si option existante, 0 sinon
  24. C
  25. C---------------------------------------------------------------------
  26. C
  27. IMPLICIT INTEGER(I-N)
  28. IMPLICIT REAL*8(A-H,O-Z)
  29. -INC CCHAMP
  30. -INC CCOPTIO
  31. C
  32. DIMENSION VALMAT(*)
  33. DIMENSION DDHOOK(LHOOK,*)
  34. C
  35. C INITIALISATION
  36. C
  37. CALL ZERO(DDHOOK,LHOOK,LHOOK)
  38. C
  39. IF (IGAU.LE.NBGMAT.AND.(IB.LE.NELMAT.OR.NBGMAT.GT.1)) THEN
  40. C
  41. C Cas des barres
  42. C
  43. IF (MFR.EQ.27) THEN
  44. YOU=VALMAT(1)
  45. DDHOOK(1,1)=YOU*SECT
  46. C
  47. ELSE
  48. C
  49. C Option non definie
  50. C
  51. IRET=0
  52. ENDIF
  53. ENDIF
  54. C
  55. C
  56. RETURN
  57. END
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  

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