gfortran fixes in initialize_p.F for MPI