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

使用ALLOCATABLE和ALLOCATE语句
比如：

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

查看代码

打印?

1	INTEGER,ALLOCATABLE :: ABC(:)   !定义可分配大小的数组ABC

2

...

3	ALLOCATE(ABC(N))                      !给数组ABC指定了N维的空间。

4

…

5	DEALLOCATE(ABC)                      !用完数组之后一般需要解除分配的数组空间，防止内存不足。

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