看上去你是用多进程运行的程序（你用了srun，主要用于分布式计算机系统，不管是MPI还是coarray)。多进程运行程序碰到的较多问题是输入与输出（I/O）。一般多进程程序输入与输出都是集中到某一个进程上，没有看到类似的语句在你的程序中。

把这部分代码单独提出来，变量和数组大小都按原来的，另做一个测试程序单独试试。