Mercurial > forge

diff extra/NaN/src/covm_mex.cpp @ 12640:de98e4cb9248 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
check for sparse matrices and and convert to full if needed
author schloegl
date Thu, 18 Jun 2015 15:09:49 +0000
parents 6a419bec96bb
children f26b1170ea90
line wrap: on
line diff
--- a/extra/NaN/src/covm_mex.cpp	Thu Jun 18 08:23:13 2015 +0000
+++ b/extra/NaN/src/covm_mex.cpp	Thu Jun 18 15:09:49 2015 +0000
@@ -83,10 +83,10 @@
 
 
 	// get 1st argument
-	if(mxIsDouble(PInputs[0]) && !mxIsComplex(PInputs[0]))
+	if(mxIsDouble(PInputs[0]) && !mxIsComplex(PInputs[0]) && !mxIsSparse(PInputs[0]) )
 		X0  = mxGetPr(PInputs[0]);
 	else 	
-		mexErrMsgTxt("First argument must be REAL/DOUBLE.");
+		mexErrMsgTxt("First argument must be non-sparse REAL/DOUBLE.");
 	rX = mxGetM(PInputs[0]);		
 	cX = mxGetN(PInputs[0]);