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 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