******************************************************************************* c SUBROUTINE MDCBOOK c c open 24 (=6x4) MDC n-tuples with layout: c c IDEVT, NTRAK, MDCTRAK(NTRAK), MDCX(7,NTRAK), MDCY(7,NTRAK), c ^ ^ ^ ^ ^ c | | | | | c ev. ID nb. trks track nb. x along wire y to wire c c c ... MDCTHETA(7,NTRAK), MDCPHI(7,NTRAK), MDCTOF(7,NTRAK) c ^ ^ ^ c | | | c incidence of trk azimuth of trk TOF of trk c c c 6 sense-wire planes + cathode plane 4 ( = #7) c c last modified on: 23/11/06 by R.Holzmann c ******************************************************************************* implicit none #include "geant321/gcflag.inc" #include "drtups.inc" INTEGER JS, JD, ITUPLE, ICYCLE, ERR CALL HBSET('BSIZE',1024,ERR) DO JS=1,6 DO JD=1,4 ITUPLE = 3000+10*JS+JD CALL HBNT(ITUPLE,'MDC'//CHAR(48+JS)//CHAR(48+JD),' ') CALL HBNAME(ITUPLE,'IEVT',IDEVT,'IDEVT:U') CALL HBNAME(ITUPLE,'S'//CHAR(48+JS)//'D'//CHAR(48+JD), & NHIT, & 'NHIT[0,250]:U,'// ! nb. of tracks/det & 'MDCTRK(NHIT)[0,4000]:U,'// ! track number & 'MDCX(7,NHIT):R,MDCY(7,NHIT):R,'// ! x and y positions & 'MDCTHETA(7,NHIT):R,MDCPHI(7,NHIT):R,'// ! theta and phi & 'MDCTOF(7,NHIT):R') ! tof ENDDO ENDDO RETURN ********************************************************** ENTRY MDCBOOKLAST ********************************************************** DO JS=1,6 DO JD=1,4 CALL HROUT(3000+JS*10+JD,ICYCLE,' ') ENDDO ENDDO CALL HCDIR('//MDCTUP',' ') RETURN END