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_bprpict.cpp $
5 $LastChangedRevision: 80 $
6 $Date: 2014-07-01 21:01:54 -0400 (Tue, 01 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::bprpict(INTEGER M, INTEGER H, REAL* x, INTEGER it,
29 const CHAR* l, const CHAR* m)
31 static INTEGER itrace = 0; //itrace here should be static, wei
42 fprintf(output, "\n\n called at iter %2i after %s with %s", it, l, m);
44 for (i = 0; i < M; i++)
47 for (k = 0; k < H; k++)
49 if ((k != 0) && ((k % 6) == 0))
51 fprintf(output, "\n\n");
53 fprintf(output, "%15.6e ", x[k + j]);