det_diagH Function

public function det_diagH(j) result(hel_r)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	j

Return Value real(kind=dp)

Contents