Sources Esope | Cast3M

dohoco
C DOHOCO    SOURCE    LJ1       14/11/13    21:15:19     8249
 
      SUBROUTINE DOHOCO(VELA,LHOOK,DDHOOK,XL,DIAM)
C
C=======================================================================
C
C  RANGEMENT D'UNE MATRICE DE HOOK DEJA CALCULEE
C
C  ENTREES
C     VELA() = materiau dans un tableau de travail
C     LHOOK  = taille de la matrice de hooke
C
C  SORTIES
C     DDHOOK(LHOOK,LHOOK) = matrice de hooke
C
C     Passage en nouveau CHAMELEM par I.Monnier le 4 05 90
C=======================================================================
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C
      DIMENSION VELA(*),DDHOOK(LHOOK,*)
C
      XPI = 3.1415926535897931D0
C
      IJ=1
      DO 100 JJ=1,LHOOK
      DO 100 II=1,LHOOK
      DDHOOK(II,JJ)=VELA(IJ) * XL * DIAM
      IJ=IJ+1
  100 CONTINUE
      DDHOOK(1,1) = DDHOOK(1,1) * XPI
C
      RETURN
      END