C COUPAS    SOURCE    CHAT      05/01/12    22:24:24     5004           
      SUBROUTINE COUPAS(XE,YE,ZE,VECT,PAS,KERRE)                                  
C-----------------------------------------------------------------------        
C  ROUTINE DE CALCUL DE LA MATRICE DE PASSAGE P DES AXES LOCAUX AUX AXES        
C  GLOBAUX :       DEPLOC= P * DEPGLO                                           
C                                                                               
C  ENTREE                                                                       
C         XE YE ZE  COORDONNEES DES 2 NOEUDS                                    
C         VECT   VECTEUR DEFINISSANT LE REPERE LOCAL DU TUYAU               
C                                                                               
C  SORTIE                                                                       
C         PAS      MATRICE DE CHANGEMENT DE BASE                                  
C-----------------------------------------------------------------------        
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
      DIMENSION XE(*),YE(*),ZE(*),P(3,3),VECT(*),PAS(10,10)
C
      DO 1 I=1,100
1     PAS(I,1)=0.
C
C CALCUL DE LA MATRICE DE PASSAGE 3x3
C
      CALL POUPAS(XE,YE,ZE,VECT,P,KERRE)
C                     
C REMPLISSAGE MATRICE 10x10
C
      DO 2 I=1,3
         DO 3 J=1,3
         PAS(I,J)=P(I,J)
         PAS(5+I,5+J)=P(I,J)
3        CONTINUE
2     CONTINUE
      PAS(4,4)=1.
      PAS(5,5)=1.
      PAS(9,9)=1.
      PAS(10,10)=1.
C
      RETURN
      END