Create program1.f