Update Mag_Mon.f90