;  This file is kept in /0p/sxt_co/filament_camp
;
;NAME:
;
;     fil_coord_sel
;
; PURPOSE
;
; This procedure is for use by the SXT Chief Observer when conducting a filament
; or other fixed pointing campaign where H-alpha and He 10830 data are useful
;
; CALLING SEQUENCE
;
; .run fil_coord_sel
;
; HISTORY
;
;      23-jun-95 - DA - Written
;


; create arrays

today =strarr(1)
ns=intarr(1) & ew=intarr(1)

;  read in date

read,prompt="What is today's date?  [e.g. 23-JUN-95] ",today

; get GBO data

infil = findfile('/yd8/gbo95_25a/gbh*') 
n_fils = n_elements(infil)
gbhs = infil(n_fils-2:n_fils-1)
infil = findfile('/yd8/gbo95_25a/gki*')
n_fils = n_elements(infil)
gkis = infil(n_fils-2:n_fils-1)
last1 = 0
last2 = 0
if n_elements(gkis) ne 0 then last1 = n_elements(gkis)-1
if n_elements(gbhs) ne 0 then last2 = n_elements(gbhs)-1
gkiimg = rfits2(gkis(last1),head=head1, /scale)
gkidate=strmid(head1(8),11,8)
gkitime=strmid(head1(17),11,8)
gbhimg = rfits2(gbhs(last2), date=gbhdate, time=gbhtime)
sz=size(gbhimg)

; display H-alpha

wdef,0,sz(1),sz(2)
loadct,3
tvscl,rotate(gbhimg,7)
wdef,2

;get last SFD image 

lastsfd,sind,sdat
wdef,1
tvscl,gkiimg>(-500)<500

; scale He image to SXT image

gkiimgs=scale_gbo(sdat,gkiimg,sind)

tvscl,sdat
ocontour,gkiimgs,levels=indgen(7)*150-500
wset,2
ocontour,gkiimgs,levels=indgen(6)*200-500
xyouts,/dev,10,480,'Time of He 10830 :   '+gkidate+'  '+gkitime,charsize=1.5

; input size of OR required

read,prompt='What size OR is required?  [e.g. 2x2 input 2,2]',ns,ew
ns=64*ns & ew=64*ew

; select coordinates for mid-observing day at Hawaii (2300 UT)

time=today+' 23:00'
sxt_obs_coord,sind,time,side=[ns,ew]

end