Commit | Line | Data |
---|---|---|
1 | REAL A\r | |
2 | INTEGER I\r | |
3 | CALL CLOCK (8,10.)\r | |
4 | A=1\r | |
5 | DO 10 I=1,4000\r | |
6 | 10 A=A+A/FLOAT(I)\r | |
7 | CALL TIME (B)\r | |
8 | WRITE (4,1) A,B\r | |
9 | STOP\r | |
10 | 1 FORMAT (1X,F12.6,' RECHENZEIT:',F5.1,' SEC.')\r | |
11 | END\r | |
12 | \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 |