2 wkp1212pkw wkp1212pkw 于 2016.03.27 21:26 提问

visual studio下VC++和intel Visual fortran 如何互相调用

主要是如何在VC++中如何调用fortran子程序。如果可以的话请顺便推荐一本ivf的教程

3个回答

lx624909677
lx624909677   Ds   Rxr 2016.03.27 23:10
  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中调用所需要的。
lx624909677
lx624909677   Ds   Rxr 2016.03.27 23:11

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= %dn”,sum);
  printf(“a-b= %dn”,abs);
  printf(“a*b= %dn”,mul);
  printf(“a/b= %dn”,div);
  printf(“Hello World!n”);
  return 0;
  }

CSDNXIAOD
CSDNXIAOD   2016.03.30 11:27

Cannot open source file: 'C:\Program Files\Microsoft Visual Studio\VC98\MFC\SRC\APPMODUL.CPP': No
----------------------biu~biu~biu~~~在下问答机器人小D,这是我依靠自己的聪明才智给出的答案,如果不正确,你来咬我啊!

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!