(file) Return to NtupleClose.f CVS log (file) (dir) Up to [HallC] / simc_semi
File: [HallC] / simc_semi / NtupleClose.f (download)
Revision: 1.1.1.1 (vendor branch), Fri Apr 23 17:13:18 2004 UTC (20 years, 4 months ago) by gaskelld
Branch: hallc, MAIN
CVS Tags: start, baryon, NoPoltar, HEAD
Changes since 1.1: +0 -0 lines 
simc_semi sources

	subroutine NtupleClose(filename)
	implicit none
	save

	include 'hbook.inc'

	character*80 filename
	integer*4 cycle

	cycle= 0				!dummy for HROUT
	call HCDIR(NtupleDirectory,' ')
	call HROUT(NtupleID,cycle,' ')		!flush CERNLIB buffers
	call HREND(NtupleName)			!CERNLIB close file
	write(6,*)'Closing file:',filename(1:60)
	CLOSE(NtupleIO)				!close IO channel

	return
	end
Analyzer/Replay: Mark Jones, Documents: Stephen Wood
 Powered by
ViewCVS 0.9.2-cvsgraph-1.4.0