btree_get_entries_i8_zp2d Function

private function btree_get_entries_i8_zp2d(tree) result(num_entries)

Arguments

Type IntentOptional Attributes Name
type(btree_i8_zp2d), intent(inout) :: tree

Return Value integer


Source Code

      FUNCTION btree_get_entries_i8_zp2d (tree) RESULT(num_entries)
         TYPE(btree_i8_zp2d), INTENT(INOUT) :: tree
         INTEGER :: num_entries
         num_entries = tree%b%n
      END FUNCTION btree_get_entries_i8_zp2d