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