******************************************************************************* * include file geatarget.inc * * defines a COMMON block used to hold the GEANT target informations * number of segments, mediumindex, shape, size and position * * modified last: January 9, 2004 by R. Holzmann * modified : March 27, 1998 by I. Koenig ******************************************************************************* integer SEGMAXNO parameter (SEGMAXNO=99) integer*4 nSegments integer*4 targetMednum(SEGMAXNO) character*5 shape real*4 size(3,SEGMAXNO) real*4 position(3,SEGMAXNO) real*4 targIntZ(SEGMAXNO) integer*4 jver(3) real*4 beampar(6), tgtpar(9) integer*1 padtarget(3) common /geatarget/ nSegments, targetMednum, size, + position, shape, padtarget common /target/ jver, beampar, targIntZ, tgtpar