pro egso_summ_filelist, struct, short=short

;  egso_summ_filelist, file_list(egso_filter_filelist(file_list,timerange))

;       10-Feb-2007  rdb  added /short switch to suppress list of obs/inst pairs 
;       28-Feb-2007  rdb  small mod of format of list

obs_inst = struct.observatory+'/'+struct.instrument
sum_obs_inst = all_vals(obs_inst)

print,''
print,'* Total No. of Obs./Inst. pairs and No. of files:', $
       n_elements(sum_obs_inst),n_elements(struct), format='(a,i6,i10)'
print,'* Summary of No. of files per Observatory/Instrument pair'

if not keyword_set(short) then $
  for j=0,n_elements(sum_obs_inst)-1 do $
     print,sum_obs_inst(j),n_elements(where(obs_inst eq sum_obs_inst(j))),format='(a,t30,i5)'

print,''

end