extr37
C EXTR37 SOURCE KICH 22/02/17 21:15:02 11282 IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) *----------------------------------------------------------------------- * * E X T R 37 * ----------- * * FONCTION: * --------- * * EXTRAIT LES NOMS DES constituants D'UN MCHAML * ET LES RANGE DANS UN LISTMOTS MLMOTS * signale les constituants 'nombre' * * MODULES UTILISES: * ----------------- * -INC SMCHAML -INC SMLMOTS * * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN) * ----------- * * MCHELM (E) POINTEUR SUR LE MCHAML * MLMOTS (S) POINTEUR SUR LE LISTMOTS * *----------------------------------------------------------------------- * * PARAMETER (NCONCS=16) SEGACT MCHELM JGN=NCONCS JGM=0 SEGINI MLMOTS IF (IMACHE(/1).EQ.0) GO TO 90 * JGM = 1 SEGADJ MLMOTS * IF (IMACHE(/1).NE.1) THEN DO 40 K=2,IMACHE(/1) DO 50 J=1,JGM 50 CONTINUE JGM=JGM+1 SEGADJ MLMOTS 40 CONTINUE ENDIF * 90 SEGDES MLMOTS,MCHELM RETURN END
© Cast3M 2003 - Tous droits réservés.
Mentions légales