function xrayss, index, count
;
;+
;   Name: xrayss
;
;   Purpose: return subscripts of X-Ray images
;
;   Input Parameters:
;      index - Yokhoh SXT index or roadmap structures
;
;   Output:
;      function returns long word vector of subscripts (-1 for no match)
;
;   Output Parameters:
;      count - number of xray images found in input
;
;   History:
;      18-jul-1994 (SLF)
;-
; 

retval=where( (( gt_filta(index) eq 1) or (gt_filta(index) eq 5)) and $
		gt_expmode(index) eq 0,count)
return,retval
end