;+
; NAME: 
;  lasttok
; PURPOSE: 
;  return the last token in a string
; DESCRIPTION:
; CATEGORY:
;  util
; CALLING SEQUENCE:
;  token = lasttok(str, toksep)
; INPUTS:
;  fn: the filename
; OPTIONAL INPUT PARAMETERS:
; KEYWORD INPUT PARAMETERS:
; OUTPUTS:
;  exists (boolean): true if file exists
; KEYWORD OUTPUT PARAMETERS:
; COMMON BLOCKS:
; SIDE EFFECTS:
; RESTRICTIONS:
; PROCEDURE:
;  call findfile
; MODIFICATION HISTORY:
;  2002/05/30 - Initial  version written, Leslie Young SwRI
;-

function lasttok, str, toksep

    if n_params() eq 0 then return, ''

    if n_params() eq 1 then toksep = path_sep()

    res = strsplit(str, toksep, /extract)

    return, res[n_elements(res)-1]

end