function norh_gt_progname, index

;+
; NAME:
;       norh_gt_progname
;
; PURPOSE:
;       Return the name of synthesis program
;
; CALLING SEQUENCE:
;       progname=norh_gt_progname(index)
;
; INPUTS:
;       index: index structure
;
; HISTORY:
;       Writtern 1999-02-18 TY
;       Modified 2000-04-19 TY based on V. Grechnev's suggestion
;-


  out = index.norh.progname

if n_elements(out) eq 1 then out=out(0)

return,out
end