      SUBROUTINE MA02KV( N, I, J, A, B )
C
C     SLICOT RELEASE 5.6.
C
C     Copyright (c) 2002-2020 NICONET e.V.
C
C     PURPOSE
C
C     To copy N entries starting at the index I of the vector A to the
C     vector B starting at the index J.
C
C     This is used for calls involving %VAL constructs.
C
C     ARGUMENTS
C
C     Input/Output Parameters
C
C     N      (input) INTEGER
C            The number of entries to copy.  N >= 0.
C
C     I      (input) INTEGER
C            The starting index in the vector A.
C
C     J      (input) INTEGER
C            The starting index in the vector B.
C
C     A      (input) DOUBLE PRECISION array, dimension (*)
C            The given vector A.
C
C     B      (output) DOUBLE PRECISION array, dimension (*)
C            The resulted vector B:
C            B(J) = A(I), ..., B(J+N-1) = A(I+N-1).
C
C     CONTRIBUTOR
C
C     V. Sima, Research Institute for Informatics, Bucharest, Aug. 2012.
C
C     REVISIONS
C
C     V. Sima, Nov. 2012.
C
C     ******************************************************************
C
C     .. Scalar Arguments ..
      INTEGER            I, J, N
C     ..
C     .. Array Arguments ..
      DOUBLE PRECISION   A( * ), B( * )
C
C     .. Local Scalars ..
      INTEGER            K, L
C
C     .. Executable Statements ..
C
C     For efficiency, the input parameters are not checked.
C
      L = J
      DO 10 K = I, I+N-1
         B(L) = A(K)
         L = L + 1
   10 CONTINUE
C
      RETURN
C *** Last line of MA02KV ***
      END
