Esope source files

   1 : C RSETI     SOURCE    CHAT      05/01/13    03:07:38     5004           
   2 :       SUBROUTINE RSETI(IA,IB,LONG)                                              
   3 : C************************************************************************       
   4 : C                                                                               
   5 : C     SOUS PROGRAMME POUR LES ENTIERS                                           
   6 : C                                                                               
   7 : C************************************************************************       
   8 :       IMPLICIT INTEGER(I-N)
   9 :       DIMENSION IA(LONG),IB(LONG)                                               
  10 :       DO 1 L=1,LONG                                                             
  11 :       IA(L)=IB(L)                                                               
  12 :  1    CONTINUE                                                                  
  13 :       RETURN                                                                    
  14 :       END                                                                       
  15 :