;+
; Project     : SOHO - LASCO
;
; Name        : 
;
; Purpose     : 
;
; Category    : 
;
; Explanation : 
;
; Syntax      : 
;
; Examples    : 
;
; Inputs      : None
;
; Opt. Inputs : None
;
; Outputs     : None
;
; Opt. Outputs: None
;
; Keywords    : None
;
; Common      : 
;
; Restrictions:                                  
;
; Side effects: Not known
;
; History     : Version 1, 02-Sep-1995, B Podlipnik. Written
;
; Contact     : BP, borut@lasco1.mpae.gwdg.de
;-

PRO plot_xy,a,row,xr1,xr2,ysc1,ysc2,main_title,rc,la,over=over,line=line
    rc = strupcase(rc)
    srow = string(row)
    if rc eq 'ROW' then begin
      tit = ' LEFT TO RIGHT'
      ta = a(*,row)
    endif else begin
      tit = ' BOTTOM TO TOP'
      ta = a(row,*)
    endelse
    sub_tit = rc + srow + ' ' + tit
    y_title = 'AMPLITUDE'
    IF la EQ 'L' THEN BEGIN
      IF KEYWORD_SET(over) THEN BEGIN
       oplot,ta,linestyle=line
      ENDIF ELSE BEGIN
       plot,ta,title = main_title , subtitle= sub_tit,$
	   ytitle=y_title,xrange=[xr1,xr2],yrange=[ysc1,ysc2],/NORMAL    
      ENDELSE
    ENDIF ELSE BEGIN

     IF KEYWORD_SET(over) THEN BEGIN
      oplot,ta>1,linestyle=line
     ENDIF ELSE BEGIN	
      plot,ta>1, title = main_title , subtitle= sub_tit,$
	      ytitle=y_title, xrange=[xr1,xr2], yrange=[ysc1,ysc2],/YLOG,/NORMAL
     ENDELSE	
    ENDELSE
RETURN
END