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) 14