Changeset 12011 for issm/trunk-jpl/src/c/objects/ExternalResults/DoubleMatExternalResult.cpp

Timestamp:

04/16/12 17:40:30 (13 years ago)

Author:

Eric.Larour

Message:

Preliminary commit of new issm version, where serial code is starting to be stripped away. Will not run before some major debugging is done

File:

• issm/trunk-jpl/src/c/objects/ExternalResults/DoubleMatExternalResult.cpp (modified) (1 diff)

issm/trunk-jpl/src/c/objects/ExternalResults/DoubleMatExternalResult.cpp

@@ -222 +222 @@
 }
 /*}}}*/
-/*FUNCTION DoubleMatExternalResult::SetMatlabField{{{1*/
-#if defined(_HAVE_MATLAB_) && defined(_SERIAL_)
-void DoubleMatExternalResult::SetMatlabField(mxArray* dataref){
-
-        mxArray* pfield=NULL;
-        mxArray* pfield2=NULL;
-        char* name=NULL;
-        double* doublemat=NULL;
-
-        /*Make a copy of the value, to be used by matlab: */
-        doublemat=(double*)xmalloc(M*N*sizeof(double));
-        memcpy(doublemat,values,M*N*sizeof(double));
-
-        /*recover name: */
-        this->GetResultName(&name);
-                                
-        /*create matlab matrix: */
-        pfield=mxCreateDoubleMatrix(0,0,mxREAL);
-        mxSetM(pfield,N);
-        mxSetN(pfield,M);
-        mxSetPr(pfield,doublemat);
-        
-        /*transpose the matrix, from c to matlab format */
-        mexCallMATLAB(1,&pfield2, 1, &pfield, "transpose");
-
-        /*set tranpose matrix inside the dataref structure: */
-        mxSetField( dataref, this->step-1, name,pfield2);
-        mxSetField( dataref, this->step-1, "time",mxCreateDoubleScalar((double)this->time));
-        mxSetField( dataref, this->step-1, "step",mxCreateDoubleScalar((double)this->step));
-
-}
-#endif
-/*}}}*/
 /*FUNCTION DoubleMatExternalResult::GetStep{{{1*/
 int DoubleMatExternalResult::GetStep(void){