load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl" load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl" begin npts = 100 ii = ispan(1,npts,1) u = conform_dims((/npts,npts/),ii,0) v = conform_dims((/npts,npts/),ii,1) wks = gsn_open_wks("x11","vector1d") res = True res@vcRefLengthF = 0.1 ; Set ref. length res@vcMinDistanceF = 0.02 ; Thin the vectors vector = gsn_csm_vector(wks,u,v,res) end