Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | C -+-+-+-+-+ \ e H P E T I M . F T \ e -+-+-+-+-+\r |
2 | C\r | |
3 | C\r | |
4 | SUBROUTINE ETIME\r | |
5 | C PRINT THE MINUTES AND SECONDS ELAPSING ONTO VIDEO TERMINAL\r | |
6 | C\r | |
7 | REAL TIME\r | |
8 | INTEGER TOASCI\r | |
9 | EXTERNAL TIME,TOASCI\r | |
10 | C\r | |
11 | INTEGER A,MM,SS\r | |
12 | DATA A/0/\r | |
13 | C\r | |
14 | IF (TIME(B)+2.LT.A) GOTO 10 @ NEW CALL CLOCK\r | |
15 | IF ((0.5+TIME(B)).LT.A) RETURN @ LESS THAN ONE SECOND SINCE LAST CALL\r | |
16 | 10 A=INT(TIME(B)+0.5)\r | |
17 | SS=TOASCI(MOD(A,60))\r | |
18 | MM=TOASCI(A/60)\r | |
19 | A=A+1\r | |
20 | WRITE (4,1) MM,SS\r | |
21 | RETURN\r | |
22 | 1 FORMAT (1H+,A2,1H:,A2)\r | |
23 | END\r | |
24 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |