C AIDE      SOURCE    JC220346  18/12/04    21:15:07     9991           
C   RECHERCHE DANS LA NOTICE CASTEM2000
C
      SUBROUTINE AIDE(KOP,NOP)
      IMPLICIT INTEGER(I-N)

-INC PPARAM
-INC CCOPTIO
-INC CCNOYAU
-INC TMLNOMS
-INC SMLMOTS
      SEGMENT ITRAV
       CHARACTER*(LONOM) MOP(NAP),LOP(NAP)
      ENDSEGMENT
      SEGMENT KTRAV
       CHARACTER*(LONOM) MMOP(NN),LLOP(NN)
      ENDSEGMENT
      CHARACTER*4 KOP(NOP)
      CHARACTER*(LONOM) IHH
      CHARACTER*24 ICHAI
      CALL LIRCHA(ICHAI,1,ILEN)
      IF(IERR.NE.0) RETURN
      NAP = NOP
*      write(6,*) '  nop  ' , NOP
C  FAIRE EVENTUELLEMENT LE TRI ALPHABETIQUE
      SEGINI ITRAV
      DO 30 I=1,NOP
       MOP(I)=KOP(I)
  30  CONTINUE
      CALL TRIDEP(MOP,LOP,NAP)

*
*  AU TOUR DES PROCEDURES
*
      CALL REPLIS('PROCEDUR',MLNOMS)
      SEGACT MLNOMS
      NN=LINOMS(/2)
*      write(6,*) '  nn   ' ,NN
      SEGINI KTRAV
      DO 31 I=1,NN
      MMOP(I)=LINOMS(I)
  31  CONTINUE
      SEGSUP MLNOMS
      CALL TRIDEP(MMOP,LLOP,NN)

*
*   RECHERCHE DANS LES OPERATEURS
      M=NOP+NN
      SEGINI,MLNOMS
      IDEJ=0
      DO 2 I=1,NOP
        IHH=MOP(I)
        IF(IHH.EQ.'....')GO TO 2
c        write(6,*) '  mot rechercher ' ,IHH
        CALL INFOR2(IHH, ICHAI(1:ILEN),ITROU)
c        write(6,*) ihh,ichai(1:ilen),itrou
        IF (ITROU.GE.1) THEN
          IDEJ=IDEJ+1
          LINOMS(IDEJ)=IHH
        ENDIF
   2  CONTINUE
c
c    RECHERCHE DANS LES PROCEDURES
      DO 7 I=1,NN
        IHH=MMOP(I)
        IF (IHH.EQ.'....') GO TO 7
        CALL INFOR2(IHH,ICHAI(1:ILEN),ITROU)
c        write(6,*) ihh,ichai(1:ilen),itrou
        IF (ITROU.GE.1) THEN
          IDEJ=IDEJ+1
          LINOMS(IDEJ)=IHH
        ENDIF
   7  CONTINUE
C
C   AFFICHAGE DES RESULTATS
      IF (IDEJ.NE.0) THEN
          WRITE (IOIMP,*) ' '
          MOTERR(1:8)=ICHAI
          CALL ERREUR(-286)
          M=IDEJ
          SEGADJ,MLNOMS
          CALL AFINOM(MLNOMS,LMAX)
      ENDIF
C
C   CREATION DU LISTMOTS EN SORTIE
      JGN=LMAX
      JGM=IDEJ
      SEGINI,MLMOTS
      DO K=1,IDEJ
        MOTS(K)=LINOMS(K)
      ENDDO
      CALL ECROBJ('LISTMOTS',MLMOTS)
      SEGSUP ITRAV,KTRAV,MLNOMS
      RETURN
      END