real a(3,7),x,y(21),	b(20)
	call suba(a,x)
	call suba(x,a)
	call suba(y,1.0)
	call suba(y(1),x)
	call suba(b,x)
	end
	subroutine suba(w,z)
	real w(21),z
	end