split_filename.pro (Documentation for /home/davin/idl/socware/)

;$Author: nikos $
;$Date: 2014-09-03 15:05:59 -0700 (Wed, 03 Sep 2014) $
;$Header: /home/cdaweb/dev/control/RCS/split_filename.pro,v 1.3 2012/05/01 21:47:44 johnson Exp johnson $
;$Locker: johnson $
;$Revision: 15739 $
;
;Copyright 1996-2013 United States Government as represented by the 
;Administrator of the National Aeronautics and Space Administration. 
;All Rights Reserved.
;
;------------------------------------------------------------------
;
PRO split_filename, instring, outpath, outfile
; split the instring into path and filename information
temp = break_mystring(instring,delimiter='/') ; assume UNIX
if n_elements(temp) eq 1 then begin ; no path information present
  outpath='' & outfile=temp[0] & return
endif else begin
  if temp[0] ne '' then outpath=temp[0] + '/' else outpath = ''
  for i=1,n_elements(temp)-2 do outpath = outpath + temp[i] + '/'
  outfile=temp[n_elements(temp)-1]
endelse
return
end