1 : C EXTR17 SOURCE PV 09/03/12 21:22:08 6325 2 : SUBROUTINE EXTR17(MCHELM,MLMOTS) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8(A-H,O-Z) 5 : *----------------------------------------------------------------------- 6 : * 7 : * E X T R 1 7 8 : * ----------- 9 : * 10 : * FONCTION: 11 : * --------- 12 : * 13 : * EXTRAIT LES NOMS DES COMPOSANTES D'UN MCHAML 14 : * ET LES RANGE DANS UN LISTMOTS MLMOTS 15 : * 16 : * MODULES UTILISES: 17 : * ----------------- 18 : * 19 : -INC SMCHAML 20 : -INC SMLMOTS 21 : * 22 : * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN) 23 : * ----------- 24 : * 25 : * MCHELM (E) POINTEUR SUR LE MCHAML 26 : * MLMOTS (S) POINTEUR SUR LE LISTMOTS 27 : * 28 : *----------------------------------------------------------------------- 29 : * 30 : * 31 : SEGACT MCHELM 32 : JGN=4 33 : JGM=0 34 : SEGINI MLMOTS 35 : IF (IMACHE(/1).EQ.0) GO TO 90 36 : DO 10 I=1,IMACHE(/1) 37 : MCHAML=ICHAML(I) 38 : SEGACT MCHAML 39 : 10 CONTINUE 40 : * 41 : MCHAML=ICHAML(1) 42 : JGM=NOMCHE(/2) 43 : SEGADJ MLMOTS 44 : DO 20 I=1,JGM 45 : MOTS(I)=NOMCHE(I)(1:4) 46 : 20 CONTINUE 47 : SEGDES MCHAML 48 : * 49 : IF (IMACHE(/1).NE.1) THEN 50 : DO 30 I=2,IMACHE(/1) 51 : MCHAML=ICHAML(I) 52 : DO 40 K=1,NOMCHE(/2) 53 : DO 50 J=1,JGM 54 : IF (MOTS(J).EQ.NOMCHE(K)(1:4)) GOTO 40 55 : 50 CONTINUE 56 : JGM=JGM+1 57 : SEGADJ MLMOTS 58 : MOTS(JGM)=NOMCHE(K)(1:4) 59 : 40 CONTINUE 60 : SEGDES MCHAML 61 : 30 CONTINUE 62 : ENDIF 63 : * 64 : 90 SEGDES MLMOTS,MCHELM 65 : RETURN 66 : END 67 : 68 : 69 :
© Cast3M 2003 - All rights reserved.
Disclaimer