[Octave-cvsupdate] SF.net SVN: octave:[7055] trunk/octave-forge/extra/openmpi_ext/src/MPI_Recv .cc

[<mc...@us...>]

Revision: 7055
          http://octave.svn.sourceforge.net/octave/?rev=7055&view=rev
Author:   mcreel
Date:     2010-03-12 13:46:26 +0000 (Fri, 12 Mar 2010)

Log Message:
-----------
remove a debug message

Modified Paths:
--------------
    trunk/octave-forge/extra/openmpi_ext/src/MPI_Recv.cc

Modified: trunk/octave-forge/extra/openmpi_ext/src/MPI_Recv.cc
===================================================================
--- trunk/octave-forge/extra/openmpi_ext/src/MPI_Recv.cc	2010-03-12 13:26:10 UTC (rev 7054)
+++ trunk/octave-forge/extra/openmpi_ext/src/MPI_Recv.cc	2010-03-12 13:46:26 UTC (rev 7055)
@@ -599,7 +599,7 @@
     if (tstring == "string")  return(recv_string (comm, ov,source,mytag));
     if (tstring == "sq_string") return(recv_string (comm, ov,source,mytag));
     if (tstring == "range")		 {Range 	       d;    info =(recv_range (comm, d,source,mytag));	ov=d;return(info);};
-    if (tstring == "matrix")    		{ bool is_complex = false;MPI_Datatype TRcv = MPI_DOUBLE; info = recv_matrix (is_complex,TRcv,comm,ov,source,mytag); printf("Info for receiving matrix %i\n",info);return(info);}	
+    if (tstring == "matrix")    		{ bool is_complex = false;MPI_Datatype TRcv = MPI_DOUBLE; info = recv_matrix (is_complex,TRcv,comm,ov,source,mytag);return(info);}	
     if (tstring == "complex matrix")		{ bool is_complex = true;MPI_Datatype TRcv = MPI_DOUBLE; info = recv_matrix (is_complex,TRcv,comm,ov,source,mytag);return(info); }
     if (tstring == "bool matrix")		{ bool is_complex = false;MPI_Datatype TRcv = MPI_INT; info = recv_matrix (is_complex,TRcv,comm,ov,source,mytag);return(info);}  
     if (tstring == "int8 matrix")  		{ bool is_complex = false;MPI_Datatype TRcv = MPI_BYTE; info = recv_matrix (is_complex,TRcv,comm,ov,source,mytag);return(info);}


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.