pro mk_ssl_sub1, outrec, index, ss, isub
;
;+
;NAME:
;	mk_ssl_sub1
;PURPOSE:
;	MK_SSL subprocedure #1 counts the number of images of a given filter
;	and saves the total exposure through that filter.
;INPUT/OUTPUT:
;	outrec
;INPUT:
;	index
;	ss
;	isub
;HISTORY:
;	Written 24-Apr-92 by M.Morrison
;-
;
count = 0
if (ss(0) ne -1) then count = n_elements(ss)
;
outrec.num_expos(isub)	= count
;
if (count ne 0) then begin
    expdur = gt_expdur(index(ss))
    outrec.dur_expos(isub) = total(expdur)
end
;
end