Update B12FinalProject.f90