#	Close ensembles at selected traces 
#############################################################

*if
list	chan
1	7	21

*call	hdrmath
set	stophdr		1	# set lasttr=1 when we want 
				# to terminate ensembles
*endif

*call	sortcut	stophdr		# subdivide into new ensembles

#############################################################