在C++中访问Fortran DLL中的Common数据

EnSafe

本例源程序： 4_CMainFDLL.rar (34.99 KB, 下载次数: 59227)

2013-5-8 22:05 上传

点击文件名下载附件

Fortran 的 Common 数据块本质上是共享空间的结构体。在C中访问Fortran的Common的方法如下：

1、在Fortran DLL的任意函数导出 Common 块的名称。

    Subroutine CommonExport
        !DEC$ Attributes DllExport ::  /INTEGERDATA/
        Implicit None
        Integer iData
        Common /INTEGERDATA/ iData
    End Subroutine

2、在C中定义一个结构体。

struct CommonData
{
   int iData;
};

3、用 extern "C"  __declspec(dllimport) 导入DLL导出的符号。

extern "C" __declspec(dllimport) void _stdcall DLLSETDATA(int &);

extern "C"  __declspec(dllimport) CommonData INTEGERDATA;