--- /dev/null
+CCC common/event_summary/
+C
+C This common block includes the following data:
+C
+C o Event processing summary and diagnostic information
+C o Chi-Square values
+
+ integer*4 max_events ! Limit on stored values, this is NOT
+C ! a limit on the number of events that
+C ! can be processed in the input event
+C ! text file.
+ parameter (max_events = 10000)
+
+ common/event_summary/
+ 1num_iter(max_events), niter_mean, niter_rms,
+ 2n_part_used_1_store(max_events), npart1_mean, npart1_rms,
+ 3n_part_used_2_store(max_events), npart2_mean, npart2_rms,
+ 4n_part_tot_store(max_events), npart_tot_mean, npart_tot_rms,
+ 5num_sec_flagged_store(max_events), nsec_flag_mean, nsec_flag_rms,
+ 6frac_trks_out(max_events), frac_trks_out_mean,frac_trks_out_rms,
+ 7frac_trks_flag(max_events),frac_trks_flag_mean,frac_trks_flag_rms,
+ 8chisq_like_1d_store(max_events), chi_l1d_mean,chi_l1d_rms,
+ 9chisq_unlike_1d_store(max_events), chi_u1d_mean,chi_u1d_rms,
+ 1chisq_like_3d_fine_store(max_events), chi_l3f_mean,chi_l3f_rms,
+ 2chisq_unlike_3d_fine_store(max_events), chi_u3f_mean,chi_u3f_rms,
+ 3chisq_like_3d_coarse_store(max_events), chi_l3c_mean,chi_l3c_rms,
+ 4chisq_unlike_3d_coarse_store(max_events),chi_u3c_mean,chi_u3c_rms,
+ 5chisq_hist1_1_store(max_events), chi_1_1_mean, chi_1_1_rms,
+ 6chisq_hist1_2_store(max_events), chi_1_2_mean, chi_1_2_rms,
+ 7chisq_total_store(max_events), chi_tot_mean, chi_tot_rms
+
+CCC Variable Type Declarations:
+
+CCC Event processing summary and diagnostic information:
+
+ real*4 num_iter, niter_mean, niter_rms
+ real*4 n_part_used_1_store, npart1_mean, npart1_rms
+ real*4 n_part_used_2_store, npart2_mean, npart2_rms
+ real*4 n_part_tot_store, npart_tot_mean, npart_tot_rms
+ real*4 num_sec_flagged_store, nsec_flag_mean, nsec_flag_rms
+ real*4 frac_trks_out, frac_trks_out_mean,frac_trks_out_rms
+ real*4 frac_trks_flag,frac_trks_flag_mean,frac_trks_flag_rms
+
+CCC Chi-Square values:
+
+ real*4 chisq_like_1d_store, chi_l1d_mean,chi_l1d_rms
+ real*4 chisq_unlike_1d_store, chi_u1d_mean,chi_u1d_rms
+ real*4 chisq_like_3d_fine_store, chi_l3f_mean,chi_l3f_rms
+ real*4 chisq_unlike_3d_fine_store, chi_u3f_mean,chi_u3f_rms
+ real*4 chisq_like_3d_coarse_store, chi_l3c_mean,chi_l3c_rms
+ real*4 chisq_unlike_3d_coarse_store,chi_u3c_mean,chi_u3c_rms
+ real*4 chisq_hist1_1_store, chi_1_1_mean, chi_1_1_rms
+ real*4 chisq_hist1_2_store, chi_1_2_mean, chi_1_2_rms
+ real*4 chisq_total_store, chi_tot_mean, chi_tot_rms
+
+CCC END common/event_summary/