Fortran Coder

查看: 37|回复: 1

[混编] c#调用Fortran的dll中的函数报错

[复制链接]

2

帖子

2

主题

0

精华

新人

F 币
16 元
贡献
8 点
发表于 2019-11-29 13:04:04 | 显示全部楼层 |阅读模式
这是Fortran当中的子例行程序
[Fortran] 纯文本查看 复制代码
      SUBROUTINE start(nvacs,nint,ns,nm,nmat,nnbrs,nlcx,nlcy,nlcz,nlc)
!DEC$ ATTRIBUTES DLLEXPORT::start
!DEC$ ATTRIBUTES STDCALL,ALIAS:'start'::start
!根据变量名称的第一个字母来决定变量的类型 ijklmn
         implicit  real*8 ( a-h,o-z )
      integer*4       tv0001
      !ijklmn
      integer:: nvacs,nint,ns,nm,nmat,nnbrs,nlcx,nlcy,nlcz,nlc 
       ! include 'para.inc'
    real*8,dimension(nm):: x0,y0,z0,xorg,yorg,
     &zorg,stry,strz
      Integer,dimension(nm)::lflag,lflagbi,nvbiflag,link,neigh,
     &     neigh2,nsametype,nheterotype,ispec,neighheto

这是c#当中的代码
  //调用Fortran中的dll,以及子例行程序
      [DllImport("cnadll.dll", CallingConvention = CallingConvention.StdCall)]
      public static extern void start( int nvacs,int nint, int ns,int nm, int nmat,int nnbrs, int nlcx,int nlcy,int nlcz,int nlc);

调用时的代码
int nvacs=0;
int nint = 0; int ns = 8119; int nm = 8119; int nmat = 3; int nnbrs = 8000; int nlcx = 10; int nlcy = 10; int nlcz = 10; int nlc = 1000;           
                mainwindow.start(nvacs, nint, ns, nm, nmat, nnbrs, nlcx, nlcy, nlcz, nlc);

但是执行到mainwindow.start(nvacs, nint, ns, nm, nmat, nnbrs, nlcx, nlcy, nlcz, nlc);时弹出“System.StackOverflowException”类型的未经处理的异常在 主界面.exe 中发生
请问怎么解决,我代码中也没有死循环呀


回复

使用道具 举报

1450

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
911 元
贡献
649 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2019-11-29 21:11:36 | 显示全部楼层
建议用 ISO_C_Binding 实现混编。
不要用 stdcall
不要用 !DEC$ ATTRIBUTES STDCALL,ALIAS:'start'::start
不要用固定格式
建议用 implicit none

[Fortran] 纯文本查看 复制代码
      SUBROUTINE start(nvacs,nint,ns,nm,nmat,nnbrs,nlcx,nlcy,nlcz,nlc) Bind(C,Name="start")
!DEC$ ATTRIBUTES DLLEXPORT::start
      implicit  none
      integer , value :: nvacs,nint,ns,nm,nmat,nnbrs,nlcx,nlcy,nlcz,nlc 
       ! include 'para.inc'
    real(kind=8),dimension(nm):: x0,y0,z0,xorg,yorg,zorg,stry,strz


然后,你就当 C语言函数在C#里调用就好了
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2019-12-14 05:36

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表