; ----------------------------------------------------------------------
; Append a slash if needed.
;
; from nsx.c
;> completely rewritten for IDL since the \0 termination doesn't apply

pro nsxng_append_slash, wrd
  ii = clc(wrd)
  wrd = strmid(wrd, 0, ii+1)
  if (strmid(wrd,strlen(wrd)-1,1) ne '/') then wrd = wrd + '/'
end