Esope source files

   1 : C TUYROT    SOURCE    CHAT      05/01/13    03:57:27     5004           
   2 :       SUBROUTINE TUYROT(REL,LRE,P,ICLE)
   3 : C-----------------------------------------------------------------------        
   4 : C  ROUTINE DE PASSAGE D UNE MATRICE ELEMENTAIRE DES AXES LOCAUX AUX AXES        
   5 : C  GLOBAUX                                                                      
   6 : C                                                                               
   7 : C  ENTREE                                                                       
   8 : C         LRE    NOMBRE DE LIGNES DU TABLEAU REL                                
   9 : C         P      MATRICE DE PASSAGE                                             
  10 : C         REL    MATRICE ELEMENTAIRE EN AXES LOCAUX
  11 : C         ICLE   1 POUR L'INSTANT
  12 : C                                                                               
  13 : C  SORTIE                                                                       
  14 : C         REL    MATRICE ELEMENTAIRE EN AXES GLOBAUX                            
  15 : C                                                                               
  16 : C-----------------------------------------------------------------------        
  17 :       IMPLICIT INTEGER(I-N)
  18 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  19 :       DIMENSION REL(LRE,*),P(3,*)
  20 : *
  21 : *     CAS ICLE = 1
  22 : *
  23 :       IF(ICLE.EQ.1) THEN
  24 : *
  25 : *       BLOCS 1 ET 3 PUIS 2
  26 : *
  27 :         LRE2=LRE/2
  27 :         CALL TUYRO2(REL,LRE,P,0,0,1)
  27 :         CALL TUYRO2(REL,LRE,P,LRE2,LRE2,1)
  27 :         CALL TUYRO2(REL,LRE,P,0,LRE2,0)
  28 : *
  29 : *       SYMETRISATION
  30 : *
  31 :         DO 1 I=1,LRE
  32 :         DO 1 J=1,I
  33 :         REL(I,J)=REL(J,I)
  34 :  1      CONTINUE
  35 : *
  36 :       ENDIF
  37 :       RETURN                                                                    
  38 :       END                                                                       
  39 :