#!/bin/sh
MAIN_DIR=`pwd`
ls -d [0-9][0-9][0-9]_HH>${MAIN_DIR}/list_dir_HH
while read dir
do
	cd ${MAIN_DIR}/${dir}
	sac2000<<EOF
m ${MAIN_DIR}/macro_pick_rotate_HH.mac
EOF

done< ${MAIN_DIR}/list_dir_HH
sh Put_Kt9_HH.sh
sh Cut_Like_TheOthers.sh