pro norh_rd_rdt,st_time,ed_time,rdata,header,freq=freq, dir_raw=dir_raw

;+
; NAME:
;       NORH_RD_RDT
;
; PURPOSE:
;       This procedure is for reading the raw data of NoRH.
;
; CALLING SEQUENCE:
;       norh_rd_rdt,file,rdata,header
;
; INPUTS:
;       file: file name of NoRH raw data
;
; OPTIONAL INPUT KEYWORDS:
;
; OUTPUTS:
;       rdata: structure of the raw data
;       header: header of the data
;
; HISTORY:
;       by T. Yokoyama 2000.6.15
;-

if not keyword_set(freq) then freq=17
if not keyword_set(dir_raw) then dir_raw=getenv('DIR_NORH_RWD')

st_dayfr=norh_tim2f(st_time)
norh_f2fname,st_dayfr,freq,fname,/add_dir,fnum=st_fnum,fhead=fhead
st_frame=st_dayfr.frame mod 600

ed_dayfr=norh_tim2f(ed_time)
norh_f2fname,ed_dayfr,freq,fname,/add_dir,fnum=ed_fnum
ed_frame=ed_dayfr.frame mod 600

if ed_fnum gt st_fnum then begin

  fnumst=string(st_fnum+indgen(ed_fnum-st_fnum+1),form='(i3.3)') 
  files=fhead+fnumst

  mfx= n_elements(files)
for m=0,mfx-1 do begin
  if freq eq 17 then norh_rd_rdt17,dir_raw+'/'+files(m),rdata_el,header_el $
                else norh_rd_rdt34,dir_raw+'/'+files(m),rdata_el,header_el
  if m eq 0 then begin
    rdata=rdata_el(st_frame:*)
    header=header_el
  endif else begin
    if m eq mfx-1 then rdata_el=rdata_el(0:ed_frame)
    rdata=[rdata,rdata_el]
    header=[header,header_el]
  endelse
endfor

endif else begin
  files=fname
  if freq eq 17 then norh_rd_rdt17,dir_raw+'/'+files,rdata_el,header $
                else norh_rd_rdt34,dir_raw+'/'+files,rdata_el,header
    rdata=rdata_el(st_frame:ed_frame)
endelse

return
end