Fundamental Technologies Ulysses HISCALE Pages

Appendix 9 Geometric Factor Study for the Deflected and Unscattered Electrons of HISCALE (Buckley MS Thesis continued)

*				PROGRAM I.5				      *

* *****************************************************************************
*                                   TIMER                                     *
* This timer is to obtian CPU time and only valid for KUPHSX VAX              *
*******************************************************************************

      FUNCTION TIMER()
      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

• Return to listing of Buckley programs.
• Return to HISCALE Data Analysis Handbook Table of Contents.
• Return to HISCALE Data Production Center Main Page.