fail() {
	/iwarp/bin2.8/iwunlock -R /iwarp -H victory -S 0 1>/dev/null 2>&1 &
	exit 1
}
intr() {
	echo "lgo: interrupted; unlocking the array..."
	fail
}
trap 'intr' 1 2 3 15
/iwarp/bin2.8/iwlock -s -w -R /iwarp -H victory -S 0  >/dev/null
if [ $? -eq 1 ] ; then fail ; fi
/iwarp/bin2.8/iwclrstat -R /iwarp -H victory -S 0 
if [ $? -eq 1 ] ; then fail ; fi
/iwarp/bin2.8/iwhpi -R /iwarp -H victory -S 0 
if [ $? -eq 1 ] ; then fail ; fi
/iwarp/bin2.8/iwload -R /iwarp -H victory -S 0 -r 0..3  task_module_1.0.0 
if [ $? -eq 1 ] ; then fail ; fi
/iwarp/bin2.8/iwload -R /iwarp -H victory -S 0 -r 8..11  task_module_1.0.0 
if [ $? -eq 1 ] ; then fail ; fi
/iwarp/bin2.8/iwload -R /iwarp -H victory -S 0 -r 16..19  task_module_1.0.0 
if [ $? -eq 1 ] ; then fail ; fi
/iwarp/bin2.8/iwload -R /iwarp -H victory -S 0 -r 24..27  task_module_1.0.0  
if [ $? -eq 1 ] ; then fail ; fi
/iwarp/bin2.8/iwrun -R /iwarp -H victory -S 0 -r 0..3  -r 8..11  -r 16..19  -r 24..27   
if [ $? -eq 1 ] ; then fail ; fi
/iwarp/bin2.8/iwstat -R /iwarp -H victory -S 0 -e 16 >/dev/null
st=$?
while [ $st = 1 ] ; do
	sleep 1
	/iwarp/bin2.8/iwstat -R /iwarp -H victory -S 0 -e 16 >/dev/null
	st=$?
done
if [ $st -ne 0 ]; then
	echo "abnormal exit status"
	/iwarp/bin2.8/iwstat -se -R /iwarp -H victory -S 0 
	fail
fi
/iwarp/bin2.8/iwunlock -R /iwarp -H victory -S 0 1>/dev/null 2>&1 &
exit 0