Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(btree_i8_dp2d), | intent(inout) | :: | tree |
FUNCTION btree_get_entries_i8_dp2d (tree) RESULT(num_entries)
TYPE(btree_i8_dp2d), INTENT(INOUT) :: tree
INTEGER :: num_entries
num_entries = tree%b%n
END FUNCTION btree_get_entries_i8_dp2d