Create 13PMI_C1.f90