1 : C ADLISE SOURCE CHAT 05/01/12 21:18:26 5004 2 : SUBROUTINE ADLISE (LIST1,LIST2,MPOINT,NADDIT) 3 : C |-------------------------------------------------------------| 4 : C | ROUTINE D'ADDITION DE DEUX LISTES ENTIERES, QUI DOIVENT | 5 : C | ETRE DE MEME LONGUEUR | 6 : C | ENTREE : LIST1----------> POINTEUR DE LA PREMIERE LISTE | 7 : C | LIST2----------> POINTEUR DE LA SECONDE LISTE | 8 : C | NADDIT----------> ENTIER QUI INDIQUE SI L'ON | 9 : C | ADDITIONNE OU SI L'ON SOUSTRAIT| 10 : C | SORTIE | 11 : C | MPOINT---------> POINTEUR DE LA LISTE RESULTAT | 12 : C |-------------------------------------------------------------| 13 : IMPLICIT INTEGER(I-N) 14 : IMPLICIT REAL*8(A-H,O-Z) 15 : -INC CCOPTIO 16 : -INC SMLENTI 17 : MLENTI=LIST1 18 : MLENT1=LIST2 19 : SEGACT MLENTI 20 : SEGACT MLENT1 21 : IF (LECT(/1).EQ.MLENT1.LECT(/1))THEN 22 : JG=LECT(/1) 23 : SEGINI MLENT2 24 : IF (NADDIT.EQ.1) THEN 25 : DO 1 I=1,LECT(/1) 26 : MLENT2.LECT(I)=LECT(I)+MLENT1.LECT(I) 27 : 1 CONTINUE 28 : ELSE 29 : DO 2 I=1,LECT(/1) 30 : MLENT2.LECT(I)=LECT(I)-MLENT1.LECT(I) 31 : 2 CONTINUE 32 : ENDIF 33 : MPOINT=MLENT2 34 : SEGDES MLENT2 35 : ELSE 36 : MPOINT=0 36 : CALL ERREUR(217) 37 : ENDIF 38 : SEGDES MLENTI 39 : SEGDES MLENT1 40 : RETURN 41 : END 42 :
© Cast3M 2003 - All rights reserved.
Disclaimer