C RSETI     SOURCE    CHAT      05/01/13    03:07:38     5004           
      SUBROUTINE RSETI(IA,IB,LONG)                                              
C************************************************************************       
C                                                                               
C     SOUS PROGRAMME POUR LES ENTIERS                                           
C                                                                               
C************************************************************************       
      IMPLICIT INTEGER(I-N)
      DIMENSION IA(LONG),IB(LONG)                                               
      DO 1 L=1,LONG                                                             
      IA(L)=IB(L)                                                               
 1    CONTINUE                                                                  
      RETURN                                                                    
      END