1 cdaq 1.1 ******************* begin: gen_filenames.cmn ***********************
2 *
|
3 cdaq 1.2 *-Common block with filenames
4 * $Log: gen_filenames.cmn,v $
|
5 jones 1.14 * Revision 1.13.2.2 2003/08/14 16:13:15 cdaq
6 * Corrected mistake in setting G_LUN_WRITEOUT_SCALER ( mkj)
7 *
8 * Revision 1.13.2.1 2003/08/14 00:44:13 cdaq
9 * Modify to be able to write scaler rates for each read to a file (mkj)
10 *
11 * Revision 1.13 2002/09/25 13:54:16 jones
12 * a. change g_data_source_filename to character*120
13 * b. add variable g_segment
14 *
|
15 jones 1.13 * Revision 1.12 1996/11/19 18:13:44 saw
16 * (SAW) Add some filenames and variables for LUN's
17 *
|
18 saw 1.12 * Revision 1.11 1996/09/04 15:48:00 saw
19 * (JRA) Add flags for writting out preproccesd (filtered) events
20 *
|
21 saw 1.11 * Revision 1.10 1996/04/30 13:37:06 saw
22 * (JRA) Add filename for pedestal output
23 *
|
24 saw 1.10 * Revision 1.9 1996/01/17 15:41:50 cdaq
25 * (JRA) Add filename/ctp names for tcl statistics screen
26 *
|
27 cdaq 1.9 * Revision 1.8 1995/09/01 13:01:16 cdaq
28 * (JRA) Add a file for run number based CTP parameter (kinematics) settings
29 *
|
30 cdaq 1.8 * Revision 1.7 1995/07/28 14:25:59 cdaq
31 * (SAW) Add g_ctp_database_filename
32 *
|
33 cdaq 1.7 * Revision 1.6 1994/10/19 19:52:22 cdaq
34 * (SAW) Add g_label variable for labels on reports
35 *
|
36 cdaq 1.6 * Revision 1.5 1994/08/03 20:06:50 cdaq
37 * (SAW) Add "CTPTYPE=parm" directive for auto generation of CTP reg calls
38 *
|
39 cdaq 1.5 * Revision 1.4 1994/06/21 15:05:11 cdaq
40 * (SAW) Add g_report_rebook flag
41 *
|
42 cdaq 1.4 * Revision 1.3 1994/06/15 18:12:17 cdaq
43 * (SAW) Add variables for report generator
44 *
|
45 cdaq 1.3 * Revision 1.2 1994/03/24 16:49:57 cdaq
46 * (SAW) Make logical's logical*4 so they can be registered to CTP
47 *
|
48 cdaq 1.2 * Revision 1.1 1994/02/07 19:38:11 cdaq
49 * Initial revision
|
50 cdaq 1.1 *
|
51 cdaq 1.5 * CTPTYPE=parm
|
52 cdaq 1.1 *
53 integer G_LUN_CONFIG
54 parameter (G_LUN_CONFIG= 55)
55 *
56 integer G_LUN_TEMP
57 parameter (G_LUN_TEMP= G_LUN_CONFIG+1)
58 *
|
59 saw 1.12 integer G_LUN_CHARGE_SCALER
60 parameter (G_LUN_CHARGE_SCALER=G_LUN_TEMP+1)
61 *
62 integer G_LUN_EPICS_OUTPUT
63 parameter (G_LUN_EPICS_OUTPUT=G_LUN_CHARGE_SCALER+1)
64 *
|
65 jones 1.14 integer G_LUN_WRITEOUT_SCALER
66 parameter (G_LUN_WRITEOUT_SCALER=G_LUN_EPICS_OUTPUT+1)
67 *
|
68 jones 1.13
|
69 cdaq 1.1 character*80 g_config_filename
70 character*80 g_ctp_hist_filename
71 character*80 g_ctp_test_filename
72 character*80 g_ctp_parm_filename
|
73 jones 1.13 character*120 g_data_source_filename ! Coda/other input file
|
74 cdaq 1.1 character*80 g_alias_filename ! PAW histogram name aliases
75 character*80 g_histout_filename ! File to write histograms to
|
76 cdaq 1.3 character*80 g_decode_map_filename ! File containing unpack map
77 character*80 g_report_template_filename
78 character*80 g_report_output_filename
79 character*80 g_report_blockname
|
80 cdaq 1.6 character*80 g_label ! A string that can label reports, etc
|
81 cdaq 1.7 character*80 g_ctp_database_filename ! Run number dependent variables
|
82 cdaq 1.8 character*80 g_ctp_kinematics_filename ! Run number dependent variables
|
83 cdaq 1.9 character*80 g_stats_template_filename !online statistics report
84 character*80 g_stats_output_filename
85 character*80 g_stats_blockname
|
86 saw 1.10 character*80 g_pedestal_output_filename
|
87 saw 1.11 character*80 g_bad_output_filename
88 character*80 g_preproc_filename
89 character*80 g_charge_scaler_filename
|
90 jones 1.14 character*80 g_writeout_scaler_filename
|
91 saw 1.12 character*80 g_epics_output_filename
|
92 cdaq 1.1 *
93 common /gen_filenames/
94 $ g_config_filename,
95 $ g_ctp_hist_filename,
96 $ g_ctp_test_filename,
97 $ g_ctp_parm_filename,
98 $ g_data_source_filename,
99 $ g_alias_filename,
100 $ g_histout_filename,
|
101 cdaq 1.3 $ g_decode_map_filename,
102 $ g_report_template_filename,
103 $ g_report_output_filename,
|
104 cdaq 1.6 $ g_report_blockname,
|
105 cdaq 1.7 $ g_label,
|
106 cdaq 1.8 $ g_ctp_database_filename,
|
107 cdaq 1.9 $ g_ctp_kinematics_filename,
108 $ g_stats_template_filename,
109 $ g_stats_output_filename,
|
110 saw 1.10 $ g_stats_blockname,
|
111 saw 1.11 $ g_pedestal_output_filename,
112 $ g_bad_output_filename,
113 $ g_preproc_filename,
|
114 jones 1.14 $ g_writeout_scaler_filename,
|
115 saw 1.12 $ g_charge_scaler_filename,
116 $ g_epics_output_filename
|
117 saw 1.11
|
118 cdaq 1.1 *
|
119 cdaq 1.2 logical*4 g_hist_rebook
120 logical*4 g_test_rebook
121 logical*4 g_parm_rebook
|
122 cdaq 1.4 logical*4 g_report_rebook
123 *
|
124 cdaq 1.2 logical*4 g_config_loaded !Make sure this is false first time
125 logical*4 g_data_source_opened !whether FASTBUS CODA file opened OK
126 integer g_data_source_in_hndl !IO channel assigned by CODA library
127 integer g_max_events !quit after this number events
|
128 saw 1.11 logical*4 g_preproc_opened !status of preprocessor output file opening
129 integer*4 g_preproc_in_hndl !IO channel assigned by CODA for above file
130 integer*4 g_preproc_on !flag to turn on event preprocessing
|
131 cdaq 1.1 *
132 common /gen_config_flags/
|
133 cdaq 1.4 $ g_hist_rebook, g_test_rebook, g_parm_rebook,
134 $ g_report_rebook,
|
135 cdaq 1.1 $ g_config_loaded,
136 $ g_data_source_opened, g_data_source_in_hndl,
|
137 saw 1.11 $ g_max_events,
138 $ g_preproc_opened,
139 $ g_preproc_in_hndl,
140 $ g_preproc_on
|
141 jones 1.13
142 integer*4 g_segment
143
144 common /gen_segmented_runs/
145 $ g_segment
|
146 saw 1.11
|
147 cdaq 1.1 *
148 * Local Variables:
149 * mode: fortran
150 * End:
151 *
152 ******************** end: gen_filenames.cmn ***********************
|
153 cdaq 1.2
|