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