k_wilson Function

public function k_wilson(model, T, P) result(K)

K-factors regressión done by Wilson, used for initialization.

Arguments

Type	Intent	Optional	Attributes		Name
class(BaseModel),	intent(in)			::	model
real(kind=pr),	intent(in)			::	T
real(kind=pr),	intent(in)			::	P

Return Value real(kind=pr), (size(model%components%pc))