*			 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 the Table of Contents for Buckley's Thesis

Return to HISCALE List of Appendices

Return to Ulysses HISCALE Data Analysis Handbook Table of Contents