C%%A-RCB-0047-SL-18-7   RATFOR LIBRARY TIMING ROUTINE TIMERX
      SUBROUTINE TIMERX
      INTEGER * 4 COUNT ( 200 ), TICS, TEMP
      REAL NAMES ( 200 ), NTEMP
      LOGICAL * 1 HOLD ( 6 ), FN ( 41 ), T ( 9 ), D ( 9 )
      COMMON / TIMERC / NAMES, COUNT, TICS, NUMNAM, ELAPSD, FN
      N = NUMNAM
      NUMNAM = - 1
      IF (.NOT.( N . LE . 0 )) GOTO 20000
      RETURN
20000 CONTINUE
      ELAPSD = SECNDS ( ELAPSD )
      CLOSE ( UNIT = 1 )
      OPEN ( UNIT = 1, NAME = FN )
      IF (.NOT.( N . LE . 1 )) GOTO 20002
      GO TO 50
20002 CONTINUE
      DO 20004  I = 1, N - 1
      DO 20006  J = 1, N - I
      IF (.NOT.( COUNT ( J ) . GE . COUNT ( J + 1 ) )) GOTO 20008
      GOTO 20006
20008 CONTINUE
      TEMP = COUNT ( J )
      COUNT ( J ) = COUNT ( J + 1 )
      COUNT ( J + 1 ) = TEMP
      NTEMP = NAMES ( J )
      NAMES ( J ) = NAMES ( J + 1 )
      NAMES ( J + 1 ) = NTEMP
20006 CONTINUE
20007 CONTINUE
20004 CONTINUE
20005 CONTINUE
      CALL DATE ( D )
      CALL TIME ( T )
50    WRITE ( 1, 55 ) D, T, ELAPSD, TICS, N
55    FORMAT ( '    PROGRAM RUN ON ', 9A1, '  AND FINISHED AT ', 9A1, /
     $  ' ', F10 . 2, ' SECONDS ELAPSED TIME', / 1X, I11, ' SAMPLES', 
     $I8, ' ROUTINES' / /  1X, 'NAME', 12X, 'SAMPLES' / )
      DO 20010  I = 1, N
      TPRCNT = FLOAT ( COUNT ( I ) ) / FLOAT ( TICS ) * 100 .
      CALL R50ASC ( 6, NAMES ( I ), HOLD )
      WRITE ( 1, 65 ) HOLD, COUNT ( I ), TPRCNT
65    FORMAT ( 1X, 6A1, I11, 2X, F7 . 2, '%' )
20010 CONTINUE
20011 CONTINUE
      CLOSE ( UNIT = 1 )
      RETURN
      END