[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgenc / vaxsys / timed.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:50:41  mclareni
* Kernlib
*
*
      SUBROUTINE TIMED (T)
C CERN PROGLIB# Z007    TIMED           .VERSION KERNVAX  2.45  940228
C ORIG.  J. Shiers, 15/02/94
C
      INCLUDE '($JPIDEF)'

      DATA  ITOLD  / 0 /
      SAVE  ITOLD


      ISTAT = LIB$GETJPI(JPI$_CPUTIM,,,ITIME)
      T     = FLOAT(ITIME-ITOLD)/100.
      ITOLD = ITIME
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/02/15 17:50:41 mclareni
	6	* Kernlib
	7	*
	8	*
	9	SUBROUTINE TIMED (T)
	10	C CERN PROGLIB# Z007 TIMED .VERSION KERNVAX 2.45 940228
	11	C ORIG. J. Shiers, 15/02/94
	12	C
	13	INCLUDE '($JPIDEF)'
	14
	15	DATA ITOLD / 0 /
	16	SAVE ITOLD
	17
	18
	19	ISTAT = LIB$GETJPI(JPI$_CPUTIM,,,ITIME)
	20	T = FLOAT(ITIME-ITOLD)/100.
	21	ITOLD = ITIME
	22	RETURN
	23	END