Esope source files

   1 : C AEQAPB    SOURCE    CHAT      05/01/12    21:19:04     5004           
   2 :       SUBROUTINE AEQAPB(A,B,LA)                                                 
   3 : C                                                                               
   4 : C         CALCUL DE A=A+B                                                       
   5 : C         A ET B TABLEAUX DIMENSIONNES A LA                                     
   6 : C                                                                               
   7 :       IMPLICIT INTEGER(I-N)
   8 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   9 :       DIMENSION A(*),B(*)                                                       
  10 :       DO 1 IA=1,LA                                                              
  11 :     1 A(IA)=A(IA)+B(IA)                                                         
  12 :       RETURN                                                                    
  13 :       END                                                                       
  14 :