Voyager LECP Data Analysis Handbook

Instrument Modeling Reports

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.

VOYAGER 1 ELAPSED TIME

VOYAGER 2 ELAPSED TIME

QUICK FACTS

RELATED LINKS