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