Update 1PMI_B1.f90