Commit | Line | Data |
---|---|---|
81e70d48 PH |
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 |