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