C+
C	Title:	MOVW
C	Author:	T. R. Wyant
C	Date:	22-Sep-1987
C	Modified:
C	Remarks:
C		Subroutine MOVW moves the required number of words.
C-
	SUBROUTINE MOVW (NUM, IN, OUT)

	INTEGER*2	NUM		! Number of words to move.
	INTEGER*2	IN (NUM)	! Input array.
	INTEGER*2	OUT (NUM)	! Output array.

	INTEGER*2	ITER8		! Iteration variable.

	DO 1010 ITER8 = 1, NUM
	    OUT (ITER8) = IN (ITER8)
1010	    CONTINUE

	RETURN
	END