pro table2data

COMMON t2d_common, h_x,h_y,h_s,t_x,t_y,t_s,data,hours,obs,dt0,ixyax

  n = n_elements(data)
 
  obs = strarr(n)
  xt  = fltarr(n)
  yt  = fltarr(n)
  r   = fltarr(n)
  th  = fltarr(n)
  val = fltarr(n)
  detector = strarr(n)
  speed2 = fltarr(n)

  reads,data,obs,format="(3x,A19)"
  reads,data,xt,format="(25x,f8.3)"
  reads,data,yt,format="(36x,f8.3)"
  reads,data,r,format="(47x,f8.3)"
  reads,data,th,format="(59x,f7.2)"
  reads,data,val,format="(71x,f8.3)"
  reads,data,detector,format="(85x,A3)"
  reads,data,speed2,format="(94x,f8.1)"

  y1 = 0.0 & x1 = 0.0D & y11 = 0
  y2 = 0.0 & x2 = 0.0D & y21 = 0
  y3 = 0.0 & x3 = 0.0D & y31 = 0
  y4 = 0.0 & x4 = 0.0D & y41 = 0
 
  hours = fltarr(n)  
  dt0 = STRMID(obs(0),0,10)
  
  FOR i=0,n-1 DO BEGIN
        
   if (i eq 0) then t0 = anytim2utc(dt0 +' 00:00:00.000')
   tm = anytim2utc(obs(i))
   hours(i) = (tm.mjd - t0.mjd)*24. + tm.time/3.6e6
    
   CASE STRCOMPRESS(detector(i),/REMOVE_ALL) OF

     'C1':  BEGIN 
             x1 = [x1,hours(i)]  
             y1 = [y1,r(i)]
             y11 = [y11, speed2(i)] 
            END
     'C2':  BEGIN
             x2 = [x2,hours(i)]  
             y2 = [y2,r(i)]
             y21 = [y21, speed2(i)]
            END
     'C3':  BEGIN
             x3 = [x3,hours(i)]  
             y3 = [y3,r(i)]
             y31 = [y31,speed2(i)]
            END
     'EIT': BEGIN
             x4 = [x4,hours(i)]  
             y4 = [y4,r(i)] 
             y41 = [y41, speed2(i)]
            END       
   ELSE: donothing = 0	; here should add xn,xy for non LASCO images!
   ENDCASE
      
 ENDFOR

;create array for multiple plots  
  
  IF datatype(t_x) EQ 'UND' THEN BEGIN
    t_x = HANDLE_CREATE()
    t_y = HANDLE_CREATE()
    t_s = HANDLE_CREATE()
  ENDIF ELSE BEGIN
    HANDLE_FREE,t_x
    HANDLE_FREE,t_y
    HANDLE_FREE,t_s 
    tx = 0 & t_y = 0 & t_s = 0 
    t_x = HANDLE_CREATE()
    t_y = HANDLE_CREATE()
    t_s = HANDLE_CREATE()
  ENDELSE
  
  h_x = lonarr(1)
  h_y = lonarr(1)
  h_s = lonarr(1)

 ind = WHERE(y1 GT 0)		; looking and sorting x,y for c1
 IF ind(0) GT -1 THEN BEGIN
  y1 = y1(ind) & x1 = x1(ind) & y11 = y11(ind)
  ind = SORT(x1)  
  y1 = y1(ind) & x1 = x1(ind) & y11 = y11(ind)  
  temp = HANDLE_CREATE(t_x,VALUE=x1)
  h_x = [h_x, temp]
  temp = HANDLE_CREATE(t_y,VALUE=y1)
  h_y = [h_y, temp]
  temp = HANDLE_CREATE(t_s,VALUE=y11)
  h_s = [h_s, temp]
 ENDIF
  
 ind = WHERE(y2 GT 0)
 IF ind(0) GT -1 THEN BEGIN
  y2 = y2(ind) & x2 = x2(ind) & y21 = y21(ind)
  ind = SORT(x2)
  y2 = y2(ind) & x2 = x2(ind) & y21 = y21(ind)
  temp = HANDLE_CREATE(t_x,VALUE=x2)
  h_x = [h_x, temp]
  temp = HANDLE_CREATE(t_y,VALUE=y2)
  h_y = [h_y, temp]
  temp = HANDLE_CREATE(t_s,VALUE=y21)
  h_s = [h_s, temp]
 ENDIF
 
 ind = WHERE(y3 GT 0)
 IF ind(0) GT -1 THEN BEGIN
   y3 = y3(ind) & x3 = x3(ind) & y31 = y31(ind)
   ind = SORT(x3)
   y3 = y3(ind) & x3 = x3(ind) & y31 = y31(ind)
  temp = HANDLE_CREATE(t_x,VALUE=x3)
  h_x = [h_x, temp]
  temp = HANDLE_CREATE(t_y,VALUE=y3)
  h_y = [h_y, temp]
  temp = HANDLE_CREATE(t_s,VALUE=y31)
  h_s = [h_s, temp]   
 ENDIF
 
 ind = WHERE(y4 GT 0)
 IF ind(0) GT -1 THEN BEGIN
  y4 = y4(ind) & y4 = y4(ind) & y41 = y41(ind)
  ind = SORT(x4)
  y4 = y4(ind) & y4 = y4(ind) & y41 = y41(ind)
  temp = HANDLE_CREATE(t_x,VALUE=x4)
  h_x = [h_x, temp]
  temp = HANDLE_CREATE(t_y,VALUE=y4)
  h_y = [h_y, temp]
  temp = HANDLE_CREATE(t_s,VALUE=y41)
  h_s = [h_s, temp]   
 ENDIF

  h_xindex= where(h_x GT 0 )

  IF h_xindex(0) EQ -1 THEN BEGIN
    msg = WIDGET_MESSAGE("No data present!", $
      /INFORMATION, TITLE= 'Height Time Plot')
  RETURN
  ENDIF

  h_x= h_x(h_xindex)
  h_y= h_y(h_xindex)
  h_s= h_s(h_xindex)

return
end