;
; Now prepare for plotting
;
loadct,39
multi_plot,nrow=2
if !d.name eq 'X' then begin
  window,ysize=800
  !p.font=-1
endif else begin
  !p.font=0
  device,/helvetica,/bold,font_size=14
endelse
def_1color,20,color='deepblue'
def_1color,21,color='red'
!x.margin=[10,10]
;
for i = nreg-3 , nreg-2 do begin
  x=findgen(12)
  y=reform(regr(i,0:11))
  plot,x,y,/nodata,$
    /ystyle,yrange=[-0.6,0.6],ytitle='Correlation',$
    xstyle=5,xrange=[-1,12],title=regname(i)+'  r(temp,prec)'
  for j = -6 , 6 , 2 do oplot,!x.crange,replicate(float(j)*0.1,2),linestyle=1
  oplot,!x.crange,[0.,0.]
  cpl_barts,x,y,outline=-1,/overplot,bar_color=[21,20],thick=2
;  if !d.name eq 'PS' then device,font_size=8
  for j = 0 , 11 do begin
    x1=x(j)+0.25
    y1=y(j)
    if y1 lt 0 then y1=+0.05 else y1=y1+0.05
    xyouts,x1,y1,corrname(j),align=0.,orient=90.
  endfor
;  if !d.name eq 'PS' then device,font_size=14
endfor
;
end