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