Sources Esope | Cast3M

adlise
C ADLISE    SOURCE    CHAT      05/01/12    21:18:26     5004
      SUBROUTINE ADLISE (LIST1,LIST2,MPOINT,NADDIT)
C     |-------------------------------------------------------------|
C     |   ROUTINE D'ADDITION DE DEUX LISTES ENTIERES, QUI DOIVENT   |
C     | ETRE DE MEME LONGUEUR                                       |
C     |  ENTREE :   LIST1----------> POINTEUR DE LA PREMIERE LISTE  |
C     |             LIST2----------> POINTEUR DE LA SECONDE LISTE   |
C     |             NADDIT----------> ENTIER QUI INDIQUE SI L'ON    |
C     |                              ADDITIONNE OU SI L'ON SOUSTRAIT|
C     |  SORTIE                                                     |
C     |             MPOINT---------> POINTEUR DE LA LISTE RESULTAT  |
C     |-------------------------------------------------------------|
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
 
-INC PPARAM
-INC CCOPTIO
-INC SMLENTI
      MLENTI=LIST1
      MLENT1=LIST2
      SEGACT MLENTI
      SEGACT MLENT1
      IF (LECT(/1).EQ.MLENT1.LECT(/1))THEN
      JG=LECT(/1)
      SEGINI MLENT2
      IF (NADDIT.EQ.1) THEN
        DO 1 I=1,LECT(/1)
         MLENT2.LECT(I)=LECT(I)+MLENT1.LECT(I)
1       CONTINUE
       ELSE
        DO 2 I=1,LECT(/1)
         MLENT2.LECT(I)=LECT(I)-MLENT1.LECT(I)
2       CONTINUE
      ENDIF
      MPOINT=MLENT2
      SEGDES MLENT2
      ELSE
      MPOINT=0
      CALL ERREUR(217)
      ENDIF
      SEGDES MLENTI
      SEGDES MLENT1
      RETURN
      END