Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | C -+-+-+-+-+ \ e H A E F I S . F T \ e -+-+-+-+-+\r |
2 | C\r | |
3 | C CHANGE THE BLOCK SIZE OF THE RANDOM ACCESS FILE\r | |
4 | C THIS MUST BE DONE PRIOR TO THE OPEN DEFINE FILE OF UNITS 5,6,7\r | |
5 | C\r | |
6 | SUBROUTINE FISIZE\r | |
7 | INCLUDE HAEBUF.FI\r | |
8 | INCLUDE HAECLR.FI\r | |
9 | INCLUDE HAEPTI.FI\r | |
10 | INCLUDE HAETTY.FI\r | |
11 | C\r | |
12 | \f INTEGER NCOND\r | |
13 | LOGICAL BETW\r | |
14 | EXTERNAL NCOND,BETW\r | |
15 | C\r | |
16 | INTEGER I\r | |
17 | C\r | |
18 | IF (OPTION.EQ.1) GOTO 10 @ FS0 RESETS THE OUTPUT UNIT 6\r | |
19 | IF (BETW(2,OPTION,11)) GOTO 20 @ FS1 ... FS9 DETERMINES THE FILE SIZE\r | |
20 | C\r | |
21 | WRITE (TTO,1) MAXREC\r | |
22 | READ (TTI,2) I @ ASK FOR THE SIZE OF UNITS 6 AND 7\r | |
23 | MAXREC=NCOND(I,I,MAXREC)\r | |
24 | C\r | |
25 | WRITE (TTO,3) MAXBL5 @ ASK FOR THE SIZE OF SCRATCH FILE 5\r | |
26 | READ (TTI,2) I\r | |
27 | MAXBL5=NCOND(I,I,MAXBL5)\r | |
28 | RETURN\r | |
29 | C\r | |
30 | C\r | |
31 | 10 CLEAR=.TRUE. @ FS0 RESETS THE OUTPUT UNIT\r | |
32 | RETURN\r | |
33 | C\r | |
34 | C\r | |
35 | 20 MAXREC=720*OPTION-720\r | |
36 | MAXBL5=240*OPTION-240\r | |
37 | RETURN\r | |
38 | C\r | |
39 | C\r | |
40 | 1 FORMAT (' ANZAHL BLOECKE DER EIN/AUSGABE EINHEITEN 6 & 7 (',I5,\r | |
41 | * ' )? ',$)\r | |
42 | 2 FORMAT (I5)\r | |
43 | 3 FORMAT (' ANZAHL BLOECKE DES ZWISCHENSPEICHERS EINHEIT 5 (',I5,\r | |
44 | * ' )? ',$)\r | |
45 | END\r | |
46 | \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 |