在C中访问Fortran Lib中的Common数据

EnSafe

本例源程序： 5_CMainFLib.rar (177.7 KB, 下载次数: 59803)

2013-5-8 22:24 上传

点击文件名下载附件

关于访问Fortran DLL中的Common数据参见：
https://envsafe.cn/bbs/forum.php?mod=viewthread&tid=257&extra=page%3D1

在C中可访问Fortran 静态Lib中Common块的方法和访问动态DLL中Common块的方法类似。区别在于：

(1) Fortran 无需导出符号

Subroutine SetData(iDataSet)
    Implicit None
    Integer iData
    Common /IntegerData/ iData
    Integer iDataSet
    iData = iDataSet
    Print *, "Lib1 said: Common data set to ", iData
End Subroutine


(2) C++对Common块的声明不用 __declspec(dllimport)  

struct CommonData
{
  int iData;
};

extern "C" CommonData INTEGERDATA;


(3) 对于C和Fortran的object文件直接链接的情况，可以采用同样的声明。

extern "C" CommonData INTEGERDATA;