Create 1PMI_B1.f90