Sources Esope | Cast3M

extr26
C EXTR26    SOURCE    PV        20/09/26    21:16:52     10724          
      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