PRO put_slash, string_to_slash

;; Simple routine which will check to see if the
;; input string has a '/' on the end. If not,
;; add one. This procedure is used to add a '/'
;; to directory names

len = STRLEN(string_to_slash)

IF ( STRMID(string_to_slash, len-1, 1) NE '/') THEN $
  string_to_slash = string_to_slash + '/'

RETURN

END