pro dsn_show, dsn_num, dsn_select, index=index
;+
;  Name:
;    dsn_show
;
;  Purpose:
;    Show the requested dsn contacts
;
;  History:
;    Written, 12-nov-91, J. Lemen
;    Updated, 12-dec-91, J. Lemen
;-

if dsn_num eq 0 then print,' No DSN stations requested' else begin
        print,' '
        print,'  Requested DSN Station times: ' & print,' ' 
    	for i=0,dsn_num-1 do begin
	    if keyword_set( index ) then begin
		indd = '     '
		strput,indd,'['+strtrim(i+1,2)+']'
	    endif else indd = ''
		print,indd+dsn_select(i).station,			$
		      dsn_select(i).doy, 				$
	      fmt_tim(dsn_select(i).timarr),				$
			format='(x,a,i4,2x,a)'
	endfor
endelse

return
end