;+
;NAME:
; hxt_setgra
;PURPOSE:
; For some reason, the data as we get it, is not in the same order 
; as the SC info is input using the parameter file. This routine 
; sets up the array to put the data in the same order as the modulation 
; patterns, so that the data for a given SC corresponds to the mod. pattern
; for that SC.
;CATEGORY:
; Yohkoh HXT
;CALLING SEQUENCE:
; hxt_setgra,sn2gra,grasn2
;INPUT:
; none
;OUTPUT:
; sn2gra = subscripts for switch from order of SC's in modulation array
;          to order in data array
; gra2sn = subscripts for switch from order in data array to the order
;          in the modpat array.
;HISTORY:
; 1992, jmm
; Changed name, 24-jun-1998, jmm
;-
	Pro Hxt_setgra,sn2gra,gra2sn

	sn2gra=[  9, 10, 34, 58, 12, 11, 33, 57,  4,  3, 25, 49,  1,  2, 26, 50,$
		 30, 29, 54, 53, 38, 37, 62, 61, 23, 31, 47, 55, 24, 32, 48, 56,$
		 40, 39, 64, 63, 22, 21, 46, 45, 20, 19, 44, 43, 28, 27, 52, 51,$
		 16, 15, 17, 41, 13, 14, 18, 42,  5,  6, 36, 60,  8,  7, 35, 59 ]
	sn2gra=sn2gra-1

	gra2sn=[ 13, 14, 10,  9, 57, 58, 62, 61,  1,  2,  6,  5, 53, 54, 50, 49,$
		 51, 55, 42, 41, 38, 37, 25, 29, 11, 15, 46, 45, 18, 17, 26, 30,$
		  7,  3, 63, 59, 22, 21, 34, 33, 52, 56, 44, 43, 40, 39, 27, 31,$
		 12, 16, 48, 47, 20, 19, 28, 32,  8,  4, 64, 60, 24, 23, 36, 35 ]
	gra2sn=gra2sn-1

	Return
	End