Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | C COPY FORTRAN RANDOM FILES\r |
2 | INTEGER B(85),I,REC7,REC9,B9,B7,BC,S9,S7\r | |
3 | C\r | |
4 | C\r | |
5 | WRITE (4,1)\r | |
6 | READ (4,2) B9\r | |
7 | WRITE (4,3)\r | |
8 | READ (4,2) B7\r | |
9 | WRITE (4,4)\r | |
10 | READ (4,2) S9\r | |
11 | WRITE (4,6)\r | |
12 | READ (4,2) S7\r | |
13 | WRITE (4,5) \r | |
14 | READ (4,2) BC\r | |
15 | C\r | |
16 | C\r | |
17 | DEFINE FILE 9(B9,85,U,REC9)\r | |
18 | DEFINE FILE 7(B7,85,U,REC7)\r | |
19 | C\r | |
20 | C\r | |
21 | REC7=S7\r | |
22 | REC9=S9\r | |
23 | C\r | |
24 | DO 30 I=1,BC\r | |
25 | READ (9'REC9) B\r | |
26 | II=REC9-1\r | |
27 | WRITE (4,7) II\r | |
28 | WRITE(7'REC7) B\r | |
29 | 30 CONTINUE\r | |
30 | WRITE (4,8)\r | |
31 | STOP\r | |
32 | 1 FORMAT (' INPUT UNIT 9: NUMBER OF BLOCKS ASSIGNED? ',$)\r | |
33 | 3 FORMAT (' OUTPUT UNIT 7: "" "" "" " ',$)\r | |
34 | 4 FORMAT (' NUMBER OF THE FIRST RECORD TO READ? ',$)\r | |
35 | 6 FORMAT (' NUMBER OF THE FIRST RECORD TO WRITE? ',$)\r | |
36 | 7 FORMAT (1H+,I6)\r | |
37 | 8 FORMAT (' END HACOPY.')\r | |
38 | 5 FORMAT (' NUMBER OF BLOCKS TO COPY? ',$)\r | |
39 | 2 FORMAT (I4)\r | |
40 | \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 |