# 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