Esope source files

   1 : C ADDIMA    SOURCE    CHAT      05/01/12    21:17:32     5004           
   2 :       SUBROUTINE ADDIMA(A,B,N,M,ICLE)                                           
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 :       DIMENSION A(N,*),B(N,*)                                                   
   6 :       IF(ICLE.EQ.1) THEN                                                        
   7 :           DO 1 I = 1,M                                                          
   8 :           DO 1 J=1,N                                                            
   9 :     1     A(J,I)=A(J,I)+B(J,I)                                                  
  10 :       ELSEIF(ICLE.EQ.2) THEN                                                    
  11 :           DO 2 I = 1,M                                                          
  12 :           DO 2 J=1,N                                                            
  13 :     2     A(J,I)=A(J,I)-B(J,I)                                                  
  14 :       ELSE                                                                      
  14 :           CALL ERREUR(5)                                                        
  15 :       ENDIF                                                                     
  16 :       RETURN                                                                    
  17 :       END                                                                       
  18 :