	subroutine ftncls(n)
	close(n)
	end
