sw/rescue/lab8e_goettingen/disk4_5/rka/paroff/haescr.fi

   1 C       -----   H A E S C R . F I   -----
   2 C       * OR 18-OCT-83
   3 C
   4 C       I/O CONTROL COMMON BLOCK FOR UNIT 6/7 INPUT BUFFER
   5 C@
   6 C@      INPREC(1),WFLAG(1) CONTROLS THE FIRST BUFFER LOCATED IN COMMON CBUFR
   7 C@      INPREC(2),WFLAG(2) CONTROLS THE SECOND BUFFER BUFER2 LOCATED IN CDSCR
   8 C@      IF ONE INPUT BUFFER FOR UNIT 6/7: CHANGE THE DIMENSION TO 1 AND
   9 C@      DELETE BUFER2(85) AND CHANGE HAESAM ROUTINE: BUFCNT DATA STATEMENT AND
  10 C@      SOME CODE IN THE DO 15 LOOP.
  11 C@
  12 C
  13         INTEGER INPREC(2)       @ BLOCK NUMBER ACTUALLY HOLD IN THE BUFFERS
  14      *  , RECACT                @ HOLDS THE NUMBER OF THE BUFFER LAST USED BY ESAM
  15      *  , BUFER2(85)            @ THE SECOND INPUT BUFFER
  16         LOGICAL WFLAG(2)        @ THIS BUFFER WAS CHANGED BY ISAM ROUTINE, SO WE HAVE TO SAVE IT
  17         COMMON /CDSCR/ RECACT,INPREC,WFLAG,BUFER2
  18 C       -----
  19 \1a