Changeset 2994 for issm/trunk/src/mex/Test

Timestamp:

02/10/10 10:18:23 (15 years ago)

Author:

Eric.Larour

Message:

Test: testing mpi bug

Location:

issm/trunk/src/mex/Test

Files:

• Test.cpp (modified) (1 diff)
• Test.cpp.grid (added)

issm/trunk/src/mex/Test/Test.cpp

@@ -7 +7 @@
 void mexFunction( int nlhs, mxArray* plhs[], int nrhs, const mxArray* prhs[]){
 
-        /*diverse: */
-        int   noerr=1;
+        MODULEBOOT();
+        //MPI_Init(NULL,NULL);
+        MODULEEND();
 
-        /*Boot module: */
-        MODULEBOOT();
-
-        /*checks on arguments on the matlab side: */
-        CheckNumMatlabArguments(nlhs,NLHS,nrhs,NRHS,__FUNCT__,&TestUsage);
-
-        double* pr=mxGetPr(prhs[0]);
-        int M=mxGetM(prhs[0]);
-        int N=mxGetM(prhs[0]);
-        mwIndex* ir=mxGetIr(prhs[0]);
-        mwIndex* jc=mxGetJc(prhs[0]);
-        int     nzmax=(int)mxGetNzmax(prhs[0]);
-
-        int i;
-        printf("nzmax %i\n",nzmax);
-        printf("jc:\n");
-        for(i=0;i<N+1;i++){
-                printf("%i\n",jc[i]);
-        }
-        printf("ir vale:\n");
-        for(i=0;i<nzmax;i++){
-                printf("%i %g\n",ir[i],pr[i]);
-        }       
-
-
-        /*end module: */
-        MODULEEND();
 }