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