Update main.f