Sources Esope | Cast3M

dohooo
C DOHOOO    SOURCE    LJ1       14/11/13    21:15:20     8249
      SUBROUTINE DOHOOO(VELA,LHOOK,DDHOOK)
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
      IJ=1
      DO 100 JJ=1,LHOOK
      DO 100 II=1,LHOOK
      DDHOOK(II,JJ)=VELA(IJ)
      IJ=IJ+1
  100 CONTINUE
C
      RETURN
      END