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

Question

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 ForDllend subroutine ForDllSUBROUTINE 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=1999n=2999DO i=1,xarr2(i)=i*100END DOarr3(3,3)=m+n //给二维数组下标为[3][3]的元素赋值；但是却赋值不成功，就是问题所在！END SUBROUTINE
 

Answer 1

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

Answer 2

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

Answer 3

定义根本不对，动组空间是要连续的！！！！double *arr1,*arr2,*arr3;//定义动态数组
arr1=new double [x];
arr2=new double [y];
arr3=new double [x*y];