[GRASS-SVN] r66600 - grass-addons/grass7/imagery/i.spec.sam

[svn_grass at osgeo.org]

Author: ychemin
Date: 2015-10-25 10:51:25 -0700 (Sun, 25 Oct 2015)
New Revision: 66600

Modified:
   grass-addons/grass7/imagery/i.spec.sam/main.c
Log:
replaced v_output()

Modified: grass-addons/grass7/imagery/i.spec.sam/main.c
===================================================================
--- grass-addons/grass7/imagery/i.spec.sam/main.c	2015-10-25 10:02:36 UTC (rev 66599)
+++ grass-addons/grass7/imagery/i.spec.sam/main.c	2015-10-25 17:51:25 UTC (rev 66600)
@@ -59,7 +59,7 @@
     int row, col;
     int band;
     int i, j, error=0;
-    vec_struct *svd_values;
+    vec_struct *svd_values; /*la.h defines vec_struct as a typedef mat_struct*/
     /*char command[80]; rm by Yann temporarily see grayscale palette*/
     float anglefield[255][255];
     struct
@@ -152,9 +152,11 @@
      */
     G_message("Singular values of Matrix A:");
     G_math_svdval( (double *) svd_values->vals, (double **) A->vals, A->cols, A->rows);
-    v_output(svd_values);
     if (error) 
         G_fatal_error("Error in singular value decomposition, exiting...\n");
+    /*Experimental: display values (replace v_output() in original version)*/
+    for(i=0;i<svd_values->ldim;i++)
+        G_message("%f", svd_values->vals[i]);
 
     /* alright, start Spectral angle mapping */
     nrows = Rast_window_rows();