Create trap2_PHB.F90