#! /bin/csh

set archive = ../m1.tar

foreach can ( m1 )
foreach year (2001)
@ day = 1
while ($day < 78)
	@ hour = 0
	while ( $hour < 24 )
		set dstr = `printf "%03d" $day`
		set hstr = `printf "%02d" $hour`
		set filename = "$can.$year$dstr.$hstr"
		echo $archive $filename
		tar xvf $archive $filename
		@ hour++	
	end
	grep begin *$dstr* >> 2001blks
	rm *$dstr*
	@ day++
end
end
end