*------------------------------------------------------------------------------ c SUBROUTINE WALLBOOK c c open 6 TOF n-tuples with layout: c c IDEVT, NTRK, WLTRK WLDET, WLE, WLX, WLY, WLTOF c ^ ^ ^ ^ ^ ^ ^ ^ c | | | | | | | | c ev. ID nb. tracks track nb. det. nb. energy posx posy tof c c c last modified on: 15/11/2004 by F.Krizek c *------------------------------------------------------------------------------ IMPLICIT NONE #include "walltuple.inc" #include "geant321/gcflag.inc" INTEGER I, NTUPID, ICYCLE, ERR, ISTAT CALL HBSET('BSIZE',1024,ERR) CALL HBNT(5000+I,'WALL'//CHAR(48+I),' ') CALL HBNAME(5000+I,'IEVT',IDEVT,'IDEVT:U') ! event number in 1st pos A CO TECH 5000? CALL HBNAME(5000+I,'WALL'//CHAR(48+I),NTRK, & 'NHIT[0,200]:U,'// ! nb. of tracks in WALL & 'WLTRK(NHIT)[0,4000]:U,'// ! track number & 'WLDET(NHIT)[0,2000]:U,'// ! detector number & 'WLE(NHIT),'// ! deposited energy in MeV & 'WLX(NHIT),'// ! x along scintillator paddle in cm & 'WLY(NHIT),'// ! y along scintillator paddle in cm & 'WLTOF(NHIT)') ! tof in ns RETURN ENTRY WALLBOOKLAST ! save ntuples to file c CALL HPRINT(5000+I) CALL HROUT(5000+I,ICYCLE,' ') RETURN END