Fundamental Technologies Voyager LECP Pages

An Analysis of the Performance of the Magnetic Deflection System in the Voyager Low Energy Charged Particle Experiment

by Sheela Shodhan

E.6 TIMER

	FUNCTION TIMER()
*                                                                          *
* PURPOSE : THIS FUNCTION DETERMINES THE C.P.U. TIME TAKEN FOR THE PROGRAM.*
****************************************************************************

	logical init
	data init/.true./
	if (init) then
		icode = lib$init_timer()	! set up timing block
		if (.not.icode) then	! error ?
			write(6,2) 'lib$init_timer',icode
2			format(' ',a,' error =',z9.8)
			return
		end if
		init = .false.
	end if
	icode = lib$stat_timer(2,isec,)
	if (.not.icode) then		! error ?
		write(6,2) 'lib$stat_timer',icode
		return
	end if
	timer = float(isec)/100.0
	return
	end
C--------------------------------------------------------------------------
C--------------------------------------------------------------------------

Return to thesis table of contents.

Return to Voyager LECP Data Analysis Handbook Table of Contents.
Return to Fundamental Technologies Home Page.

Last modified 12/9/02, Tizby Hunt-Ward
tizby@ftecs.com