C EXTR26    SOURCE    GOUNAND   11/05/24    21:15:20     6976           
      SUBROUTINE EXTR26(MATRIK,IDUAL,MLMOTS)                                      
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
*-----------------------------------------------------------------------        
*                                                                               
*                             E X T R 2 6                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     EXTRAIT LES NOMS DES COMPOSANTES OU DES DUALES D'UNE MATRIK
*     ET LES RANGE DANS UN LISTMOTS MLMOTS                                      
*                                                                               
* MODULES UTILISES:                                                             
* -----------------                                                             
*                                                                               
-INC SMMATRIK
-INC SMLMOTS                                                                    
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
* -----------                                                                   
*                                                                               
*     IRIG    (E)  POINTEUR SUR LA RIGIDITE                                     
*     IDUAL   (E)  1 SI ON VEUT LES DUALES, 0 SINON                             
*     MLMOTS  (S)  POINTEUR SUR LE LISTMOTS                                     
*                                                                               
*-----------------------------------------------------------------------        
*                                                                               
*                                                                               
      SEGACT MATRIK
      JGN=4                                                                     
      JGM=0                                                                     
      SEGINI MLMOTS                                                             
      IF (IRIGEL(/2).EQ.0) GO TO 90                                             
*                                                                               
      DO 30 I=1,IRIGEL(/2)
         IMATRI=IRIGEL(4,I)
         SEGACT IMATRI
         NBME=LIZAFM(/2)
         DO 40 K=1,NBME
            DO 50 J=1,JGM
               IF(IDUAL.EQ.0) THEN
                  IF (MOTS(J).EQ.LISPRI(K)(1:4)) GOTO 40
               ELSE                                                          
                  IF (MOTS(J).EQ.LISDUA(K)(1:4)) GOTO 40
               ENDIF                                                         
 50         CONTINUE
            JGM=JGM+1
            SEGADJ MLMOTS
            IF(IDUAL.EQ.0) THEN
               MOTS(JGM)=LISPRI(K)(1:4)
            ELSE                                                             
               MOTS(JGM)=LISDUA(K)(1:4)
            ENDIF
 40      CONTINUE
         SEGDES IMATRI
 30   CONTINUE
*                                                                               
 90   SEGDES MLMOTS,MATRIK
      RETURN                                                                    
      END