#!/bin/sh
MAIN_DIR=`pwd`
#
#	Checks whether there are old events. If yes, it removes them...
#
ls -d 24[34]>${MAIN_DIR}/list_dir_NEW
while read dir
do
	cd ${MAIN_DIR}/${dir}
	sac2000<<EOF
m ${MAIN_DIR}/macro_pick_rotate.mac
EOF

done< ${MAIN_DIR}/list_dir_NEW

sh Put_Kt9_New_Two_Evts.sh