Update main.F90