C TIMRB.FTN - BEGINNING OF TIMED INTERVAL C C NOTE CURRENT TIME OF DAY IN VARIABLE IN COMMON C GENERALLY REQUIRES A SYSTEM CLOCK WITH 60 CYCLE RESOLUTION C C C THIS SUBROUTINE ALSO DEFINES AND DATA-INITIALIZES LOGICAL C UNITS WHICH WILL BE USED BY BENCHMARK PROGRAMS SUBROUTINE TIMRB COMMON /IEYQQQ/ T1 C C DEFINE AND INITIALIZE LOGICAL UNIT ASSIGNMENTS: C ICRD - 1 DATA INPUT (IF REQUIRED) C ILPT - 4 LINE PRINTER BULK OUTPUT C IKBD - 5 KEYBOARD INPUT (IF REQUIRED) C ITTY - 5 TTY OUTPUT, INCLUDING ELAPSED TIME INFORMATION C COMMON /LUNS/ ICRD,ILPT,IKBD,ITTY DATA ICRD,ILPT,IKBD,ITTY / 1,4,5,5 / C T1=SECNDS(0.) RETURN END C TIMRE.FTN - PRINT ELAPSED TIME IN SECONDS C SUBROUTINE TIMRE COMMON /IEYQQQ/ T1 C C COMMON WHICH REFERENCES LOGICAL UNIT ASSIGNMENTS C COMMON /LUNS/ ICRD,ILPT,IKBD,ITTY C DELTA=SECNDS(0.)-T1 WRITE(ITTY,99)DELTA 99 FORMAT(' ELAPSED TIME WAS',F8.2,' SECONDS') RETURN END SUBROUTINE HEADER (TITLE,LEN) C C ROUTINE TO PRINT TITLE,DATE AND TIME ON DEVICE 'TTY' C COMMON /LUNS/ ICRD,ILPT,IKBD,ITTY C C COMMON INITIALIZED BY SUBROUTINE TIMRB C DIMENSION PDATE(9),PTIME(8) LOGICAL*1 PDATE,PTIME CHARACTER*(*) TITLE C CALL DATE(PDATE) CALL TIME(PTIME) WRITE (ITTY,98) TITLE 98 FORMAT (1H1,5X,A) WRITE (ITTY,99) (PDATE(I),I=1,9),(PTIME(I),I=1,8) 99 FORMAT(' RUN ON: ',9A1,' AT: ',8A1) RETURN END ' ELAPSED TIME WAS',F8.2,' SECONDS') RETURN END SUBROUTINE HEADER (TITLE,LEN) C C ROUTINE TO PRINT TITLE,DATE AND TIME ON DEVICE 'TTY' C COMMON /LUNS/ ICRD,ILPT,IKBD,ITTY C C COMMON INITIALIZED BY SUBROUTINE TIMRB C DIMENSION PDATE(9),PTIME(8) LOGICAL*1 PDATE,PTIME CHARACTER*(*) TITLE C CALL DATE(PDATE) CALL TIME(PTIME) WRITE (ITTY,98) TITLE 98 FORMAT (1H1,5X,A) WRITE (ITTY,99) (PDATE(I),I=1,9),(PTIME(I),I=1,8) 99 FORMAT(' RUN ON: ',9A1,' AT: ',