qman Function

function qman(x1, x2, x3, x4)

~ ~ ~ PURPOSE ~ ~ ~ this subroutine calculates flow rate or flow velocity using Manning"s equation. If x1 is set to 1, the velocity is calculated. If x1 is set to cross-sectional area of flow, the flow rate is calculated. ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ SUBROUTINES/FUNCTIONS CALLED ~ ~ ~ Intrinsic: Sqrt

~ ~ ~ ~ ~ ~ END SPECIFICATIONS ~ ~ ~ ~ ~ ~

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	x1
real,	intent(in)			::	x2
real,	intent(in)			::	x3
real,	intent(in)			::	x4

Return Value real