关于指针：Fortran DEALLOCATE

我目前正在尝试在Fortran中编写一些子例程，以在程序出现错误(即加载文件失败或所需文件不存在)时取消分配内存中所有已分配的变量。在这一点上，执行必须终止，但不是必须分配所有可分配内存(这取决于错误出现在代码上的位置)，因此我无法进行清理以释放所有这些内存。

我当前的方法如下：

并为每个可分配的名称调用"清理"。问题在于，并非我所有的变量都是1维。在其中一些方面，我最多涉及三个方面。

我首先想到了为不同的维度编写3个不同的子例程并使用重载，但这似乎不是很优雅。

然后我想到也许我可以传递一个指针而不是实际的参数A，但是我已经用谷歌搜索了，看来您无法通过指针释放目标变量。

关于如何正确执行此操作的任何想法？

谢谢。

我对此的处理方式将结合使用以下内容：

从Fortran 95开始，过程完成时分配的所有本地未保存的可分配变量将自动释放。这是否适用取决于您的DLL的调用方式，因此取决于您是否可以实际构造事物，以使所有可分配的内容都是未保存的本地变量。

从Fortran 2003(或Fortran 95 +可分配的TR-维护的Fortran编译器中广泛支持此语言级别)开始，传递给INTENT(OUT)的可分配的实际参数可分配的虚拟参数将在过程开始执行之前自动释放。您在问题中的清理例程只需将哑参数的声明添加为INTENT(OUT)，然后就不需要进行IF测试或DEALLOCATE。您仍然需要为每种类型和需要编写的等级编写例程。

与前面的类似，传递给INTENT(OUT)伪参数的派生类型变量的可分配组件将被自动释放。因此，您可以将所有可分配变量一起作为派生类型的对象中的组件收集。然后，清理仅涉及将该对象传递给带有INTENT(OUT)虚拟对象的过程。此处的INTENT(OUT)还将具有默认初始化的组件重置为其"默认"值。也许此时您还需要手动进行其他清理(关闭文件等)。

再次使用将所有变量作为组件的派生类型的另一种方法是使派生类型对象本身可分配。当您需要清理时，只需取消分配该对象-它的组件将自动释放。如果此时还有其他其他清除操作，则Fortran 2003允许从此类事件触发最终过程。

派生类型方法还使一次拥有多个DLL支持的实例的活动独立变得容易(您只有多个派生类型的对象)。

给出派生类型方法的示例：

INTENT(OUT)虚拟

ALLOCATABLE对象。