Modify integer,intent in parallel.F90