procedure getarch (patch, field, mask)

# Remember to first do   task getarch = getarch.cl   in IRAF.

string patch {enum="0223|0920|1447|2148",prompt="4-letter code of patch (eg 2148)"}
string field		{prompt="2-letter code of field (eg c5)"}
string mask		{prompt="1-letter code of mask (eg A)"}

begin

string	pch, fld, msk

pch = patch
fld = field
msk = mask

print ("doing  cp /d/cnoc3/cnoc/"//pch//"/"//fld//"/specred/xcor/"//msk//"/* .")
cp ("/d/cnoc3/cnoc/"//pch//"/"//fld//"/specred/xcor/"//msk//"/*", ".")

!gunzip *.Z
!gunzip *.gz

imarith ("cleancal", "*", 1.e19, "cleancalm")
imarith ("unweighted", "*", 1.e19, "unweightedm")

end