使用 cffi 从 python 调用 fortran dll

Question

我目前正在开发一个模拟工具，它需要来自 Fortran dll 的 PDE 求解器。为了弄清楚如何从 python 调用 dll，我使用了同一个 dll 中的一个更简单的函数，但无法让它工作。

系统规格： Windows 7 专业版（64 位）蜘蛛 3.2.8 Python3.6.5（32 位）

我现在正在使用cffi调用fortran函数，但它也不起作用。

    import cffi as cf

    ffi=cf.FFI()

    lib=ffi.dlopen("C:\Windows\SysWOW64\DLL20DDS")

    ffi.cdef("""
             double S01BAF(double X, int IFAIL);
    """)

    print (lib)   #This works
    print (lib.S01BAF)   #This works

    x = 1.
    ifail = 0

    print (lib.S01BAF(x,ifail)) #This doesn't work

这是我用来通过 cffi 调用函数的代码。我正在加载的 dll 包含我打算调用的函数 S01BAF。我收到的错误消息是：

   runfile('C:/Users/Student/Desktop/Minimal.py', wdir='C:/Users/Student/Desktop')
   <cffi.api._make_ffi_library.<locals>.FFILibrary object at 0x0759DB30>
   <cdata 'double(*)(double, int)' 0x105BBE30>
   Kernel died, restarting

我不知道那是什么意思。

为了检查函数本身是否正常工作，我尝试用不同的语言 (VBA) 调用它，但它运行得很好。

    Option Base 1
    Option Explicit

    Private Declare Function S01BAF Lib "DLL20DDS.dll" (x As Double, iFail As Long) As Double

    Sub ln()
        Dim iFail As Long
        Dim x As Double
        Dim y As Double

        x = 1
        iFail = 0
        y = S01BAF(x, iFail)
        MsgBox y
    End Sub

消息框显示 ln(2) 的正确值。

我已阅读之前提出的问题，但无法将答案应用到我的问题中。

感谢@Joe，这是有效的代码！

    ffi=cf.FFI()
    lib=ffi.dlopen("C:\Windows\SysWOW64\DLL20DDS")
    ffi.cdef("double S01BAF(double *x, int *ifail);")

    x_1 = np.arange(-0.99,1,0.001)

    x = ffi.new('double*', 1)
    ifail = ffi.new('int*', 0)    

    y = (lib.S01BAF(x,ifail))

干杯，蒂洛

Answer 1

S01BAF

的函数定义

double s01baf_ (const double *x, Integer *ifail)

表示变量x和ifail是指针。请尝试

x = cf.new('double*', 1.0)
ifail = cf.new("int*", 0)    
lib.S01BAF(x, ifail)

或

x = cf.new('double*')
x[0] = 1.0
ifail = cf.new("int*")    
ifail[0] = 0
lib.S01BAF(x, ifail)

使用 cffi 从 python 调用 fortran dll

Calling a fortran dll from python using cffi

python

python-3.x

dll

fortran

cffi