pro go_dsn_final, week, outfil=outfil
;+
; NAME: GO_DSN_FINAL
; PURPOSE: to produce output text file showing weekly summary
;         of DSN station-by-station coverage (incl. KSC)
; CALLING SEQUENCE: go_dsn_final,indgen(9)+5
;         This will create a file ~/dsn_summary.txt, showing the
;       summary of DSN downlinks by station for weeks 5-13
; INPUT:  week (can be a vector)
; OPTIONAL INPUT: outfile
; METHOD: apply rd_tfile on solass* and visible files
; HISTORY: NVN written 25-may-00
;      11-jun-00, debugged (HSH) to trap errors resulting from no SOLASS
;       3-jul-00, replaced Santiago printout with NASA total (HSH)
;-

extpr=anytim2ex(!stime)
if extpr(6) lt 1900 then extpr(6)=extpr(6)+1900 ; for inconsistent ext time
yymmdd=string(extpr(6),format='(i4.4)')+  $
  string(extpr(5),format='(i2.2)')+string(extpr(4),format='(i2.2)')

if n_elements(outfil) ne 1 then outfil='~/dsn_summary_'+yymmdd+'.txt'
dum0='Week'
dum1='Wallops'
dum2='Goldstone'
dum3='Canberra'
dum4='Madrid'
dum5='NASA'
dum6='Japan'

nw=n_elements(week)
openw,1,outfil
printf,1,dum0,dum1,dum2,dum3,dum4,dum5,dum6, $
  format='(a,5x,a,2x,a,3x,a,5x,a,7x,a,6x,a)'
;dsn_final,16,wallops=wallops                    ; removed 10-Jun-00 (HSH)
for i=0,nw-1 do begin
   dsn_final,week(i),wallops=wallops,santiago=santiago,$
     goldstone=goldstone,canberra=canberra,madrid=madrid
   if wallops eq 0 then goto, bail                         ; patch (HSH)
   cmd="ls -t "+'$DIR_GEN_STATUS/v*_*'+string(week(i),format='(i2.2)')+'*'
   spawn,cmd,files & vfil=files(0) ; newest one
   rv=rd_tfile(vfil,11)
   ksc=where(strmid(rv(10,*),0,3) eq 'Vis'  $
       or strmid(rv(9,*),0,3) eq 'Vis', nksc)
   nasa = wallops+goldstone+madrid+canberra
   printf,1,week(i),wallops,goldstone,canberra,madrid,nasa,nksc, $
     format='(2x,i2.2,1x,6(8x,i3))' 
endfor

bail:
close,1

return
end