load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"

begin

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

  x = floattointeger(random_uniform(1,100,100))

  res = True
  res@gsnDraw = False
  res@gsnFrame = False
  res@gsnHistogramDiscreteBinValues = ispan(5,95,10)

  plot = gsn_histogram(wks,x,res)

  delete(res@gsnDraw)
  delete(res@gsnFrame)
  res@tmXBMode = "Explicit"
  res@tmXBValues = plot@MidBarLocs
  res@tmXBLabels = (/"ONE","","TWO","","THREE","","FOUR","","FIVE","SIX"/)
  plot = gsn_histogram(wks,x,res)

end