Create heap.f