Esope source files

   1 : C FUSATT    SOURCE    CHAT      05/01/13    00:11:48     5004           
   2 :       SUBROUTINE FUSATT(MATTA1,MATTA2,MATTAC)                                   
   3 : C                                                                               
   4 : C   CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC            
   5 : C   C CE SUBROUTINE REALISE L OPERATION ''ET'' SUR LES DEUX OBJETS C            
   6 : C   C ATTACHES MATTA1 ET MATTA2. LE RESULTAT EST RANGE DANS MATTAC C            
   7 : C   CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC            
   8 : C                                                                               
   9 :       IMPLICIT INTEGER(I-N)
  10 : -INC SMATTAC                                                                    
  11 :       SEGACT MATTA1,MATTA2                                                      
  12 :       N1=MATTA1.LISATT(/1)                                                      
  13 :       N2=MATTA2.LISATT(/1)                                                      
  14 :       N=N1+N2                                                                   
  15 :       SEGINI MATTAC                                                             
  16 :       DO 3 I=1,N1                                                               
  17 :       LISATT(I)=MATTA1.LISATT(I)                                                
  18 :  3    CONTINUE                                                                  
  19 :       DO 4 J=1,N2                                                               
  20 :       I=N1+J                                                                    
  21 :       LISATT(I)=MATTA2.LISATT(J)                                                
  22 :  4    CONTINUE                                                                  
  23 :       SEGDES MATTAC,MATTA1,MATTA2                                               
  24 :       RETURN                                                                    
  25 :       END                                                                       
  26 :