!
	!	FNGETFLOW.B4S
	!
	DEF fn.get.flow
	top = (((depth * (base.width + depth*bank.slope)) ^1.6667) * 	&
						(slope) ^0.5)
	bottom = (base.width + ((2*depth)*((bank.slope)^2 + 1)^0.5)) ^0.6667
	!
	fn.get.flow = (top / bottom) / coeff.rough
	FNEND