C+
C NAME:
C	timer
C PURPOSE:
C	Display elapsed time since given start time
C CALLING SEQUENCE:
	program timer
C INPUTS:
C	start_time_string and stop time_string are times in absolute time format
C	as returned by the lexical function f$time(). The start time must be
C	specified. The stop time is optional (default is the current system time)
C OUTPUTS:
C	Displayed on screen
C CALLS:
C	ForeignInput, StopWatch, Say
C RESTRICTIONS:
C	Stop time must be later than start time
C PROCEDURE:
C	On VMS create symbol TIMER = "$ $EXE:TIMER". Then use:
C	timer start_time_string [stop_time_string]
C	See href=StopWatch=
C MODIFICATION HISTORY:
C	Lindau, JAN-1993, Paul Hick (UCSD)
C-
	character	cVar(2)*23

	iVar = 2
	call ForeignInput(',',iVar,cVar)

	if (iVar .eq. 0) call Say('Timer','E','Usage','timer start_time [stoptime]')

	call StopWatch(cVar(1),cVar(2),iVar)

	end