#!/bin/sh
MAIN_DIR=`pwd`
#
#	Checks whether there are old events. If yes, it removes them...
#
ls -d 24[5-9] 2[5-9][0-9]>${MAIN_DIR}/list_dir_245_more
num=`cat list_dir|wc -l`

if [ ${num} -gt 0 ]
then
	while read dir
	do
		rm -rf ${MAIN_DIR}/${dir}
	done<${MAIN_DIR}/list_dir_245_more
fi
#
#	Grabs the earthquakes from Kevin's list and makes new event directories...
#
sh Make_DataSet_245_and_more.sh
ls -d 24[5-9] 2[5-9][0-9]>${MAIN_DIR}/list_dir_245_more
while read dir
do
	cd ${MAIN_DIR}/${dir}
	sac2000<<EOF
m ${MAIN_DIR}/macro_pick_rotate.mac
EOF

done< ${MAIN_DIR}/list_dir_245_more

sh Put_Kt9_New_245_and_more.sh