C_and_CPP 版 (精华区)

发信人: myCyber (简单自由), 信区: C_and_CPP
标  题: Re: 怎样在C＋＋中调用fortran程序
发信站: 哈工大紫丁香 (Sat Jun 21 10:45:22 2003)


【 在 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环境中寻两文件，拷到
   工程文件夹中

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

--

※ 来源:．哈工大紫丁香 bbs.hit.edu.cn [FROM: 218.9.97.41]