C COUPAS    SOURCE    PV        18/06/18    21:15:04     9860           
      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 J=1,10
      DO 1 I=1,10
1     PAS(I,J)=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