TITLE SECOND - FORTRAN SUBR TO RETURN FLOATING CPUTIME

	SEARCH MONSYM

; Returns the CPU time of the current process in
; floating-point seconds.


	ENTRY	SECOND
	SIXBIT /SECOND/

SECOND::MOVEI 1,.HPRNT	;RUNTIME FOR THIS PROCESS
	HPTIM
	 ERJMP [MOVE 1,[-1.0]	;ON ERROR, INSERT A FLOATING-
		JRST EXIT]	; POINT -1 AND EXIT.
	FLTR 1,1
	FDV 1,[100000.0]	;CONVERT TO SECONDS.
EXIT:	MOVEM 1,@0(16)
	POPJ 17,

	END