解决了，释放了一个未定义的数组空间

使用ALLOCATABLE和ALLOCATE语句
比如：

[Fortran] 纯文本查看 复制代码

INTEGER,ALLOCATABLE :: ABC(:)   !定义可分配大小的数组ABC
...
ALLOCATE(ABC(N))                      !给数组ABC指定了N维的空间。
…
DEALLOCATE(ABC)                      !用完数组之后一般需要解除分配的数组空间，防止内存不足。

这是可分配数组尚未分配就开始使用导致的。