sw/rescue/lab8e_goettingen/disk2_11/rkb/paroff/haefis.ft

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