C+
C NAME:
C	smei_Time2Split
C PURPOSE:
C	Extract time in SMEI format from string
C CALLING SEQUENCE:
	subroutine smei_Time2Split(id,cStr,tt)
C INPUTS:
C	id		integer		indicates method of locating
C					the time in SMEI format
C					id=0: time starts after first underscore
C					id=1: time starts after first underscore
C						of file name part
C					id=2: time starts at 1st char of string
C	cStr		character*(*)	string containing SMEI time
C OUTPUTS:
C	tt(2)		integer		time as 2-element standard time
C INCLUDE:
	include		'filparts.h'
C CALLS:
C	Time2Split, iSetFileSpec, iGetFileSpec
C MODIFICATION HISTORY:
C	FEB-2005, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    integer	id
	    character	cStr*(*)
	    integer	tt(2)

	character	cName*(FIL__LENGTH)

	if (id .eq. 0) then
	    call Time2Split('SMEI',cStr(index(cStr,'_')+1:),tt)
	else if (id .eq. 1) then
	    i = iSetFileSpec(cStr)
	    i = iGetFileSpec(FIL__NAME,0,cName)
	    call Time2Split('SMEI',cName(index(cName,'_')+1:),tt)
	else if (id .eq. 2) then
	    call Time2Split('SMEI',cStr,tt)
	end if

	return
	end