C TUYROT    SOURCE    CHAT      05/01/13    03:57:27     5004           
      SUBROUTINE TUYROT(REL,LRE,P,ICLE)
C-----------------------------------------------------------------------        
C  ROUTINE DE PASSAGE D UNE MATRICE ELEMENTAIRE DES AXES LOCAUX AUX AXES        
C  GLOBAUX                                                                      
C                                                                               
C  ENTREE                                                                       
C         LRE    NOMBRE DE LIGNES DU TABLEAU REL                                
C         P      MATRICE DE PASSAGE                                             
C         REL    MATRICE ELEMENTAIRE EN AXES LOCAUX
C         ICLE   1 POUR L'INSTANT
C                                                                               
C  SORTIE                                                                       
C         REL    MATRICE ELEMENTAIRE EN AXES GLOBAUX                            
C                                                                               
C-----------------------------------------------------------------------        
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
      DIMENSION REL(LRE,*),P(3,*)
*
*     CAS ICLE = 1
*
      IF(ICLE.EQ.1) THEN
*
*       BLOCS 1 ET 3 PUIS 2
*
        LRE2=LRE/2
        CALL TUYRO2(REL,LRE,P,0,0,1)
        CALL TUYRO2(REL,LRE,P,LRE2,LRE2,1)
        CALL TUYRO2(REL,LRE,P,0,LRE2,0)
*
*       SYMETRISATION
*
        DO 1 I=1,LRE
        DO 1 J=1,I
        REL(I,J)=REL(J,I)
 1      CONTINUE
*
      ENDIF
      RETURN                                                                    
      END