2 ***********************************************************
3 $SNARK_Header: S N A R K 1 4 - A PICTURE RECONSTRUCTION PROGRAM $
4 $HeadURL: svn://dig.cs.gc.cuny.edu/snark/trunk/src/snark/quad_prpict.cpp $
5 $LastChangedRevision: 89 $
6 $Date: 2014-07-02 17:24:53 -0400 (Wed, 02 Jul 2014) $
8 ***********************************************************
12 N - PICTURE SIZE TO BE PRINTED
13 X - PICTURE TO BE PRINTED
15 L - LOCATION IDENTIFIER
19 // TRACING IS DONE FOR EACH ITERATION
28 void quad_class::prpict(INTEGER n, REAL* x, INTEGER it, const CHAR* l,
32 static INTEGER itrace = 0; //itrace here should be static,wei
38 //bug 154 hstau 8 2005 just return
42 itrace = trace; // where is trace defined??(blkdta.cpp) hstau
46 fprintf(output, "\n\n called at iter %2i after %s with %s", it, l, m);
48 for (i = 0; i < n; i++)
50 j = i * n; //j = (i-1) * n; Is the latter a bug? hstau 6/2/2003
51 for (k = 0; k < n; k++)
53 if ((k != 0) && ((k % 6) == 0))
55 fprintf(output, "\n\n");
57 fprintf(output, "%15.6e ", x[k + j]);