Create Main program.f90