1 cdaq 1.1 *****************begin: mc_structures.cmn*************************
2 *-
3 *- This file defines the structure of GEANT simulated quantities
4 *- to be packed in a FASTBUS-CODA file.
5 *- 6-Feb-1994 K.B.Beard, Hampton U.
6 *- Modified to add path length, internal setup 7-Feb-1994 KBB
7 *-
8 *- note: units are hall C standard units: GeV, cm, nSec
9 * ID numbers are as given by "g_decode" package.
|
31 cdaq 1.2 *- status of all subsequent Monte Carlo info.
32 LOGICAL mc_READY
33 *-
34 *- All tracks are put in sequentially (don't start over with #1 for 2nd arm)
35 *-
36 INTEGER mc_MAX_Trks !upper limit on tracks
37 PARAMETER (mc_MAX_Trks= 1000)
38 *
39 INTEGER mc_N_Trks !present # of target tracks
40 INTEGER mc_Trk_ancestor(mc_MAX_Trks) !ancestor track ID (0=none)
41 CHARACTER*4 mc_Trk_system(mc_MAX_Trks) !name trk coord. (LAB,HMS,SOS..)
42 REAL mc_Trk_X(mc_MAX_Trks)
43 REAL mc_Trk_Y(mc_MAX_Trks) !position[cm]
44 REAL mc_Trk_Z(mc_MAX_Trks)
45 REAL mc_Trk_T(mc_MAX_Trks) !time[nS]
46 REAL mc_Trk_Px(mc_MAX_Trks)
47 REAL mc_Trk_Py(mc_MAX_Trks) !momentum[GeV/c]
48 REAL mc_Trk_Pz(mc_MAX_Trks)
49 REAL mc_Trk_M(mc_MAX_Trks) !mass[GeV/c2]
50 REAL mc_Trk_path(mc_MAX_Trks) !distance to end of track[cm]
51 INTEGER mc_Trk_geantID(mc_MAX_Trks) !GEANT particle type ID
52 cdaq 1.2 CHARACTER*4 mc_Trk_comment(mc_MAX_Trks) !very brief comment (optional)
53 INTEGER mc_Trk_extra(mc_MAX_Trks) !resv'd for additional information
54 *
55 *-
56 *- All hits are put in sequentially (relevant trackk ID# and detector ID#
57 *- determine which arm (don't start over with 1 for 2nd arm).
58 *-
59 INTEGER mc_MAX_Hits !upper limit on # of hits
60 PARAMETER (mc_MAX_Hits= 1000)
61 *
62 *- standare hall C detector,plane|row,wire|element|column ID numbers
63 *- assigned according to those specified in "gen_detectorids.cmn"
64 *
65 INTEGER mc_N_Hits !present # of hits
66 INTEGER mc_Hit_ancestor(mc_MAX_Hits) !relevant track ID#
67 CHARACTER*4 mc_Hit_system(mc_MAX_Hits) !name hit coord. (HMSf,SOSf,...)
68 REAL mc_Hit_X(mc_MAX_Hits)
69 REAL mc_Hit_Y(mc_MAX_Hits) !position[cm]
70 REAL mc_Hit_Z(mc_MAX_Hits)
71 REAL mc_Hit_T(mc_MAX_Hits) !time[nS]
72 REAL mc_Hit_Px(mc_MAX_Hits)
73 cdaq 1.2 REAL mc_Hit_Py(mc_MAX_Hits) !momentum[GeV/c]
74 REAL mc_Hit_Pz(mc_MAX_Hits)
75 REAL mc_Hit_dE(mc_MAX_Hits) !energy loss[GeV]
76 INTEGER mc_Hit_detector(mc_MAX_Hits) !detector ID#
77 INTEGER mc_Hit_plane(mc_MAX_Hits) !plane-row ID#
78 INTEGER mc_Hit_element(mc_MAX_Hits) !wire-element-column ID#
79 INTEGER mc_Hit_extra(mc_MAX_Hits) !resv'd for additional information
|
83 cdaq 1.2 COMMON /Mc_tracks/ mc_N_Trks,mc_Trk_ancestor,mc_Trk_system,
84 & mc_Trk_X,mc_Trk_Y,mc_Trk_Z,mc_Trk_T,mc_Trk_Px,mc_Trk_Py,
85 & mc_Trk_Pz,mc_Trk_M,mc_Trk_path,mc_Trk_geantID,mc_Trk_comment,
86 & mc_Trk_extra
87 *
88 COMMON /Mc_hits/ mc_N_Hits,mc_Hit_ancestor,mc_Hit_system,
89 & mc_Hit_X,mc_Hit_Y,mc_Hit_Z,mc_Hit_T,mc_Hit_Px,mc_Hit_Py,
90 & mc_Hit_Pz,mc_Hit_dE,mc_Hit_detector,mc_Hit_plane,
91 & mc_Hit_element,mc_Hit_extra
92 *
93 *-reported coordinate systems used in simulation
94 *
95 INTEGER mcCo_MAX_coords
96 PARAMETER (mcCo_MAX_coords= 20)
97 * !note: "LAB" always exists!
98 INTEGER mcCo_N_coords !# of coordinates to follow
99 CHARACTER*4 mcCo_NAME(mcCo_MAX_coords) !name of coordinate system
100 CHARACTER*4 mcCo_reference(mcCo_MAX_coords) !system define w.r.t.
101 *-first translate
102 REAL mcCo_Lo_to_Xo(mcCo_MAX_coords)
103 REAL mcCo_Lo_to_Yo(mcCo_MAX_coords) !from LAB to system
104 cdaq 1.2 REAL mcCo_Lo_to_Zo(mcCo_MAX_coords)
105 *-next Euler rotatation
106 REAL mcCo_Lo_THETA_rot(mcCo_MAX_coords) !about Z
107 REAL mcCo_Lo_PHI_rot(mcCo_MAX_coords) !about Y'
108 REAL mcCo_Lo_THETAprime_rot(mcCo_MAX_coords) !about Z'
109 *
110 COMMON /mcCo_systems/ mcCo_N_coords,mcCo_NAME,mcCo_reference,
111 & mcCo_Lo_to_Xo,mcCo_Lo_to_Yo,mcCo_Lo_to_Zo,
112 & mcCo_Lo_THETA_rot,mcCo_Lo_PHI_rot,mcCo_Lo_THETAprime_rot
113 *
|