Esope source files

   1 : C DOHOOO    SOURCE    CHAT      05/01/12    22:53:51     5004           
   2 :       SUBROUTINE DOHOOO(VELA,LHOOK,DDHOOK)                                      
   3 : C                                                                               
   4 : C=======================================================================        
   5 : C                                                                               
   6 : C  RANGEMENT D'UNE MATRICE DE HOOK DEJA CALCULEE                                
   7 : C                                                                               
   8 : C  ENTREES                                                                      
   9 : C     VELA() = materiau dans un tableau de travail                              
  10 : C     LHOOK  = taille de la matrice de hooke                                    
  11 : C                                                                               
  12 : C  SORTIES                                                                      
  13 : C     DDHOOK(LHOOK,LHOOK) = matrice de hooke                                    
  14 : C                                                                               
  15 : C     Passage en nouveau CHAMELEM par I.Monnier le 4 05 90                      
  16 : C=======================================================================        
  17 : C                                                                               
  18 :       IMPLICIT INTEGER(I-N)
  19 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  20 : C                                                                               
  21 :       DIMENSION VELA(*),DDHOOK(LHOOK,*)                                         
  22 : C                                                                               
  23 :       IJ=1                                                                      
  24 :       DO 100 JJ=1,LHOOK                                                         
  25 :       DO 100 II=1,LHOOK                                                         
  26 :       DDHOOK(II,JJ)=VELA(IJ)                                                    
  27 :       IJ=IJ+1                                                                   
  28 :   100 CONTINUE                                                                  
  29 : C                                                                               
  30 :       RETURN                                                                    
  31 :       END                                                                       
  32 :