mpi fortran code 0进程分配全局内存