22.05.2014 Views

CERN Program Library Long Writeup W5013 - CERNLIB ...

CERN Program Library Long Writeup W5013 - CERNLIB ...

CERN Program Library Long Writeup W5013 - CERNLIB ...

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Geant 3.16 GEANT User’s Guide HITS200<br />

Origin : R.Brun, F.Bruyant, W.Gebel, M.Maire Submitted: 01.11.83<br />

Revision : Revised: 17.12.93<br />

Documentation :<br />

Routines to store and retrieve HITS<br />

CALL GSAHIT<br />

(ISET,IDET,ITRA,NUMBV,HITS,IHIT*)<br />

ISET<br />

IDET<br />

ITRA<br />

NUMBV<br />

HITS<br />

IHIT<br />

(INTEGER) set number (see below);<br />

(INTEGER) detector number;<br />

(INTEGER) number of the track producing this hit<br />

(INTEGER) array of volume numbers corresponding to list NAMESV of GSDET;<br />

(REAL) array of values for current hit elements;<br />

(INTEGER) current hit number, if 0 the hit has not been stored.<br />

Stores element values for current hit into the data structure JHITS. The values ISET, IDET and NUMBV can<br />

be found in the corresponding variables of common /GCSETS/. These values are set by the routine GFINDS<br />

every time that a particle is in a defined detector.<br />

CALL GSCHIT<br />

(ISET,IDET,ITRA,NUMBV,HITS,NHSUM,IHIT*)<br />

Same action as GSAHIT, but in case the detector identified by ISET, IDET and NUMBV contains already a hit<br />

for the same track, the routine will make a cummulative sum for the latest NHSUM elements of JHITS. The<br />

other previous elements of JHITS are replaced. That facility is particularly interesting in the case of hits<br />

generated into a calorimeter. No packing (i.e. 32 bits per hit element) should be requested for the last NHSUM<br />

hits in GSDETH and for these hits ORIG should be set to 0.<br />

CALL GPHITS<br />

(CHSET,CHDET)<br />

CHSET<br />

CHDET<br />

(CHARACTER*4) set name, if ’*’ prints all JHITS banks of all sets;<br />

(CHARACTER*4) detector name, if ’*’ prints hits in all detectors of set CHSET.<br />

Prints JHITS banks for detector CHDET of set CHSET.<br />

CALL GFHITS<br />

(CHSET,CHDET,NVDIM,NHDIM,NHMAX,ITRS,NUMVS,<br />

ITRA*,NUMBV*,HITS*,NHITS*)<br />

CHSET<br />

CHDET<br />

NVDIM<br />

NHDIM<br />

NHMAX<br />

ITRS<br />

NUMVS<br />

(CHARACTER*4) set name;<br />

(CHARACTER*4) detector name;<br />

(INTEGER)1 st dimension of arrays NUMBV and NUMVS:1≤NVDIM≤NV argument of GSDET;<br />

(INTEGER)1 st dimension of array HITS:1≤NHDIM≤NH argument of GSDETH;<br />

(INTEGER) maximum number of hits to be returned, this should be not larger than the second<br />

dimension of array NUMBV and HITS;<br />

(INTEGER) number of the selected track, if ITRS=0, all tracks are taken;<br />

(INTEGER) is a 1-dimension array of NVDIM elements that contains the list of volume numbers<br />

which identify the selected detector, 0 is interpreted as ’all valid numbers’;<br />

164 HITS200 – 1

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!