Changeset 19563

Timestamp:

09/19/15 14:51:32 (10 years ago)

Author:

Eric.Larour

Message:

CHG: added vararg driven echo of a cell.

Location:

issm/trunk-jpl/src/c/shared/Matrix

Files:

• MatrixUtils.cpp (modified) (2 diffs)
• matrix.h (modified) (1 diff)

issm/trunk-jpl/src/c/shared/Matrix/MatrixUtils.cpp

@@ -9 +9 @@
 #include <math.h>
 #include <float.h>    /*  DBL_EPSILON  */
+#include <cstdarg>
+#include <iostream>
 
 #include "./matrix.h"
 #include "../Exceptions/exceptions.h"
 #include "../MemOps/MemOps.h"
+#include "../io/io.h"
 /*}}}*/
 
@@ -627 +630 @@
         *pcell=newcell;
 } /*}}}*/
+void cellecho(int numcells, int m, ...) { /*{{{*/
+
+        va_list arguments;                     
+        IssmDouble** celllist= NULL;
+
+        /*allocate variable length array: */
+        celllist=xNew<IssmDouble*>(numcells); 
+
+        va_start(arguments,m);
+
+        for ( int x = 0; x < numcells; x++ ){
+                celllist[x]= va_arg ( arguments, IssmDouble*); 
+        }
+        va_end ( arguments );                  
+        
+        _printf_("Echo of cell: \n");
+        for(int i=0;i<m;i++){
+                _printf_(i << ": ");
+                for (int j=0;j<numcells;j++)_printf_(celllist[j][i] << " ");
+                _printf_("\n");
+        }
+
+        /*deallocate:*/
+        xDelete<IssmDouble*>(celllist);
+
+} /*}}}*/

issm/trunk-jpl/src/c/shared/Matrix/matrix.h

@@ -29 +29 @@
 IssmDouble  cellsum(IssmDouble* cell, int m);
 void celldelete(IssmDouble** pcell, int m, int* indices, int nind);
-void cellsplit(IssmDouble** pcell, int m, int i,IssmDouble scale) ;
+void cellsplit(IssmDouble** pcell, int m, int i,IssmDouble scale);
+void cellecho(int numcells, int m, ...);
 #endif //ifndef _MATRIXUTILS_H_