Sources Esope | Cast3M

adlisr
C ADLISR    SOURCE    CHAT      05/01/12    21:18:31     5004
      SUBROUTINE ADLISR (LIST1,LIST2,MPOINT,NADDIT)
C     |-------------------------------------------------------------|
C     |   ROUTINE D'ADDITION DE DEUX LISTES REELLES, 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 SMLREEL
      MLREEL=LIST1
      MLREE1=LIST2
      SEGACT MLREEL
      SEGACT MLREE1
      IF (PROG(/1).EQ.MLREE1.PROG(/1))THEN
      JG=PROG(/1)
      SEGINI MLREE2
      IF (NADDIT.EQ.1) THEN
        DO 1 I=1,PROG(/1)
         MLREE2.PROG(I)=PROG(I)+MLREE1.PROG(I)
1       CONTINUE
      ELSE
        DO 2 I=1,PROG(/1)
         MLREE2.PROG(I)=PROG(I)-MLREE1.PROG(I)
2       CONTINUE
      ENDIF
      MPOINT=MLREE2
      SEGDES MLREE2
      ELSE
      MPOINT=0
      CALL ERREUR(217)
      ENDIF
      SEGDES MLREEL
      SEGDES MLREE1
      RETURN
      END