|
|
1.1 ! root 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)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.