使用Python ctypes卸载Fortran编译DLL时遇内部变量已分配错误

你的问题根源是Fortran DLL中的全局allocatable数组在卸载后未被正确重置，下次加载时被判定为已分配。以下是无需修改Fortran代码的解决方法：

一、IFX编译选项调整 #

通过编译选项让DLL在卸载时自动清理全局状态：

• /Qunload：强制IFX生成DLL卸载时的清理代码，自动释放全局allocatable数组
• /Qinit:zero,arrays：初始化全局数组为零状态，避免加载时误判为已分配
• /Qnosave：禁用变量状态保留，确保DLL卸载时全局变量重置（如果之前用了/Qsave必须替换）

完整编译命令示例：

ifx /dll /Qunload /Qinit:zero,arrays /Qnosave your_code.f90 /link /out:your_dll.dll

二、Python端卸载与调用优化 #

1. 确保DLL完全卸载（修复引用计数问题） #

ctypes加载DLL会增加引用计数，单次FreeLibrary可能无法真正卸载，需循环调用直到引用计数归零：

import ctypes
from ctypes import wintypes

kernel32 = ctypes.WinDLL('kernel32', use_last_error=True)
kernel32.FreeLibrary.argtypes = [wintypes.HMODULE]
kernel32.FreeLibrary.restype = wintypes.BOOL

def run_single_simulation(params):
    # 加载DLL
    dll = ctypes.WinDLL('./your_dll.dll')
    # 设置函数参数类型（根据你的实际参数调整）
    dll.compute_What_I_Want.argtypes = [wintypes.DOUBLE, wintypes.INT]
    # 调用函数
    dll.compute_What_I_Want(*params)
    
    # 强制卸载直到引用计数为0
    while kernel32.FreeLibrary(dll._handle):
        pass

# 循环执行多轮模拟
param_list = [(1.0, 2), (3.0, 4)]  # 替换为你的参数列表
for params in param_list:
    run_single_simulation(params)

2. 多进程隔离（彻底规避状态残留） #

如果上述方法无效，用多进程让每次模拟在独立进程中运行，进程结束后DLL会自动释放，完全隔离状态：

import multiprocessing
import ctypes
from ctypes import wintypes

def run_simulation(params):
    dll = ctypes.WinDLL('./your_dll.dll')
    dll.compute_What_I_Want.argtypes = [wintypes.DOUBLE, wintypes.INT]
    dll.compute_What_I_Want(*params)

if __name__ == '__main__':
    param_list = [(1.0, 2), (3.0, 4)]
    for params in param_list:
        # 启动子进程执行模拟
        proc = multiprocessing.Process(target=run_simulation, args=(params,))
        proc.start()
        proc.join()  # 等待子进程结束

注意：传递给子进程的参数必须是可序列化的，若需传递复杂数据，可通过临时文件或队列实现。

3. 极端强制卸载方法（不推荐） #

如果必须在同一进程内强制卸载，可使用Windows API的UnmapViewOfFile，但此方法风险极高，可能导致Python进程崩溃，仅作为最后尝试：

import ctypes
from ctypes import wintypes

kernel32 = ctypes.WinDLL('kernel32', use_last_error=True)
kernel32.UnmapViewOfFile.argtypes = [wintypes.LPCVOID]
kernel32.UnmapViewOfFile.restype = wintypes.BOOL

# 加载并调用DLL
dll = ctypes.WinDLL('./your_dll.dll')
dll.compute_What_I_Want(1.0, 2)

# 强制卸载（风险操作）
kernel32.UnmapViewOfFile(dll._handle)

内容的提问来源于stack exchange，提问作者xavfa