Create 2PMI_B2.f90