c#调用Fortran的dll中的函数报错
这是Fortran当中的子例行程序SUBROUTINE start(nvacs,nint,ns,nm,nmat,nnbrs,nlcx,nlcy,nlcz,nlc)
!DEC$ ATTRIBUTES DLLEXPORT::start
!DEC$ ATTRIBUTES STDCALL,ALIAS:'start'::start
!根据变量名称的第一个字母来决定变量的类型 ijklmn
implicitreal*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,以及子例行程序
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 中发生
请问怎么解决，我代码中也没有死循环呀
建议用 ISO_C_Binding 实现混编。
不要用 stdcall
不要用 !DEC$ ATTRIBUTES STDCALL,ALIAS:'start'::start
不要用固定格式
建议用 implicit none
SUBROUTINE start(nvacs,nint,ns,nm,nmat,nnbrs,nlcx,nlcy,nlcz,nlc) Bind(C,Name="start")
!DEC$ ATTRIBUTES DLLEXPORT::start
implicitnone
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#里调用就好了
页:
[1]