*********************************************************************** SUBROUTINE ACCBOOK * book n-tuple for MDC acceptance calculation * * last modified on 4/3/98 by: R.Holzmann *********************************************************************** IMPLICIT NONE INTEGER NTEFFI, ISTAT, ICYCLE PARAMETER (NTEFFI=26) CHARACTER*5 CHEFFI(NTEFFI) CHARACTER*63 NTUPLE_FILE, NT_FILE_NAME DATA CHEFFI / 'PE','THE','PHE','PP','THP','PHP', + 'D1E','D2E','D3E','D4E','CLE', + 'D1P','D2P','D3P','D4P','CLP', + 'PXE','PYE','PZE','PXP','PYP','PZP', + 'MINV','Y','PINV','PTIV' / * Define Ntuple file NTUPLE_FILE='MDCDILEP.RZT' WRITE(6,'(//A,$)') ' NTUPLE_FILE_NAME (=''MDCDILEP.RZT''): ' READ(5,'(A)') NT_FILE_NAME IF (NT_FILE_NAME.NE.' ') NTUPLE_FILE = NT_FILE_NAME CALL HROPEN(3081,'ACCTUP',NTUPLE_FILE,'N',4024,ISTAT) CALL HBOOKN(3100,'Efficiency',NTEFFI,'Ntuple',4024,CHEFFI) RETURN *********************************************************************** ENTRY ACCBOOK_LAST C CALL HCDIR('//ACCTUP',' ') CALL HPRINT(3100) CALL HROUT(3100,ICYCLE,' ') CALL HREND('ACCTUP') RETURN END