把这段c程序用fortran写

doubleDim[3]={1,1,1};

for( i = 0; i < mxGetN(prhs[1]); i++ ) Dim[i] = *pDim++;