In add_tree should the second heapify be to $$tree_num_ref-2 the same as the preceding get_start_root ?

($start,$root)=get_start_root($trees_ref,$$tree_num_ref-
+1);
heapify($tab_ref,$$trees_ref[$$tree_num_ref-1],$start);
($start,$root) = get_start_root($trees_ref,$$tree_num_ref-
+2);
heapify($tab_ref,$$trees_ref[$$tree_num_ref-1],$start);
[download]