Mercurial > forge

diff extra/NaN/src/sumskipnan_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 6dea7ba11ac7
children f26b1170ea90
line wrap: on
line diff
--- a/extra/NaN/src/sumskipnan_mex.cpp	Thu Jun 18 08:23:13 2015 +0000
+++ b/extra/NaN/src/sumskipnan_mex.cpp	Thu Jun 18 15:09:49 2015 +0000
@@ -98,10 +98,10 @@
 	        mexErrMsgTxt("SUMSKIPNAN.MEX has 1 to 3 output arguments.");
 
 	// get 1st argument
-	if(mxIsDouble(PInputs[0]) && !mxIsComplex(PInputs[0]))
+	if(mxIsDouble(PInputs[0]) && !mxIsComplex(PInputs[0]) && !mxIsSparse(PInputs[0]) )
 		LInput  = mxGetPr(PInputs[0]);
 	else 	
-		mexErrMsgTxt("First argument must be REAL/DOUBLE.");
+		mexErrMsgTxt("First argument must be and not sparse REAL/DOUBLE.");
 
     	// get 2nd argument
     	if  (PInputCount > 1) {