C DOHOOO    SOURCE    CHAT      05/01/12    22:53:51     5004           
      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