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/creatr.cpp $
5 $LastChangedRevision: 85 $
6 $Date: 2014-07-02 16:07:08 -0400 (Wed, 02 Jul 2014) $
8 ***********************************************************
11 // CREATR GENERATES FILE11 WITH THE FORMAT REQUIRED
12 // FOR INPUT BY THE 'PICTURE' AND 'PROJECTION' COMMANDS
36 static BOOLEAN called = FALSE;
40 // TEST FOR MULTIPLE CALLS FOR CREATR; CALLED = .TRUE. IF
41 // CREATR HAS BEEN CALLED ONCE
53 // IF ERFLAG IS SET TO .TRUE. THEN INPUT HAS ERRORS; ABORT JOB
55 fprintf(output, "\n **** error in inputfile");
56 fprintf(output, "\n **** program aborted\n");
60 // IF PHANTOM IS SPECIFIED, PICFLG = .TRUE. THEN START CREATING FILE1
64 File11.wrhdr(CHAR2INT('p', 'h', 'a', 'n'));
70 fprintf(output, "\n %10.3f seconds phantom creation", time); // changed precision to three digits - swr 1/21/06
73 // IF RAYSUMS ARE SPECIFIED, PRJFLG = .TRUE. , START CREATING FILE11
77 File11.wrhdr(CHAR2INT('r', 'a', 'y', 's'));
84 fprintf(output, "\n %10.3f seconds projection data creation", time); // changed precision to two digits - swr 1/21/06