subroutine maxmin	(	real (kind=kind_io8), dimension(imax,kmax)	f,
		integer	imax,
		integer	kmax
	)