(file) Return to NtupleClose.f CVS log (file) (dir) Up to [HallC] / simc_gfortran
File: [HallC] / simc_gfortran / NtupleClose.f (download)
Revision: 1.1.1.1 (vendor branch), Fri Jan 23 13:33:52 2009 UTC (15 years, 7 months ago) by gaskelld
Branch: gaskelld, MAIN
CVS Tags: start, HEAD
Changes since 1.1: +0 -0 lines 
initial import

	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