| 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 |