怎样在C＋＋中调用fortran程序(转载)

violetwind

【 作者:  bloodboy 】

   !先给出一例：
   !子程forsub.f90   
   subroutine forsub(ivar,rvar)
    integer ivar
real rvar
write(*,*)ivar,rvar
   end
   !编译生成forsub.obj  

   !主程main.cpp
   #include <iostream.h>
   extern "C" { void __stdcall FORSUB(int &i,float &f); }
   void main()
   {
    int iCVar = 3;  
float rCVar = 2.0;
FORSUB(iCVar,rCVar);
   }  

   编译前需进行必要的设置
   
   选择　工程\设置 弹出属性卡 选择分类项，选择link项
   在对象\模块中填入 forsub.obj (之前将forsub.obj拷入该工程文件夹中)

   在编译中提示缺少dfor.lib dfconsol.lib 在f90环境中寻两文件，拷到
   工程文件夹中

   设置后即可编译链接生成可执行程序　

hillyuan

混合语言编程的具体实现与编译器的具体环境有关，上文可能是CVF和VC(不是C++)的混合，如不说明这一点就有点误人子弟了。
可参见cfortran.h，它几乎考虑了除Windows的几乎所有环境下的c,fortran混合。

violetwind

多谢指正