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           * $Log:$
 11           *-
 12                 CHARACTER*4 mc_TEST_C4
 13                 REAL*4 mc_TEST_R4
 14                 INTEGER*4 mc_TEST_I4
 15           *-
 16           *- following are used to determine the proper byte swapping;
 17           *- sort of a "Rosetta Stone" for CODA files
 18           *-
 19           *-                   each of 4 bytes unique!
 20                 PARAMETER (mc_TEST_C4= 'gMc_')             !program pkg
 21                 PARAMETER (mc_TEST_R4= 2.07)               !version
 22 cdaq  1.1       PARAMETER (mc_TEST_I4= '7feb1994'x)        !date
 23           *-
 24           *- identifing status and ROC integer
 25                 INTEGER mc_status_and_ROC
 26                 PARAMETER (mc_status_and_ROC= 'FFFF'x)
 27           *-
 28                 LOGICAL mc_READY                       !status of MonteCarlo info.
 29           
 30           *-target quantities are in appropriate SPECTROMETER SYSTEM
 31           *-
 32           *- All target tracks put in sequentially (don't start over with 1 for
 33           *- 2nd arm)
 34           *-
 35                 INTEGER mc_MAX_TarTrks                  !upper limit on target tracks
 36                 PARAMETER (mc_MAX_TarTrks= 10)
 37                 INTEGER mc_N_TarTrks                    !present # of target tracks
 38           *
 39           *- values "HMS ","SOS ","HNSS","NPOL",....
 40           *
 41                 CHARACTER*4 mc_TarTrk_arm(mc_MAX_TarTrks) !spectrometer name
 42           *
 43 cdaq  1.1       INTEGER mc_TarTrk_type(mc_MAX_TarTrks)    !GEANT particle ID
 44                 REAL mc_TarTrk_X(mc_MAX_TarTrks)
 45                 REAL mc_TarTrk_Y(mc_MAX_TarTrks)        !position[cm]
 46                 REAL mc_TarTrk_Z(mc_MAX_TarTrks)
 47                 REAL mc_TarTrk_T(mc_MAX_TarTrks)        !time[nS]
 48                 REAL mc_TarTrk_Px(mc_MAX_TarTrks)
 49                 REAL mc_TarTrk_Py(mc_MAX_TarTrks)       !momentum[GeV/c]
 50                 REAL mc_TarTrk_Pz(mc_MAX_TarTrks)
 51           *
 52           *- focal plane quantities are in appropriate DETECTOR SYSTEM
 53           *-
 54           *- All focal plane tracks put in sequentially (don't start over with 1 for
 55           *- 2nd arm; relevant target track determines which arm)
 56           *-
 57                 INTEGER mc_MAX_FocTrks            !upper limit on focal plane tracks
 58                 PARAMETER (mc_MAX_FocTrks= 50)
 59                 INTEGER mc_N_FocTrks              !present # of focal plane tracks
 60           *
 61           *-assume TarTrks and FocTrks numbered sequentially
 62           *
 63                 INTEGER mc_FocTrk_TarTrk(mc_MAX_FocTrks)    !relevant target track#
 64 cdaq  1.1 *
 65                 INTEGER mc_FocTrk_type(mc_MAX_FocTrks)      !GEANT particle ID
 66                 REAL mc_FocTrk_X(mc_MAX_FocTrks)
 67                 REAL mc_FocTrk_Y(mc_MAX_FocTrks)            !position[cm]
 68                 REAL mc_FocTrk_Z(mc_MAX_FocTrks)
 69                 REAL mc_FocTrk_T(mc_MAX_FocTrks)            !time[nS]
 70                 REAL mc_FocTrk_Px(mc_MAX_FocTrks)
 71                 REAL mc_FocTrk_Py(mc_MAX_FocTrks)           !momentum[GeV/c]
 72                 REAL mc_FocTrk_Pz(mc_MAX_FocTrks)
 73                 REAL mc_FocTrk_path(mc_MAX_FocTrks)         !distance to end of track[cm]
 74           *-
 75           *- detector quantities are in appropriate DETECTOR SYSTEM
 76           *-
 77           *- All detector hits tracks put in sequentially (detector ID# and relevant
 78           *- focal plane track determine which arm; don't start over with 1 for
 79           *- 2nd arm)
 80           *-
 81                 INTEGER mc_MAX_DetHits                   !upper limit on # of Det hits
 82                 PARAMETER (mc_MAX_DetHits= 2000)
 83                 INTEGER mc_N_DetHits                        !present # of Det hits
 84                 INTEGER mc_DetHit_FocTrk(mc_MAX_DetHits)    !relevant focal plane track#
 85 cdaq  1.1 *
 86           *- ID numbers assigned according to those specified in
 87           *-"gen_detectorids.cmn"
 88           *
 89                 INTEGER mc_DetHit_detector(mc_MAX_DetHits)  !detector ID
 90                 INTEGER mc_DetHit_plane(mc_MAX_DetHits)     !plane-row ID
 91                 INTEGER mc_DetHit_element(mc_MAX_DetHits)   !wire-element-column ID
 92           *
 93                 REAL mc_DetHit_X(mc_MAX_DetHits)
 94                 REAL mc_DetHit_Y(mc_MAX_DetHits)          !position[cm]
 95                 REAL mc_DetHit_Z(mc_MAX_DetHits)
 96                 REAL mc_DetHit_T(mc_MAX_DetHits)          !time[nS]
 97                 REAL mc_DetHit_Px(mc_MAX_DetHits)
 98                 REAL mc_DetHit_Py(mc_MAX_DetHits)         !momentum[GeV/c]
 99                 REAL mc_DetHit_Pz(mc_MAX_DetHits)
100                 REAL mc_DetHit_dE(mc_MAX_DetHits)         !energy loss[GeV]
101           *-
102                 COMMON /Mc_status/ mc_READY
103           *-
104                 COMMON /Mc_target_track_info/ mc_TarTrk_X,mc_TarTrk_Y,
105                &      mc_TarTrk_Z,mc_TarTrk_T,mc_TarTrk_Px,mc_TarTrk_Py, 
106 cdaq  1.1      &      mc_TarTrk_Pz,mc_N_TarTrks,mc_TarTrk_type, 
107                &      mc_TarTrk_arm
108           *-
109                 COMMON /Mc_focal_plane_info/ mc_FocTrk_X,mc_FocTrk_Y,
110                &      mc_FocTrk_Z,mc_FocTrk_T,mc_FocTrk_Px,mc_FocTrk_Py,
111                &      mc_FocTrk_Pz,mc_FocTrk_path,mc_N_FocTrks,mc_FocTrk_TarTrk,
112                &      mc_FocTrk_type
113           *-
114                 COMMON /Mc_Det_info/ mc_DetHit_X,mc_DetHit_Y,mc_DetHit_Z,
115                &      mc_DetHit_T,mc_DetHit_Px,mc_DetHit_Py,mc_DetHit_Pz,
116                &      mc_DetHit_dE,mc_N_DetHits,mc_DetHit_FocTrk,
117                &      mc_DetHit_detector,mc_DetHit_plane,mc_DetHit_element
118           *-
119           *******************end: mc_structures.cmn*************************