	SUBROUTINE RFILE(X,FNAM1,NPNTS)
	DIMENSION X(512)
	BYTE CHAR,FNAM1(10)
	CALL ASSIGN(1,FNAM1,10)
	READ(1,102) CHAR
	READ(1,102) CHAR
	READ(1,103) NPNTS
	READ(1,103) JUNK
	READ(1,104) (X(I), I=1,NPNTS)
	CALL CLOSE(1)
	RETURN
102	FORMAT(Q,A1)
103	FORMAT(3X,I5)
104	FORMAT(8F10.2)
	END


