1 : C EXTR26 SOURCE GOUNAND 11/05/24 21:15:20 6976 2 : SUBROUTINE EXTR26(MATRIK,IDUAL,MLMOTS) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8(A-H,O-Z) 5 : *----------------------------------------------------------------------- 6 : * 7 : * E X T R 2 6 8 : * ----------- 9 : * 10 : * FONCTION: 11 : * --------- 12 : * 13 : * EXTRAIT LES NOMS DES COMPOSANTES OU DES DUALES D'UNE MATRIK 14 : * ET LES RANGE DANS UN LISTMOTS MLMOTS 15 : * 16 : * MODULES UTILISES: 17 : * ----------------- 18 : * 19 : -INC SMMATRIK 20 : -INC SMLMOTS 21 : * 22 : * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN) 23 : * ----------- 24 : * 25 : * IRIG (E) POINTEUR SUR LA RIGIDITE 26 : * IDUAL (E) 1 SI ON VEUT LES DUALES, 0 SINON 27 : * MLMOTS (S) POINTEUR SUR LE LISTMOTS 28 : * 29 : *----------------------------------------------------------------------- 30 : * 31 : * 32 : SEGACT MATRIK 33 : JGN=4 34 : JGM=0 35 : SEGINI MLMOTS 36 : IF (IRIGEL(/2).EQ.0) GO TO 90 37 : * 38 : DO 30 I=1,IRIGEL(/2) 39 : IMATRI=IRIGEL(4,I) 40 : SEGACT IMATRI 41 : NBME=LIZAFM(/2) 42 : DO 40 K=1,NBME 43 : DO 50 J=1,JGM 44 : IF(IDUAL.EQ.0) THEN 45 : IF (MOTS(J).EQ.LISPRI(K)(1:4)) GOTO 40 46 : ELSE 47 : IF (MOTS(J).EQ.LISDUA(K)(1:4)) GOTO 40 48 : ENDIF 49 : 50 CONTINUE 50 : JGM=JGM+1 51 : SEGADJ MLMOTS 52 : IF(IDUAL.EQ.0) THEN 53 : MOTS(JGM)=LISPRI(K)(1:4) 54 : ELSE 55 : MOTS(JGM)=LISDUA(K)(1:4) 56 : ENDIF 57 : 40 CONTINUE 58 : SEGDES IMATRI 59 : 30 CONTINUE 60 : * 61 : 90 SEGDES MLMOTS,MATRIK 62 : RETURN 63 : END 64 : 65 : 66 : 67 : 68 : 69 : 70 :
© Cast3M 2003 - All rights reserved.
Disclaimer