scidoc1549 — Document

get_soi_filter_keyword.cl

May 21, 2009

# CL to read an FITS File Header Keyword and print it
# SDP 12 Mar 1999 [original]
# SDP 12 Feb 2010 [modified for SOI]
#
procedure get_soi_filter_keyword(inimage)
#
string inimage {prompt="List of input images"}
#
struct *inlist
#
begin
string comlist, image, key1, key2, key3, key4, name, newimage
#
comlist = inimage
inlist = comlist
#
# this is the main loop
#
while(fscan (inlist, image) !=EOF) {
#
images
imutil
language
tables
ttools
#
name = substr(image, 1, 20)
newimage = image//"[0]"

keypar(newimage, keyword='FILPOS')
key1 = str(keypar.value)
keypar(newimage, keyword='FILTERS')
key2 = str(keypar.value)
keypar(newimage, keyword='FILTER1')
key3 = str(keypar.value)
keypar(newimage, keyword='FILTER2')
key4 = str(keypar.value)

#
print(name, ' ', key1, ' ', key2, ' ', key3, ' ', key4, ' ', >> "soi_filters.out")
}
end


About the Document

Id: scidoc1549
Release date: May 21, 2009, 2:34 pm

Document Formats