0

我在 DLL 中有两个子例程。要在 C# 中调用它们，它们将更改为 STDCALL，如下所示：

    SUBROUTINE MoveToZero(X, N)
    !DEC$ ATTRIBUTES DLLEXPORT::MoveToZero
    !DEC$ ATTRIBUTES STDCALL,ALIAS:'RemoveBias'::MoveToZero
    USE MKL_DFTI
    INTEGER :: N
    DOUBLE PRECISION :: X(N)
    DOUBLE COMPLEX :: Y(N / 2 + 1)
    type(DFTI_DESCRIPTOR), POINTER :: des
    status = DftiCreateDescriptor(des, DFTI_DOUBLE, DFTI_REAL, 1, N)
    status = DftiSetValue(des, DFTI_PLACEMENT, DFTI_NOT_INPLACE)
    status = DftiCommitDescriptor(des)
    status = DftiComputeForward(des, X, Y)
    Y(1) = 0
    status = DftiComputeBackward(des, Y, X)
    status = DftiFreeDescriptor(des)
    X = X / N
    END

    SUBROUTINE GetApparent(current, voltage, N, output)
    !DEC$ ATTRIBUTES DLLEXPORT::GetApparent
    !DEC$ ATTRIBUTES STDCALL,ALIAS:'GetApparent'::GetApparent
    INTEGER :: N
    INTEGER ,PARAMETER :: M = 5
    DOUBLE PRECISION :: current(N), voltage(N)
    DOUBLE PRECISION :: output(M) 

    CALL MoveToZero(current, size(current)) !   This line raise an error
    End

像这样，我也需要调用MoveToZero，GetApparent但是出现错误：

1>D:\Integrate\ProcessModule\Source1.f90(29): error #7519: 
  Required explicit interface for a procedure with C or STDCALL 
  attribute is missing from original source.   [MOVETOZERO]

那么，如何在 Fortran 中调用 stdcall 子程序呢？

4

1 回答 1

1

我不能说 C#，但这里的问题是你在 Fortran 中调用 stdcall 子例程而不声明它的接口：CALL MoveToZero(x, size(x))。

您必须在 GetApparent 的主体中声明 MoveToZero 的接口，这可以通过接口块来完成，例如：

SUBROUTINE GetApparent(current, voltage, N, output)
!DEC$ ATTRIBUTES DLLEXPORT::GetApparent
!DEC$ ATTRIBUTES STDCALL,ALIAS:'GetApparent'::GetApparent


INTERFACE
    SUBROUTINE MoveToZero(X, N)
    !DEC$ ATTRIBUTES DLLEXPORT::MoveToZero
    !DEC$ ATTRIBUTES STDCALL,ALIAS:'RemoveBias'::MoveToZero

    !**** Declare type of X and N ****

    END SUBROUTINE
END INTERFACE

!...Some Codes

CALL MoveToZero(n, n)

!...Some Codes

END

您也可以使用接口模块（即只有那些接口块的模块）并在需要这些声明的所有过程中使用它。

于 2021-07-12T03:11:17.810 回答