C AIDE      SOURCE    CHAT      05/01/12    21:19:40     5004           
C   RECHERCHE DANS LA NOTICE CASTEM2000                     
C                                                                               
      SUBROUTINE AIDE(KOP,NOP)                                                
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO
-INC TMLCHA8                                                                                                                                      
-INC SMLMOTS                                                                 
      SEGMENT ITRAV                                                             
       CHARACTER*8 MOP(NAP),LOP(NAP)                                            
      ENDSEGMENT                                                                
      SEGMENT KTRAV                                                             
       CHARACTER*8 MMOP(NN),LLOP(NN)                                            
      ENDSEGMENT                                                               
      CHARACTER*4 KOP(NOP)                                                                                                        
      CHARACTER*8 IHH   
      CHARACTER*20 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',MLCHA8)                                            
      SEGACT MLCHA8                                                             
      NN=MLCHAR(/2)
*      write(6,*) '  nn   ' ,NN                                                             
      SEGINI KTRAV                                                              
      DO 31 I=1,NN                                                              
      MMOP(I)=MLCHAR(I)                                                         
  31  CONTINUE                                                                  
      CALL TRIDEP(MMOP,LLOP,NN)                                                 
                                   
*                                                                               
*   RECHERCHE DANS LES OPERATEURS                                            
*
      JGM = NOP + NN
      JGN=8
      SEGINI MLMOTS
      IDEJ=0                                                                               
      DO 2 I=1,NOP                                                              
        IHH=MOP(I)                                                              
        IF(IHH.EQ.'....')GO TO 2
*      write(6,*) '  mot rechercher ' ,IHH                                                                                                                                                                             
      CALL INFOR2(IHH, ICHAI(1:ILEN),ITROU)
*      write(6,*) ihh,ichai(1:ilen),itrou  
      IF(ITROU.EQ.1) THEN
        IDEJ=IDEJ+1
        MOTS(IDEJ)=IHH 
      ENDIF                                                       
   2  CONTINUE                                                                  
*                                                                               
*    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) 
*      write(6,*) ihh,ichai(1:ilen),itrou                                                                                                                                                                  
      IF(ITROU.EQ.1) THEN
        IDEJ=IDEJ+1
        MOTS(IDEJ)=IHH 
      ENDIF                           
   7  CONTINUE 
      IF(IDEJ.NE.0) THEN                                                                 
        WRITE (IOIMP,20)                                                          
  20    FORMAT (1H1) 
        INTERR(1)=IDEJ
        MOTERR(1:8)=' '
        MOTERR(1:ILEN)=ICHAI 
        CALL ERREUR(-286)
        WRITE(IOIMP,21)(MOTS(I),I=1,IDEJ)
      ENDIF
      JGM=IDEJ
      SEGADJ MLMOTS
      SEGDES MLMOTS
      CALL ECROBJ('LISTMOTS',MLMOTS)
 21   FORMAT( 7(2X,A8))                                                            
      SEGSUP ITRAV,KTRAV                                                   
      RETURN                                                                    
      END