我要投稿

VC++调用Fortran生成的DLL实例

时间:2010-08-02 20:10 作者:ceshi123 阅读:2445

扫描二维码关注公众号,可以查询淘宝、京东商品优惠券
  VC++和Fortran混合编程借助于Fortran生成的DLL进行

  (采用C默认的传址方式进行函数参数传递)

  1.Fortran 生成DLL

  新建Fortran DLL程序test1.f

  添加如下代码:

  !  test1.f90

  !

  !  FUNCTIONS/SUBROUTINES exported from test1.dll:

  ! test1      - subroutine

  !示例没有返回值的子例程

  subroutine test1(a,b)

  ! Expose subroutine test1 to users of this DLL

  !

  !DEC$ ATTRIBUTES C,DLLEXPORT::test1

  ! Variables

  ! Body of test1

  integer a,b

  integer sum

  sum=a+b

  return

  end subroutine test1

  !示例有返回值的整数四则运算

  !两数相加

  function add(a,b)

  implicit none

  !DEC$ ATTRIBUTES C,DLLEXPORT::add

  integer a,b,add

  add=a+b

  return

  end

  !两数相减

  function abstract(a,b)

  implicit none

  !DEC$ ATTRIBUTES C,DLLEXPORT::abstract

  integer a,b,abstract

  abstract=a-b

  return

  end

  !两数相乘

  function multiply(a,b)

  implicit none

  !DEC$ ATTRIBUTES C,DLLEXPORT::multiply

  integer a,b,multiply

  multiply=a*b

  return

  end

  !两数相除 (需要添加考虑被除数是否为0以及能否整除的判断)

  function divided(a,b)

  implicit none

  !DEC$ ATTRIBUTES C,DLLEXPORT::divided

  integer a,b,divided

  divided=a/b

  return

  end

  编译后生成test1.dll,test1.obj等文件。其中这两个文件是我们在VC中调用所需要的。

  查看test1.dll中生成的函数如下图所示。

  注意:使用伪注释语句!DEC$ ATTRIBUTES C,DLLEXPORT::functionName后,生成的函数名与Fortran中定义的函数名一致,并没有按照Fortran编译器的默认属性将函数名都转变为大些,如下图所示。在后续的VC中调用的时候需要保持调用的函数名称一致,否则会出现找不到函数的错误提示。


关键词: 编程

最新评论

ceshi1232010-08-02 20:10
  2.VC控制台调用Fortra生成的DLL

  新建VC控制台应用程序,新建一个checktest1的工程。

  注意:需要在工程的project菜单下的add to project子菜单的file对话框中添加上一步生成的test1.dll,test1.obj两个文件,否则编译能通过,链接的时候失败。还需将以上两个文件拷贝到checktest1工程的debug目录下,否则运行的时候出现找不到文件的错误提示。自己测试了一下,以上两步是必须的。

  添加如下代码:(注意红色的部分)

  #include "stdafx.h"

  #include "iostream.h"

  //extern "C"{_stdcall TEST1(int* x,int* y);}

  //extern "C"{_stdcall ADD(int* x,int* y);}

  //extern "C"{_stdcall ABSTRACT(int* x,int* y);}

  //extern "C"{_stdcall MULTIPLY(int* x,int* y);}

  //extern "C"{_stdcall DIVIDED(int* x,int* y);}

  //注意此处函数名称要与DLL生成时保持一致(如下中的蓝色部分),否则会出现找不到函数的错误提示。并且一定要记得去掉参数中的指针符号*。

  extern "C"{_cdecl test1(int x,int y);}

  extern "C"{_cdecl add(int x,int y);}

  //采用C的传值方式,则需要将_stdcall修改为_cdecl

  //相应的Fortran DLL处要添加C的调用方式,即将!DEC$ ATTRIBUTES DLLEXPORT::add修改为:!DEC$ ATTRIBUTES C,DLLEXPORT::add

  //适应伪注释!DEC$ ATTRIBUTES C,DLLEXPORT::add后生成的DLL函数中只存在函数名为add的函数,ADD 和_ADD@8 均不存在,参见上图中的DLL函数名称

  extern "C"{_cdecl abstract(int x,int y);}

  extern "C"{_cdecl multiply(int x,int y);}

  extern "C"{_cdecl divided(int x,int y);}

  int main(int argc, char* argv[])

  {

  int a=35,b=5;

  int sum=0;

  int abs=0;

  int mul=0;

  int div=0;

  //TEST1(&a,&b);

  //sum=ADD(&a,&b);

  //abs=ABSTRACT(&a,&b);

  //mul=MULTIPLY(&a,&b);

  //div=DIVIDED(&a,&b);

  test1(a,b);

  sum=add(a,b);

  abs=abstract(a,b);

  mul=multiply(a,b);

  div=divided(a,b);

  printf("a+b= %d\n",sum);

  printf("a-b= %d\n",abs);

  printf("a*b= %d\n",mul);

  printf("a/b= %d\n",div);

  printf("Hello World!\n");

  return 0;

  }

  然后编译运行可以得出正确的结果:

我要投稿 我要评论
插入url链接 添加表情
限 100000 字节
响应相关主管单位规定,关闭回帖发帖功能
[VB毕业设计] [ASP毕业设计] [JAVA毕业设计] [JSP毕业设计] [PHP毕业设计] [asp.net毕业设计] [.net毕业设计] [网络毕业设计] [Delphi毕业设计] [VC毕业设计] [VF毕业设计] [机械毕业设计] [工艺毕业设计] [模具毕业设计] [其他毕业设计]
站长联系 cccbbsnet#163.com 本站系公益性质网站,站内广告维系本站运作。欢迎赞助本站。
大学生计算机相关方向|软件编程|网络工程|web开发|数据库技术|学习资料等
本社区仅供学习计算机相关技术所使用,访客发言不得违反国家法律法规
Time now is:01-23 06:03, Gzip enabled 蜀ICP备07004838号Powered by cccbbs.net v7.5 SP3 Code © 2003-06 cccbbs
计算机毕业设计