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


