请教在dll里调用2维动态数组的问题？？？

[tjjhua]

vc主程序：
void CCallDllDlg::OnButton1()
{
int x=5,y=5;
double *arr1,*arr2,**arr3;//定义动态数组
arr1=new double [x];
arr2=new double [y];
arr3=new double *[x];
/**/
for(int k=0;k<x;k++)
{
arr3[k]=new double [y];
}

for(int i=0;i<x;i++)
{
arr1[i]=0.0;
}
for(int j=0;j<y;j++)
{
arr2[j]=0.0;
}
for(i=0;i<x;i++)
{
for(j=0;j<y;j++)
{
arr3[i][j]=i*j;
}
}

HINSTANCE hIns;
hIns = LoadLibraryEx("ForDll.dll",NULL,DONT_RESOLVE_DLL_REFERENCES);
typedef double (*MYPROC)(int &a, double b[], int &a1,double b1[]
,double *c[]);//就是这里不知对不对：double *c[]？
MYPROC fun= (MYPROC)GetProcAddress(hIns,"_ARRAYTEST@20");

// int x=10,y=10;
fun(x,arr1,y,arr2,arr3);//或者是这里调用不对？？总是出现数组越界的错误，而且arr3在dll里也不能被赋值，更不能返回。
double s1=arr1[0],
s2=arr1[1],
s3=arr1[2],
s10=arr1[9],
s11=arr1[10],
w1=arr2[0],
w2=arr2[1],
w3=arr2[2],
w10=arr2[9],
w11=arr2[10],
th1=arr3[2][2];

::FreeLibrary(hIns);

}

dll程序：（虽然是fortran程序，但是过程很简单）
! ForDll.f90
!
! FUNCTIONS/SUBROUTINES exported from ForDll.dll:
! ForDll - subroutine
!
subroutine ForDll

! Expose subroutine ForDll to users of this DLL
!
!DEC$ ATTRIBUTES DLLEXPORT::ForDll

! Variables

! Body of ForDll

end subroutine ForDll

SUBROUTINE ARRAYTEST(x,arr1,y,arr2,arr3)//子过程声名；

$ATTRIBUTES DLLEXPORT :: ARRAYTEST
IMPLICIT REAL*8(A,R,E,B,Q,P,W,S,U)//声名变量；

INTEGER x,y,i,m,n,j //声名变量；


REAL(8) arr1(x),arr2(y),arr3(100,100)//声名数组，一维动态，二维静态；

m=1999

n=2999

DO i=1,x

arr2(i)=i*100

END DO

arr3(3,3)=m+n //给二维数组下标为[3][3]的元素赋值；但是却赋值不成功，就是问题所在！

END SUBROUTINE

[fairyprince]

typedef double (*MYPROC)(int &a, double *b, int &a1,double *b1,double *c); //试试

[tjjhua]

别处都不要动是么？
在fun(x,arr1,y,arr2,arr3);//
这里报错：error C2664: 'double (int &,double *,int &,double *,double *)' : cannot convert parameter 5 from 'double ** ' to 'double *'

[fairyprince]

定义根本不对，动组空间是要连续的！！！！

double *arr1,*arr2,*arr3;//定义动态数组
arr1=new double [x];
arr2=new double [y];
arr3=new double [x*y];

[tjjhua]

高手帮帮忙看看啊？应该不是很复杂吧？？？

[tjjhua]

高手们快来看啊！给分了！！

[tjjhua]

老大，能不能详细点完整点？？？谢谢！