SUBROUTINE RCOPY(NS,ND)
	LOGICAL*1 BUFFER(1)
	INTEGER*2 TOTLEN,LLEN(9),KEYLOC(9),KEYORD(9),KEYLEN(9)
	COMMON LPEREC,TOTLEN,LLEN,NKEYS,KEYLOC,KEYORD,KEYLEN
	COMMON /BUFFER/BUFFER
	COMMON /COMPAR/NRECSP
	DATA NINR/-32768/
	IF(NS.EQ.ND)RETURN
	IF(NS.EQ.-NRECSP.AND.ND.EQ.NINR)RETURN
	IF(ND.EQ.-NRECSP.AND.NS.EQ.NINR)RETURN
	NSE=NS+TOTLEN-1
	DO 10 I=NS,NSE
10	BUFFER(ND+I-NS)=BUFFER(I)
	IF(ND.EQ.-NRECSP)NINR=NS
	RETURN
	END