;============================================================
;
;     DST Time Profile PLOT
;
;  
;=============================================================

  pro dstplot, pen
; procedure to plot prepared data on prepared graph
     
  common GraphC, Graph, GraphN
  colour = [!dnc - 1, !dnc*20/256, !dnc*90/256, !dnc - 2]  

  Time =  Graph[GraphN].Time[0]
  if (N_elements(*Time) eq 0) then return    
  Val = (*Graph[GraphN].Val[0])
  numMinMax = where(Val gt -10000.0, IndexMinMax)
  if IndexMinMax LE 0 then return 
  MinVal = min(Val[numMinMax])
  MaxVal = max(Val[numMinMax]) 
  if Graph[GraphN].Ly.range[0] eq Graph[GraphN].Ly.range[1] then begin
                  Graph[GraphN].Ly.range = [MinVal, MaxVal]
                  Graph[GraphN].Ly.style = 0
   endif else Graph[GraphN].Ly.style = 1 
  
    !y = Graph[GraphN].Ly
    
    if (execute(Graph[GraphN].AxisF) NE 1) then plot, *Time, Val, PSYM = 10, color = !DNC-1  else $ 
    oplot, *Time, Val, PSYM = 10,  color=colour[pen];
  
return
end
;--------------------------------------------------------------------