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.

 10 cdaq  1.2 * $Log: mc_structures.cmn,v $
 11           * Revision 1.1  1994/02/17  21:01:14  cdaq
 12           * Initial revision
 13           *

 14 cdaq  1.1 *-
 15                 CHARACTER*4 mc_TEST_C4
 16                 REAL*4 mc_TEST_R4
 17                 INTEGER*4 mc_TEST_I4
 18           *-
 19           *- following are used to determine the proper byte swapping;
 20           *- sort of a "Rosetta Stone" for CODA files
 21           *-
 22           *-                   each of 4 bytes unique!
 23                 PARAMETER (mc_TEST_C4= 'gMc_')             !program pkg

 24 cdaq  1.2       PARAMETER (mc_TEST_R4= 2.24)               !version
 25                 PARAMETER (mc_TEST_I4= '23fb1994'x)        !date

 26 cdaq  1.1 *-
 27           *- identifing status and ROC integer
 28                 INTEGER mc_status_and_ROC
 29                 PARAMETER (mc_status_and_ROC= 'FFFF'x)
 30           *-

 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

 80 cdaq  1.1 *-
 81                 COMMON /Mc_status/ mc_READY
 82           *-

 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           *

114 cdaq  1.1 *******************end: mc_structures.cmn*************************