C	TESTS LINEAR EQS .EQSM
	REAL A(3,3), B(3)
	DATA	A/2.0,2.0,3.0,   1.0,3.0,1.0,   -2.0,-1.0,3.0/
	DATA	B/3.0,6.0,1.0/
	TYPE *,'A-MATRIX:'
	DO 10 I=1,3
10	TYPE *,(A(I,J), J=1,3)
	TYPE *,'B-MATRIX:'
	DO 20 I=1,3
20	TYPE *,B(I)
	CALL EQSMF (A,B,3)
	TYPE *,'SOLUTION:'
	DO 30 I=1,3
30	TYPE *,B(I)
	STOP
	END