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