Télécharger la plaquette Cast3M


fr en

Télécharger hookho.eso

Retour à la liste

Numérotation des lignes : 

hookho

  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.  
  31. -INC PPARAM
  32. -INC CCOPTIO
  33. C
  34.       DIMENSION VALMAT(*)
  35.       DIMENSION DDHOOK(LHOOK,*)
  36. C
  37. C     INITIALISATION
  38. C
  39.         CALL ZERO(DDHOOK,LHOOK,LHOOK)
  40. C
  41.         IF (IGAU.LE.NBGMAT.AND.(IB.LE.NELMAT.OR.NBGMAT.GT.1)) THEN
  42. C
  43. C  Cas des barres
  44. C
  45.          IF (MFR.EQ.27) THEN
  46.           YOU=VALMAT(1)
  47.           DDHOOK(1,1)=YOU*SECT
  48. C
  49.          ELSE
  50. C
  51. C  Option non definie
  52. C
  53.           IRET=0
  54.          ENDIF
  55.         ENDIF
  56. C
  57. C
  58.       RETURN
  59.       END
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  

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