parameter n=4
	real a(n,n),b(n,n),c(n,n)
	open(10,file="test7.in")
	open(20,file="test7.out")
	read (10,*) a,b
	call mult(a,b,c,n)
	write (20,100) C
100	format(4F10.4)
	stop
	end