C TRJCN3    SOURCE    CHAT      05/01/13    03:49:08     5004           
      SUBROUTINE TRJCN3(MCHPO1,MELEME,NCC)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C                                                                                     A
C         CONTROLE QUE LES DONNEES SERVANT A CALCULER LES VITESSES
C          SONT COHERENTES
C                 CALCUL DES TRAJECTOIRES
C      ENTREES
C          MELEME POINTEUR DU MAILLAGE
C          MCHPO1 POINTEUR DE LA VITESSE
C          NCC NOMBRE DE COMPOSANTES ATTENDUES POUR LE CHPOIN
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      CHARACTER*4 NOMTOT
-INC SMELEME
-INC SMCHPOI
-INC CCOPTIO
C
      SEGACT MELEME
      NBCOMP=-1
      NOMTOT='    '
      INDIC=0
      CALL QUEPOI(MCHPO1,MELEME,INDIC,NBCOMP,NOMTOT)
      IF(INDIC.LT.0)THEN
          CALL ERREUR(21)
          RETURN
      ENDIF
      SEGACT MCHPO1
      MSOUPO=MCHPO1.IPCHP(1)
      SEGACT MSOUPO
      MPOVAL=IPOVAL
      SEGACT MPOVAL
      NC=VPOCHA(/2)
      IF(NC.NE.NCC)THEN
            MOTERR(1:8)='TRJCN3  '
            CALL ERREUR(178)
            RETURN
      ENDIF
      SEGDES MPOVAL,MSOUPO,MCHPO1
C     SEGDES MELEME
      RETURN
      END