Create 4PMI_R7.f90