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