Create 5PMI_B3.f90