MPI发送和接受函数错误问题

Kieran

大家好，

我写了一个计算程序，一共有两个文件。一个是MAINp.f90，是主程序文件；另一个是CALp.f90文件，是包括各种子程序的文件，用来被MAINp.f90文件调用的。在MAINpf90文件里，我使用了MPI_SEND和MPI_RECV函数来从各进程收集数据（u_s1，u_s2两个二维数组和ne，nb两个数）到0号根进程中来。0号跟根程使用u_t1，u_t2两个二维数组和nme，nnb两个一维数组来收集。

可程序运行之后，出现错误信息，显示MAINp.f90文件里第530和第527行出现问题。这两行分别是MPI_RECV和MPI_SEND命令行，但我没想通是哪里不对。

我把我的程序文件（MAINp.f90和CALp.f90）和错误信息文件（std_err.dat）放在附件里了。麻烦大家给我些建议，要如何修改文件里的错误吧。

多谢啦。