pro pr_sfc, output, hc=hc
;
;+
;   Name: pr_sfc
;
;   Purpose: list sfc file information
;
;-
files=file_list('$DIR_SXT_SFC','sfc??????.????')
break_file,files,log,path,fs,ext,ver
fname=fs+ext+ver
rd_sda,files,-1,index,/nodata

output=get_sfc_info(index,head=head,/nohead,/byfilter,/notime)

output=fname + ' ' + output
head='Filname   ' + head

output=[head,'',output]
prstr,output
if keyword_set(hc) then prstr,output,/hc

return
end