function norh_fixindex,index

;+
; NAME:
;       NORH_FIXINDEX
;
; PURPOSE:
;       Fix the NoRH index to fit the SSW time format 
;
; CALLING SEQUENCE:
;       outindex=norh_fixindex(index)
;
; INPUT:
;       index: index structure read by 'mreadfits'
;
; OUTPUT:
;       returns fixed structure
;
; MODIFICATION HISTORY:
;       T. Yokoyama, May, 1999.
;       Modified T. Yokoyama, June. 20, 1999.
;-

;outindex=index
;timest=index.date_d$obs+' '+index.time_d$obs

mx=n_elements(index)
outindex=add_tag(index,'','date_obs')
for m=0,mx-1 do begin
  pos=strpos(index(m).date_d$obs,'/')
  if (pos ne -1) then begin
    ddst=strmid(index(m).date_d$obs,pos-2,2)
    mmst=strmid(index(m).date_d$obs,pos+1,2)
    yyst=strmid(index(m).date_d$obs,pos+4,2)
    timest=yyst+'/'+mmst+'/'+ddst+' '+index(m).time_d$obs
  endif else begin
    timest=index(m).date_d$obs+' '+index(m).time_d$obs
  endelse
  outindex(m).date_obs=anytim(timest,/ccsds)
endfor

return,outindex
end