pro ReadRFsh,date, xsoft, xhard, es_status,eh_status, path=path, INFO=info
;+
; NAME:
;       ReadRFsh
; PURPOSE:
;       read a RF15-i soft and hard X-ray data
;
; CALLING EXAMPLES:
;
; xxx=ReadRFs('c:\951021.001')
;
; INPUTS:
;       date - full date to the RF15-I soft X-ray data files
;
;
; OUTPUTS:
;		returns RF15-I data buffer for soft X-ray channels
;
; MODIFICATION HISTORY:
;       Written, Szymon Gburek 1998.
;-



eh_status=0
es_status=0
xsoft=-1
xhard=-1


;----------------------------------------------

   read_soft:
   soft_path='s'+date+'.001'
   ON_IOERROR, error_soft
   restore,soft_path
   xsoft=xxx
   xxx=0.


   GOTO, read_hard

   error_soft:
   IF KEYWORD_SET(INFO) THEN PRINT, 'NO soft X-ray RF DATA FOR '+date
   es_status=-1


;----------------------------------------------
   read_hard:
   hard_path='h'+date+'.001'
   ON_IOERROR, error_hard
   restore,hard_path
   xhard=xxx
   xxx=0.
   ;close, /file, /all
   GOTO, close_all


   error_hard:
   IF KEYWORD_SET(INFO) THEN PRINT, 'NO hard X-ray RF DATA FOR '+date
   eh_status=-1



close_all:
close, /file, /all  ; must be in order to avoid units overfill

end
;----------------------------------------------------