;+ ; ; NAME : SUMER_PICK_FLAT ; ; PURPOSE : Picks SUMER flat image file name ; ; CALLING SEQUENCE : ; Result = SUMER_PICK_FLAT(Filename) ; ; INPUTS: ; FILENAME SUMER fits filename ; OUTPUTS: ; RESULT SUMER FLAT Filename ; ; HISTORY ; Apr 97, J Chae ;- function sumer_pick_flat, file break_file, file, disk_log, dir, filename,ext, fversion, node file1=filename+ext file1 = sumer_file(file1) break_file, file1, disk_log, dir, filename,ext, fversion, node filter=concat_dir(disk_log+dir, 'sumff_*.*') a=findfile(filter, count=count) if count ge 1 then $ flat_field_file=pickfile(/read, filter=filter, path=disk_log+dir, $ title='Flat file for '+file) $ else flat_field_file=pickfile(/read, $ title='Flat data for '+file, filter=filter) return, flat_field_file end