C -+-+-+-+-+  H A E F I S . F T  -+-+-+-+-+ C C CHANGE THE BLOCK SIZE OF THE RANDOM ACCESS FILE C THIS MUST BE DONE PRIOR TO THE OPEN DEFINE FILE OF UNITS 5,6,7 C SUBROUTINE FISIZE INCLUDE HAEBUF.FI INCLUDE HAECLR.FI INCLUDE HAEPTI.FI INCLUDE HAETTY.FI C INTEGER NCOND LOGICAL BETW EXTERNAL NCOND,BETW C INTEGER I C IF (OPTION.EQ.1) GOTO 10 @ FS0 RESETS THE OUTPUT UNIT 6 IF (BETW(2,OPTION,11)) GOTO 20 @ FS1 ... FS9 DETERMINES THE FILE SIZE C WRITE (TTO,1) MAXREC READ (TTI,2) I @ ASK FOR THE SIZE OF UNITS 6 AND 7 MAXREC=NCOND(I,I,MAXREC) C WRITE (TTO,3) MAXBL5 @ ASK FOR THE SIZE OF SCRATCH FILE 5 READ (TTI,2) I MAXBL5=NCOND(I,I,MAXBL5) RETURN C C 10 CLEAR=.TRUE. @ FS0 RESETS THE OUTPUT UNIT RETURN C C 20 MAXREC=720*OPTION-720 MAXBL5=240*OPTION-240 RETURN C C 1 FORMAT (' ANZAHL BLOECKE DER EIN/AUSGABE EINHEITEN 6 & 7 (',I5, * ' )? ',$) 2 FORMAT (I5) 3 FORMAT (' ANZAHL BLOECKE DES ZWISCHENSPEICHERS EINHEIT 5 (',I5, * ' )? ',$) END