Modify parallel.F90 for mpiifort