wiso_ratio Function

public function wiso_ratio(isp, qiso, qtot)

wiso_ratio = espmw(isp)*wiso_ratio/fisum(isp) ! correct!

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	isp
real(kind=r8),	intent(in)			::	qiso
real(kind=r8),	intent(in)			::	qtot

Return Value real(kind=r8)