function norh_jst2ut,timein,yohkoh=yohkoh,ccsds=ccsds,ints=ints,ex=ex

;+
; NAME:
;       NORH_JST2UT
;
; PURPOSE:
;       This function converts JST time to UT time
;
; CALLING SEQUENCE:
;       timeut = norh_jst2ut(timejst)
;
; INPUTS:
;       timejst:   An n-element vector of JST time.
;                 Any formats supported by 'anytim' function
;                 is accepted.
;                  (1) structure wit a .time and .day field, or
;                  (2) 2xN where the first dimension holds (MSOD, DS79), or
;                  (3) a double or float array of seconds from 1-jan-79, or
;                  (4) string, e.g.
;                   '1992-11-05 12:33:00' (NORH)
;                   '1992-11-05T12:33:00Z' (ISO 8601)
;                   '12:33:00 5-nov-92' (Yohkoh)
;                   '92/11/05 12:33:00' (HXRBS)
;                   etc.
;
; OPTIONAL INPUT KEYWORDS:
;        ints:   Output time format (see anytim.pro)
;        yohkoh: Default is 'ccsds'.
;        ccsds:
;        ex:
;
; OUTPUT:
;      timeut:   An n-element vector of UT time. 
;                Default is Utime (Double) format.
;
; HISTORY:
;       Writtern 1998-05-29 JS and TY
;-

if   ((not keyword_set(yohkoh)) $
  and (not keyword_set(ints)) $
  and (not keyword_set(ex)) $
     ) then ccsds=1

  timeo=anytim(anytim2ints(anytim(timein,/ints) $
    ,offset=-9.*60.*60),ccsds=ccsds,yohkoh=yohkoh,ints=ints,ex=ex)


return,timeo
end