C	PROGRAM RLTST.FT
C	-------	-------
C
C
C
C	LEMKIN
C	DEC 4, 1976
C
C
C	PURPOSE
C	-------
C	TEST RLTX2.FT
C	WITH DUMMY DATA SET

C
C
	DIMENSION IP0(16,8),IP45(16,8),IP90(16,8),IP135(16,8)
C
C
C
C	[0] INIT
	WRITE(3,111)
111	FORMAT('1 RLTST.SV, 1/4/77 TEST FOR RLTX2.FT')
C
C
C	[1] SETUP WINDOW ARRAYS
	KX1=1
	KY1=1
	KX2=256
	KY2=256
C
C
C	[2] SETUP IP ARRAYS
	DO 200 I=1,16
	DO 200 J=1,8
	K=I+2*J
	IP0(I,J)=K
	IP45(I,J)=K
	IP90(I,J)=K
200	IP135(I,J)=K
C@	WRITE(3,222)'IP0  ',IP0
C@222	FORMAT(' ',A5,/,8(' ',16I4,/,))
C@	WRITE(3,222)'IP45 ',IP45
C@	WRITE(3,222)'IP90 ',IP90
C@	WRITE(3,222)'IP135',IP135
C
C	[3] EVAL IP0
	CALL RLTX2(IP0,KX1,KX2,KY1,KY2,1)
	END
  