; $Id: fileroot.pro,v 1.4 2009/11/30 13:21:48 aake Exp $
;+
 FUNCTION fileroot, name, ext=ext, head=head, tail=tail
;-
;-
  separator = '.'
  i=strpos(name,separator,/reverse_search)
  if i gt 0 then begin
    root=strmid(name,0,i)
    ext=strmid(name,i+1)
  end else begin
    root=name
    ext=name
  end
  head=filehead(name,tail=tail)
  return, root
END