Sources Esope | Cast3M

rseti
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