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

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

;void nsx_append_slash( char wrd[] )
;{
;int ii;
;ii = clc(wrd);
;if (ii >= 0) { if (wrd[ii] != '/') { wrd[(ii+1)]='/';   wrd[(ii+2)]='\0'; } }
;return;
;}