;*************************************************
; histo_8.ncl
;
; Concepts illustrated:
;   - Rotating a histogram 90 degrees
;   - Generating dummy data using "rand"
;
;************************************************
;
; THis file is loaded by default in NCL V6.2.0 and newer
; load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"   
;************************************************
begin
;************************************************
; Generate some random data.
;************************************************
  x = new(1000,integer)
  do i=0,dimsizes(x)-1
    x(i) = rand()
  end do
  x = x/320
;************************************************
; create plot
;************************************************
  wks = gsn_open_wks("png","histo")             ; send graphics to PNG file
  gsn_define_colormap(wks,"temp1")              ; choose colormap

  res                         = True
  res@gsnHistogramHorizontal  = True            ; draw horizontal histogram
  plot = gsn_histogram(wks,x,res)               ; create histogram with 10 bins
end