pro mycolorbar,nlev,clev,ornt,poscb,cbtitle

if (ornt eq 0) then begin
   cbar = fltarr(nlev,2)
   cbar(*,0) = clev
   cbar(*,1) = clev
   contour,/cell_fill,cbar,clev,findgen(2),xst=1,yst=4,$
           lev=clev,pos=poscb,xtitle=cbtitle,charsize=0.8,/noer
endif else begin
   cbar = fltarr(2,nlev)
   cbar(0,*) = clev
   cbar(1,*) = clev
   contour,/cell_fill,cbar,findgen(2),clev,xst=4,yst=1,$
           lev=clev,pos=poscb,ytitle=cbtitle,charsize=0.8,/noer
endelse

return
end