erro 153 allocatable array or pointer is not allocated

wsxu2000

问题如图，人家给的程序，但是运行后出现这个错误，怎么解决啊

wsxu2000

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

大红在路上

使用ALLOCATABLE和ALLOCATE语句
比如：

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

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

vvt

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