pro norh_mkst_index,index

;+
; NAME:
;       NORH_MKST_INDEX
;
; PURPOSE:
;       This procedure defines the NORH structures
;
; CALLING SEQUENCE:
;       norh_mkst_index,index
;
; OUTPUTS:
;       index: index structure
;
; HISTORY:
;       Writtern 1998-05-29 JS and TY
;       Revised 1999-11-8  TY for 'cellsize'
;
;-


gen={ gen_nro, $
           time: long(0), $
           day : fix(0), $
           timejst: long(0), $
           dayjst : fix(0)}
norh={ norh_index_rec, $
           obs_freq: '', $
           polariz : '', $
           shape   : intarr(2), $
           sec_per_pix: 0., $
           solrfac : 0., $
           roll: 0., $
           solcen: [0.,0.], $
           oldpfi: 0B, $
           solp: 0., $
           pmat: [0.,0.,0.,0.], $
           sec_per_pix_dty: 0., $
           progname: '', $
           efl_in_pix_dty: 0., $
           cellsize: 0, $
           expdur : 0.}
index={ norhidx0, gen: gen, norh: norh }

end