Esope source files

   1 : C HOOKHO    SOURCE    AM        08/02/14    21:24:08     6050           
   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                                                                               
  36 :         CALL ZERO(DDHOOK,LHOOK,LHOOK)
  37 : C
  38 :         IF (IGAU.LE.NBGMAT.AND.(IB.LE.NELMAT.OR.NBGMAT.GT.1)) THEN 
  39 : C
  40 : C  Cas des barres
  41 : C
  42 :          IF (MFR.EQ.27) THEN
  43 :           YOU=VALMAT(1)                                                               
  44 :           DDHOOK(1,1)=YOU*SECT 
  45 : C
  46 :          ELSE
  47 : C                                                                               
  48 : C  Option non definie
  49 : C                                                                               
  50 :           IRET=0 
  51 :          ENDIF
  52 :         ENDIF
  53 : C
  54 : C
  55 :       RETURN             
  56 :       END
  57 : 
  58 : 
  59 :  
  60 :  
  61 :