;goodindex.pro finds the indexes of a data array where elements of the vector 
;are not equal to -999.
;Use is as follows:
;                   goodindex,var,gi,gflag
;Where
;   input |        var = data array
;
;  output |         gi = indexes where var is not equal to -999.
;         |      gflag = flag denoting if there are any good values in var
;         |              (=1 if there are good values, =0 if all are -999.)
;         |   subtitle = string denoting if data is good
;         |              if gflag = 1, subtitle is blank
;         |              if gflag = 0, subtitle is 'NO GOOD DATA'
; 
;Written by BWBerger 8/19/99

pro goodindex,var,gi,gflag,subtitle

gi=where(var ne -999.,count)
if count ne 0 then begin
   gflag=1
   subtitle=''
endif else begin
   gi=where(var eq -999.,count)
   gflag=0
   subtitle=' NO GOOD DATA'
endelse


return
end