C%%A-RCB-0047-SL-18-7   RATFOR LIBRARY TIMING ROUTINE TIMERX
	SUBROUTINE TIMERX
	REAL COUNT(200),NAMES(200)
	LOGICAL*1 HOLD(6),FN(41)
	COMMON /TIMERC/ NAMES, COUNT, TICS, NUMNAM, ELAPSD,FN
	N=NUMNAM
	NUMNAM=-1      !TURNS OFF TIMER
	IF(N .LE. 0) RETURN
	ELAPSD=SECNDS(ELAPSD)
	CLOSE(UNIT=1)
	OPEN(UNIT=1,NAME=FN)
	IF(N .LE. 1) GO TO 50
	DO 40 I=1,N-1
	   DO 30 J=1,N-I
              IF(COUNT(J) .GE. COUNT(J+1)) GO TO 30
	         TEMP=COUNT(J)
	         COUNT(J) = COUNT(J+1)
	         COUNT(J+1) = TEMP
	         TEMP=NAMES(J)
	         NAMES(J)= NAMES(J+1)
	         NAMES(J+1) = TEMP
30	   CONTINUE
40	CONTINUE
50	WRITE(1,55) ELAPSD,TICS,N
55	FORMAT(' ',F10.2,' SECONDS ELAPSED TIME', F11.0,' SAMPLES',
	1      I8, ' ROUTINES' // )
	DO 70 I=1,N
 	   PERCNT = COUNT(I)/TICS * 100.0
	   CALL R50ASC(6,NAMES(I),HOLD)
	   WRITE(1,65) HOLD,PERCNT
65	   FORMAT(1X,6A1,F7.2,'%')
70	CONTINUE
	CLOSE(UNIT=1)
	RETURN
	END