wiso_akci Function

public function wiso_akci(isp, tk, alpeq)

difrmj = difrm(isp)/fisub(isp) wiso_akci = wiso_akci**expk(isp)

Arguments

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

Return Value real(kind=r8)