1 gaskelld 1.1 	subroutine NtupleClose(filename)
 2              	implicit none
 3              	save
 4              
 5              	include 'hbook.inc'
 6              
 7              	character*80 filename
 8              	integer*4 cycle
 9              
10              	cycle= 0				!dummy for HROUT
11              	call HCDIR(NtupleDirectory,' ')
12              	call HROUT(NtupleID,cycle,' ')		!flush CERNLIB buffers
13              	call HREND(NtupleName)			!CERNLIB close file
14              	write(6,*)'Closing file:',filename(1:60)
15              	CLOSE(NtupleIO)				!close IO channel
16              
17              	return
18              	end