Esope source files

   1 : C TRJCN3    SOURCE    CHAT      05/01/13    03:49:08     5004           
   2 :       SUBROUTINE TRJCN3(MCHPO1,MELEME,NCC)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
   6 : C                                                                                     A
   7 : C         CONTROLE QUE LES DONNEES SERVANT A CALCULER LES VITESSES
   8 : C          SONT COHERENTES
   9 : C                 CALCUL DES TRAJECTOIRES
  10 : C      ENTREES
  11 : C          MELEME POINTEUR DU MAILLAGE
  12 : C          MCHPO1 POINTEUR DE LA VITESSE
  13 : C          NCC NOMBRE DE COMPOSANTES ATTENDUES POUR LE CHPOIN
  14 : C
  15 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  16 :       CHARACTER*4 NOMTOT
  17 : -INC SMELEME
  18 : -INC SMCHPOI
  19 : -INC CCOPTIO
  20 : C
  21 :       SEGACT MELEME
  22 :       NBCOMP=-1
  23 :       NOMTOT='    '
  24 :       INDIC=0
  24 :       CALL QUEPOI(MCHPO1,MELEME,INDIC,NBCOMP,NOMTOT)
  25 :       IF(INDIC.LT.0)THEN
  25 :           CALL ERREUR(21)
  26 :           RETURN
  27 :       ENDIF
  28 :       SEGACT MCHPO1
  29 :       MSOUPO=MCHPO1.IPCHP(1)
  30 :       SEGACT MSOUPO
  31 :       MPOVAL=IPOVAL
  32 :       SEGACT MPOVAL
  33 :       NC=VPOCHA(/2)
  34 :       IF(NC.NE.NCC)THEN
  35 :             MOTERR(1:8)='TRJCN3  '
  35 :             CALL ERREUR(178)
  36 :             RETURN
  37 :       ENDIF
  38 :       SEGDES MPOVAL,MSOUPO,MCHPO1
  39 : C     SEGDES MELEME
  40 :       RETURN
  41 :       END
  42 :  
  43 :