*------------------------------------------------------------------------------ c SUBROUTINE TOFBOOK c c open 6 TOF n-tuples with layout: c c IDEVT, NTRK, TOFTRK TOFDET, TOFE, TOFX, TOFY, TOFTOF c ^ ^ ^ ^ ^ ^ ^ ^ c | | | | | | | | c ev. ID nb. tracks track nb. det. nb. energy posx posy tof c c c last modified on: 18/10/99 by R.Holzmann c *------------------------------------------------------------------------------ IMPLICIT NONE #include "toftuple.inc" #include "geant321/gcflag.inc" INTEGER I, NTUPID, ICYCLE, ERR, ISTAT CALL HBSET('BSIZE',1024,ERR) DO I=1,NSECT CALL HBNT(5000+I,'TOF'//CHAR(48+I),' ') CALL HBNAME(5000+I,'IEVT',IDEVT,'IDEVT:U') ! event number in 1st pos CALL HBNAME(5000+I,'TOF'//CHAR(48+I),NTRK, & 'NHIT[0,200]:U,'// ! nb. of tracks in this TOF sector & 'TOFTRK(NHIT)[0,4000]:U,'// ! track number & 'TOFDET(NHIT)[0,2000]:U,'// ! detector number & 'TOFE(NHIT),'// ! deposited energy in MeV & 'TOFX(NHIT),'// ! x along scintillator paddle in cm & 'TOFY(NHIT),'// ! y along scintillator paddle in cm & 'TOFTOF(NHIT)') ! tof in ns ENDDO RETURN ENTRY TOFBOOKLAST ! save ntuples to file DO I=1,NSECT c CALL HPRINT(5000+I) CALL HROUT(5000+I,ICYCLE,' ') END DO RETURN END