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_ftfill.cpp $
5 $LastChangedRevision: 85 $
6 $Date: 2014-07-02 16:07:08 -0400 (Wed, 02 Jul 2014) $
8 ***********************************************************
10 PURPOSE: REARRANGE THE NUMBERS IN ARRAY G (OF SIZE MAXG1*MAXG1)
11 AND PUT INTO THE ARRAY RECON
21 void foru_class::ftfill(REAL* recon, REAL* g, INTEGER maxg1)
37 no2 = GeoPar.nelem / 2;
41 ibaser = GeoPar.area - GeoPar.nelem;
42 for (kk = 0; kk < len; kk++)
49 ibaseg = itmp * maxg1;
51 for (ll = 0; ll < len; ll++)
58 recon[indr] = g[indg];
61 ibaser -= GeoPar.nelem;