Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | C SUBROUTINE DAUER\r |
2 | C PRINTS TIME, ELAPSED SINCE LAST CALL TO DAUER\r | |
3 | C NO OUTPUT ON FIRST CALL TO DAUER\r | |
4 | C\r | |
5 | SUBROUTINE DAUER\r | |
6 | INTEGER ZEIT,TIME,TEMP\r | |
7 | EXTERNAL TIME\r | |
8 | REAL NEUZEI\r | |
9 | DATA ZEIT /-1/\r | |
10 | C\r | |
11 | IF (ZEIT.LT.0) GOTO 10\r | |
12 | NEUZEI=(TIME(TEMP)-ZEIT)/60.\r | |
13 | ZEIT=TEMP\r | |
14 | WRITE (0,1) NEUZEI\r | |
15 | RETURN\r | |
16 | C\r | |
17 | 10 CALL CLOCK (8,100)\r | |
18 | CALL TIME(ZEIT)\r | |
19 | RETURN\r | |
20 | C\r | |
21 | 1 FORMAT (' DAUER:',F6.1,' MINUTEN')\r | |
22 | END\r | |
23 | \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\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |