function norh_rdt2timej,rdata

;+
; NAME:
;       NORP_RDT2TIMEJ
;
; PURPOSE:
;       This function is for getting the JST time array from the NoRH raw data
;
; CALLING SEQUENCE:
;       timej=norh_rdt2timej(rdata)
;
; INPUTS:
;       rdata: structure of the raw data
;       date: observation date of the data
;
; OPTIONAL INPUT KEYWORDS:
;
; OUTPUTS:
;       timej: structure array with 'time internal format'. Time is in JST.
;
; HISTORY:
;       2000-6-15 T. Yokoyama
;
;-

yy = (ishft(rdata.time(0),-4) and 'f'x) * 10 +(rdata.time(0) and 'f'x)
mn = (ishft(rdata.time(1),-4) and 'f'x) * 10 +(rdata.time(1) and 'f'x)
dd = (ishft(rdata.time(2),-4) and 'f'x) * 10 +(rdata.time(2) and 'f'x)
hh = (ishft(rdata.time(3),-4) and 'f'x) * 10 +(rdata.time(3) and 'f'x)
mm = (ishft(rdata.time(4),-4) and 'f'x) * 10 +(rdata.time(4) and 'f'x)
ss = (ishft(rdata.time(5),-4) and 'f'x) * 10 +(rdata.time(5) and 'f'x)
imsec1 = (ishft(rdata.time(6),-4) and 'f'x) * 10 +(rdata.time(6) and 'f'x)
imsec2 = (ishft(rdata.time(7),-4) and 'f'x) * 10 +(rdata.time(7) and 'f'x)
ms=long(double(imsec1)*double(10.) + double(imsec2)/double(10.))

if (yy(0) ge 90) then ccyy=yy+1900 else ccyy=yy+2000

timej=anytim(transpose([[hh],[mm],[ss],[ms],[dd],[mn],[ccyy]]),/int)


return,timej
end