#!/bin/sh
PATH=:/disk1/luca/rbh_dottorato/bin:$PATH
export PATH
echo $PATH

umask 001

##### #	Zrmsf?? are the Z (vertical) tables
#	Hrmsf?? are the H (horizontal) tables
#	Armsf?? are the A (combined Z and T ) tables
#####


for i in \
001 002 003 004 005 006 007 008 009 010 011 012 013 014 015 016 017 018 019 020 \
021 022 023 024 025 026 027 028 029 030 032 033 034 035 036 037 038 039 040 \
041 042 043 044 045 047 048 049 050 051 052 053 054 055 056 058 059 060 \
061 062 063 064 065 066 067 070 071 072 073 074 075 076 077 078 079 080 \
081 082 083 084 085 086 087 088 089 090 
do

	cd $i
	pwd
	rm RMSf??
	rm Zrmsf*
        ../DOIT		
	wc ???.z ????.z
	sacitrmspsrv -75 -AQUILA -E $i  < zrmspsrv.dat
#	for j in 01 02 03 04 05 06 07 08 09
	for j in 06 07 08 09
	do
		cat RMSf$j >> Zrmsf$j
		rm RMSf$j
	done
	rm RMSf??
	rm Trmsf*
	../TDOIT
	wc ???.t ????.t
	sacitrmspsrv -75 -AQUILA -E $i  < trmspsrv.dat
#	for j in 01 02 03 04 05 06 07 08 09
	for j in 06 07 08 09
	do
		cat RMSf$j >> Trmsf$j
		rm RMSf$j
	done
	rm RMSf??
	rm Rrmsf*
	../RDOIT
	wc ???.r ????.r
	sacitrmspsrv -75 -AQUILA -E $i  < rrmspsrv.dat
#	for j in 01 02 03 04 05 06 07 08 09
	for j in 06 07 08 09
	do
		cat RMSf$j >> Rrmsf$j
		rm RMSf$j
	done
	cd ..

done
ATABLEIT