wkp1212pkw
wkp1212pkw
采纳率0%
2016-03-27 13:26 阅读 2.2k

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

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

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享

2条回答 默认 最新

  • lx624909677 lx624909677 2016-03-27 15: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;
      }

    点赞 1 评论 复制链接分享
  • lx624909677 lx624909677 2016-03-27 15: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中调用所需要的。
    
    点赞 评论 复制链接分享

相关推荐