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/foru_store.cpp $
5 $LastChangedRevision: 85 $
6 $Date: 2014-07-02 16:07:08 -0400 (Wed, 02 Jul 2014) $
8 ***********************************************************
11 PURPOSE: GIVEN THE COORDINATES OF A POINT (IX,IY) AND THE VALUE
12 AT THE POINT (GR,GI) ,WHERE GR IS THE REAL PART AND
13 GI IS THE IMAGINARY PART, STORE THE VALUE IN THE
14 APPROPRIATE PLACE IN THE COMMON BLOCK STARTING AT
28 void foru_class::store(INTEGER ix, INTEGER iy, REAL gr, REAL gi)
45 // IX LT 0 THE POINT IS ON THE LEFT HALF PLANE, FIND THE POINT
46 // WHICH IS CONGRUENT TO IT W.R.T. ORIGIN. THE VALUE AT THAT POINT
53 npos = j * (Fourie.nsize2 + 2) + 2 * i;
54 Fourie.nfrpln[npos] = gr;
55 Fourie.nfrpln[npos + 1] = -gi;
59 // IX EQ 0 THE POINT IS ON THE Y AXIS, WE NEED POINTS ON BOTH SIDES
68 npos = j * (Fourie.nsize2 + 2) + 2 * i;
69 Fourie.nfrpln[npos] = gr;
70 Fourie.nfrpln[npos + 1] = gi;
75 npos = j * (Fourie.nsize2 + 2) + 2 * i;
76 Fourie.nfrpln[npos] = gr;
77 Fourie.nfrpln[npos + 1] = -gi;
82 // IX GT 0 THE POINT IS ON THE RIGHT HALF PLANE
88 npos = j * (Fourie.nsize2 + 2) + 2 * i;
89 Fourie.nfrpln[npos] = gr;
90 Fourie.nfrpln[npos + 1] = gi;