C RSETD     SOURCE    CHAT      05/01/13    03:07:27     5004
      SUBROUTINE RSETD(A,B,LONG)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C************************************************************************
C
C     SOUS PROGRAMME DOUBLE PRECISION
C
C************************************************************************

      DIMENSION A(LONG),B(LONG)
      Z=0.
      DO 1 I=1,LONG
      A(I)=B(I)
 1    CONTINUE
      RETURN
      END