get_diagonal_factor Function

private function get_diagonal_factor(matrix) result(diagonal_factor)

Arguments

Type	Intent	Optional	Attributes		Name
type(matrix_t),	intent(in)			::	matrix

Return Value complex(kind=dp)