DOUBLE PRECISION X,AQ(33),ANS(10)
	INTEGER IANS(3,10)
	COMMON AQ
	EQUIVALENCE (IANS,ANS,STA)
4	FORMAT(1X/1X,D18.10)
5	FORMAT(1X,10O7)
	CALL SETUP(11,AQ(1))
	DO 10 I=1,20
	X=I
	CALL MSQRT(X,1,STA,10)
	WRITE(4,4) X
10	WRITE(4,5) ((IANS(J,K),K=1,10),J=1,3)
	PAUSE
	STOP
	END