Commit | Line | Data |
---|---|---|
8b22683c KB |
1 | C |
2 | C CLOCK INTERRUPTS | |
3 | C | |
4 | LOGICAL CFLAG | |
5 | COMMON /CEVENT/ CLNT,CTICK(25),CACTIO(25),CFLAG(25) | |
6 | C | |
7 | COMMON /CINDEX/ CEVCUR,CEVMNT,CEVLNT,CEVMAT,CEVCND, | |
8 | & CEVBAL,CEVBRN,CEVFUS,CEVLED,CEVSAF,CEVVLG, | |
9 | & CEVGNO,CEVBUC,CEVSPH,CEVEGH, | |
10 | & CEVFOR,CEVSCL,CEVZGI,CEVZGO,CEVSTE, | |
11 | & CEVMRS,CEVPIN,CEVINQ,CEVFOL | |
12 | INTEGER EQC(25,2) | |
13 | EQUIVALENCE (CTICK, EQC) |