function tykw_rdt2timej,rdata


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; time
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

nmax=n_elements(rdata)
ndtx=long(total(rdata.blockl))

timej_base=anytim(transpose([ $
   [rdata.hours],[rdata.minut],[rdata.secnd],[rdata.subsec*10] $
  ,[rdata.day],[rdata.month],[rdata.year]]),/int)

timej=replicate(timej_base(0),112*nmax)

timej.day=reform((lonarr(112)+1)#timej_base.day,112*nmax)
timej.time=reform( $
  (100*lindgen(112))#(lonarr(nmax)+1)+(lonarr(112)+1)#timej_base.time,112*nmax)

timej=timej(0:ndtx-1)


return,timej
end