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)