;
; Title exercise 3.
;

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

begin
  npts = 500
  y = 500.+.9* ispan(0,npts-1,1)*sin(0.031415926535898*ispan(0,npts-1,1))

  wks = gsn_open_wks("x11","title_ex03")  ; Open an X11 window

  res = True                                ; Plot options desired
  res@tiMainString  = "This is a main title"

  res@tiYAxisString    = "Y Axis String"    ; Y axis title
  res@tiYAxisSide      = "Right"            ; Move to right of plot
  res@tiYAxisAngleF    = 0.                 ; Rotate letters 90 degrees
  res@tiYAxisDirection = "Down"             ; Text goes down, not across

  plot = gsn_csm_y(wks,y,res)

end