load "$NCARG_ROOT/lib/ncarg/nclex/gsun/gsn_code.ncl"

begin
; Generate some random data.
  x = floattointeger(random_uniform(0,33,150))

  wks = gsn_open_wks("x11","gsn_histogram_panel")

  plot = new(4,graphic)
  res = True 
  res@gsnDraw     = False
  res@gsnFrame    = False
  res@gsnMaximize = True

  plot(0) = gsn_histogram(wks,x,res)

  res@gsnHistogramNumberOfBins = 7
  plot(1) = gsn_histogram(wks,x,res)

  res@gsnHistogramNumberOfBins = 10
  plot(2) = gsn_histogram(wks,x,res)

  res@gsnHistogramNumberOfBins = 5
  plot(3) = gsn_histogram(wks,x,res)

  pnlres = True
  pnlres@gsnPanelFigureStrings = (/"A)","B)","C)","D)"/)
  gsn_panel(wks,plot,(/2,2/),pnlres)
end