source:
PSPA/transportPSPA/trunk/include/RDBUFF.CIN
@
447
Last change on this file since 447 was 15, checked in by , 12 years ago | |
---|---|
File size: 269 bytes |
Line | |
---|---|
1 | C RDBUFF INPUT BUFFER |
2 | C |
3 | C KLINE(81 LIST OF CHARACTERS IN INPUT LINE (PLUS SEMICOLON) |
4 | C ITEM Current character value |
5 | C |
6 | CHARACTER*1 KLINE(81), ITEM |
7 | CHARACTER*80 KTEXT |
8 | EQUIVALENCE (KTEXT,KLINE(1)) |
9 | C |
10 | COMMON /RDBUFF/ KLINE, ITEM |
Note: See TracBrowser
for help on using the repository browser.