;*****************************************************
;  This subroutine matches up the cal and mom time
;  arrays
;*****************************************************

pro sync_times_sb,time_cal,time_mom,i

;  Create an array to hold the subscripts of where cal matches mom

i=lonarr(n_elements(time_cal))

;  Loop through the cal times and find where they match mom times

for j=0l,n_elements(time_cal)-1 do begin

  tempv=where(time_mom eq time_cal[j])
  i[j]=tempv[0]

endfor

return
end