PRO PLOT_IC,a,ic,text,clevel,clabel,csz,min_img,max_img
		  
 sza = size(a)
 
 xb = sza(1)/csz
 yb = sza(2)/csz
 
 IF (sza(1) MOD csz EQ 0) AND (sza(2) MOD csz EQ 0) THEN BEGIN 
   b = REBIN(a,xb,yb)
 ENDIF ELSE BEGIN
   b = CONGRID(a,FIX(xb),FIX(yb),/INTERP)
 ENDELSE
 
 xb = csz*FINDGEN(xb)
 yb = csz*FINDGEN(yb)

 CASE ic OF
   0: BEGIN	; Image & contours  
	;erase
	;tvscl,a
	tvscl,bytscl(a>min_img<max_img)
	contour,b,xb,yb, $
	        xstyle=1,ystyle=1, $
	        levels=clevel,c_labels=clabel, $
	        title=text,c_color=[100,200], $
	        /noerase,/spline, $
	        POSITION=[0,0,15,15]	
      END                 
   1: BEGIN	; Image
	;erase
	tvscl,bytscl(a>min_img<max_img)
	;tvscl,a
	contour,b,xb,yb, $
	        xstyle=1,ystyle=1, $
	        levels=[-100000], $
	        title=text, $
		/noerase,/spline, $
		POSITION=[0,0,15,15]
      END
   3: BEGIN     ; Contours
	;erase
	contour,b,xb,yb, $
	        xstyle=1,ystyle=1, $
	        levels=clevel,c_labels=clabel, $
	        title=text,c_color=[100,200], $
	        /noerase,/spline, $
	        POSITION=[0,0,15,15]
      END     
      ELSE: donothing=0
 ENDCASE

RETURN
END