Fortran Coder

标题: c#调用Fortran的dll中的函数报错 [打印本页]

作者: cyh 时间: 2019-11-29 13:04
标题: c#调用Fortran的dll中的函数报错
这是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 中发生
请问怎么解决，我代码中也没有死循环呀

作者: fcode 时间: 2019-11-29 21:11
建议用 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#里调用就好了

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)