调试mpi程序

不能简单的用：

print *, 'a'

而应该加上:

CALL MPI_BARRIER(MPI_COMM, ierr);print *, 'a'