LOGICAL*1 TSKNAM(6),LTEMP(80),ACOUNT(16,0:15) INTEGER IBUF(13),ITEMP(6),LENGTH(0:15) INTEGER*4 JTEMP(3),WHO REAL*8 ACCNTS(2,0:15) EQUIVALENCE (IBUF(1),I1),(IBUF(2),I2),(IBUF(3),I3),(IBUF(4),I4), 1(IBUF(5),I5),(IBUF(6),I6),(IBUF(7),I7),(IBUF(8),I8),(IBUF(9),I9), 2(IBUF(10),I10),(IBUF(11),I11),(IBUF(12),I12),(IBUF(13),I13) EQUIVALENCE(ITEMP,JTEMP,LTEMP),(ACOUNT,ACCNTS) DATA ACCNTS/'System ',' ','J Fink ',' ','Gabelnic', 1'k ','Cannon ',' ','Osudar ',' ','R Blomqu', 2'ist ','Leibowit','z ','Heiberge','r ','Experime', 3'nts ','Green ',' ','Fischer ',' ','Expt ', 4' ','C Fink ',' ','Ono ',' ','The 2050', 5' ','J Blomqu','ist '/ DATA LENGTH/6,6,9,6,6,11,9,9,11,5,7,4,6,3,8,11/ CALL GETMCR(LTEMP,NU) IF(NU.LT.5)NU=0 NU=LTEMP(5)-'0' IF(NU.LT.0)NU=0 OPEN(UNIT=1,NAME='[1,4]SYSLOG.DAT',READONLY,ACCESS='SEQUENTIAL', 1FORM='UNFORMATTED',ERR=99,TYPE='OLD') IF(NU.EQ.0)WRITE(5,800) 800 FORMAT('$Output unit [2=LP:, 3=DN:, 5=TI:, 6=CL:]? ') IF(NU.EQ.0)READ(5,801)NU 801 FORMAT(I1) IF(NU.NE.2.AND.NU.NE.3.AND.NU.NE.5.AND.NU.NE.6)NU=3 IF(NU.LE.3)OPEN(UNIT=NU,NAME='SYSLOG.LST',TYPE='NEW') CALL DATE(LTEMP(9)) CALL TIME(LTEMP) WRITE(NU,899)(LTEMP(I),I=1,17) 899 FORMAT(3X,'Reactor Safety & Materials Group System Log Listing at ' 1,8A1,' on ',9A1//) DO 2000 NNT=-1,9 NT=NNT IF(NT.GE.0)NT=NT+1 IF(NT.EQ.10)NT=100 1 READ(1,END=98)(IBUF(I),I=1,13) IF(IBUF(1).NE.NT)GOTO1 IF(NT.EQ.100)GOTO100 GOTO (2,2000,10,20,30,40,50,60,70,80,90),NT+2 2 IT=FLOAT(I8)/FLOAT(I9)*1000.0+.5 CALL R50ASC(6,I11,TSKNAM) WRITE(NU,802)I2,I3+100,I4+100,IT+1000,I6,I7+100,I5+100,I10,I13, 1(TSKNAM(I),I=1,6) 802 FORMAT(' Stop accounting at ',I2,I3,T23,':',T26,I3,T26,':',T29,I4, 1T29,'.',T33,' on ',I2,I3,T39,'/',T42,I3,T42,'/',T45,'; interval ', 2I3,' min.; mask ',O6,' by ',6A1) GOTO1 10 IT=FLOAT(I8)/FLOAT(I9)*1000.0+.5 WRITE(NU,810)I2,I3+100,I4+100,IT+1000,I6,I7+100,I5+100,I10,I13 810 FORMAT(' Start accounting at ',I2,I3,T24,':',T27,I3,T27,':',T30,I4, 1T30,'.',T34,' on ',I2,I3,T40,'/',T43,I3,T43,'/',T46,'; interval ', 2I3,' min.; mask ',O6,' by ',6A1) GOTO1 20 ITEMP(1)=I5 ITEMP(2)=I6 SECS=FLOAT(JTEMP(1))/60. IHR=SECS/3600. SECS=SECS-FLOAT(IHR)*3600. IMN=SECS/60. SECS=SECS-FLOAT(IMN)*60. ITEMP(1)=I10 ITEMP(2)=I11 ITEMP(3)=I12 ITEMP(4)=0 WRITE(NU,820)I2,I3+100,I4+100,IHR,IMN+100,SECS+100.,I7,I8,I9, 1JTEMP(1),JTEMP(2) 820 FORMAT(' Global entry at ',I2,I3,T20,':',T23,I3,T23,':',T26, 1'; idle ',I2,I3,T35,':',T38,F7.3,T38,':',T45,'; SHF count ',I4, 2'; ',I4,' CKPs; LDR count ',I4,'; ',I7,' QIOs; ',I5,' RUNs') GOTO1 30 WRITE(NU,830)I2,I3+100,I4+100,I5,I6,I7,I8,I9,I10,I11,I12 830 FORMAT(' Memory entry at ',I2,I3,T20,':',T23,I3,T23,':',T26,'; in: ', 1I2,'/',I3,'K; out: ',I2,'/',I3,'K; pool: ', 2I4,', largest ',I4,', ',I3,' pieces; missed ',I3,' SENDs') GOTO1 40 IT=FLOAT(I8)/FLOAT(I9)*1000.0+.5 CALL R50ASC(6,I11,TSKNAM) WRITE(NU,840)I2,I3+100,I4+100,IT+1000,I6,I7+100,I5+100,I10,I13, 1(TSKNAM(I),I=1,6) 840 FORMAT(' Change interval at ',I2,I3,T23,':',T26,I3,T26,':',T29,I4, 1T29,'.',T33,' on ',I2,I3,T39,'/',T42,I3,T42,'/',T45,'; interval ', 2I3,' min.; mask ',O6,' by ',6A1) GOTO1 50 ITEMP(1)=I5 ITEMP(2)=I7 N=1 IF(LTEMP(4).NE.3)N=3 LEN=LENGTH(I6) WRITE(NU,850)I2,I3+100,I4+100,LTEMP(1),LTEMP(2)+64, 1(ACOUNT(J,I6),J=1,LEN),LTEMP(4),LTEMP(3),I8 850 FORMAT(' Logon at ',I2,I3,T13,':',T16,I3,T16,':',T19,' on ',A1, 1O3,T24,'T',T27,': by ',A1,' under [',O,',',O,'] after ' 2,I5,' bad tries') GOTO1 60 IF(I6.EQ.0)GOTO69 ITEMP(1)=I5 ITEMP(2)=I7 ITEMP(3)=I8 ITEMP(4)=I9 ITEMP(5)=I10 ITEMP(6)=I11 SECS=FLOAT(JTEMP(2)) IHR=SECS/3600. SECS=SECS-FLOAT(IHR)*3600. IMN=SECS/60. SECS=SECS-FLOAT(IMN)*60. N=1 IF(LTEMP(4).NE.3)N=3 LEN=LENGTH(I6) WRITE(NU,860)I2,I3+100,I4+100,LTEMP(1),LTEMP(2)+64,IHR, 1IMN+100,INT(SECS)+100,JTEMP(3),(ACOUNT(J,I6),J=1,LEN), 2LTEMP(4),LTEMP(3) 860 FORMAT(' Logoff at ',I2,I3,T14,':',T17,I3,T17,':',T20,' on ',A1,O3, 1T25,'T',T28,': after using ',I2,I3,T44,':',T47,I3,T47,':',T50, 2' CPU time, ',I7,' QIOs; by ',A1,' under [',O,',',O,']') GOTO1 69 WRITE(NU,869) 869 FORMAT(' Logoff by user with multiple logons') GOTO1 70 LEN=LENGTH(I5) WRITE(NU,870)I2,I3+100,I4+100,(ACOUNT(J,I5),J=1,LEN),I6,I7,I8,I9,I10 870 FORMAT(' File usage update at ',I2,I3,T25,':',T28,I3,T28,':',T31, 1' by ',A1,'; on ',2A2,':, ',I4,' files occupying ',I5, 2' blocks; user is allowed ',I4,' blocks') GOTO1 80 ITEMP(3)=I8 ITEMP(4)=I9 ITEMP(5)=I10 ITEMP(6)=I11 SECS2=FLOAT(JTEMP(2))/60. IHR2=SECS2/3600. SECS2=SECS2-FLOAT(IHR2)*3600. IMN2=SECS2/60. SECS2=SECS2-FLOAT(IMN2)*60. WRITE(NU,880)I2,I3+100,I4+100,IHR2,IMN2+100,SECS2+100.,JTEMP(3) 880 FORMAT(' CO: packet at ',I2,I3,T18,':',T21,I3,T21,':',T24,' using ', 1I2,I3,T33,':',T36,F7.3,T36,':',T43,' CPU, and ',I7,' QIOs;', 2' by System') GOTO1 90 CALL R50ASC(6,I6,TSKNAM) ITEMP(1)=I8 ITEMP(2)=I9 ITEMP(3)=I10 ITEMP(4)=I11 ITEMP(5)=I12 ITEMP(6)=I13 SECS=FLOAT(JTEMP(1))/60. IHR=SECS/3600. SECS=SECS-FLOAT(IHR)*3600. IMN=SECS/60. SECS=SECS-FLOAT(IMN)*60. SECS2=FLOAT(JTEMP(2))/60. IHR2=SECS2/3600. SECS2=SECS2-FLOAT(IHR2)*3600. IMN2=SECS2/60. SECS2=SECS2-FLOAT(IMN2)*60. LEN=LENGTH(I5) WRITE(NU,890)(TSKNAM(J),J=1,6),I2,I3+100,I4+100,IHR,IMN+100, 1SECS+100.,IHR2,IMN2+100,SECS2+100.,JTEMP(3),(ACOUNT(J,I5),J=1,LEN) 890 FORMAT(' Task ',6A1,' packet at ',I2,I3,T26,':',T29,I3,T29,':',T32, 1' using ',I2,I3,T41,':',T44,F7.3,T44,':',T51,' total, ',I2,I3,T61, 2':',T64,F7.3,T64,':',T71,' CPU, and ',I7,' QIOs;',' by ',A1) GOTO1 100 WRITE(NU,8100)I2,I3+100,I4+100,(IBUF(I),I=5,13) 8100 FORMAT(' User LOG message at ',I2,I3,T24,':',T27,I3,T27,':', 1T30,' "',9A2,'"') GOTO1 98 WRITE(NU,2001) 2001 FORMAT(1X) REWIND 1 2000 CONTINUE IF(NU.EQ.2)CLOSE(UNIT=2,DISPOSE='PRINT') IF(NU.EQ.3)CLOSE(UNIT=3,DISPOSE='SAVE') CLOSE(UNIT=1) 99 CALL EXIT END