d 	subroutine jjtime( time )
XC.		RETURNS TIMES SINCE LAST CALL
¼C.
 C.	TIME(1) <= CPU SECONDS
„C.	TIME(2) <= WALL SECONDS
èC.	TIME(3) <= PAGE FAULTS
LC.
Vc. -end.of.info-
`c.
°	REAL TIME(3)		! CPU, WALL, PAGE_FAULTS
C------
x	PARAMETER JPI$_CPUTIM = '407'X, JPI$_PAGEFLTS = '40A'X
Ü	PARAMETER HIWORD = '10000'X
@	DATA IFST/0/
¤C.
	INTEGER*4 LIST(7)
lC.
ÐC...? INITALIZE ON FIRST CALL
4C.
˜	IF( IFST.EQ.0 ) THEN
ü	  LIST(1) = JPI$_CPUTIM*HIWORD + 4
`		  LIST(2) = %LOC(NOWCPU)
Ä		  LIST(4) = JPI$_PAGEFLTS*HIWORD + 4
(
	  LIST(5) = %LOC(NOWPAGE)
Œ
	  CALL SYS$GETJPI( ,,, LIST ,,, )
ð
	  WALL0 = FOR$SECNDS( 0.0 )
T	  IFST = 1
¸	ENDIF
C.
€	CALL SYS$GETJPI( ,,, LIST ,,, )
äC.
H	TIME(1) = (NOWCPU-ICPU) / 100.0
¬	  ICPU = NOWCPU
	WALLT = FOR$SECNDS( WALL0 )
t	TIME(2) = WALLT - WALL
Ø	  WALL = WALLT
<	TIME(3) = NOWPAGE-IPAGE
 	  IPAGE = NOWPAGE
C.
h	RETURN
ÌC.	......
0		end