#
# File: daywait_stats_v03
#
# History: Created by Joe Covington Nov. 8, 1995
#	12-Dec-95 (MDM) - Added DESCR line
#	
# 
#  GS0=log file desig
# 

program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/prepsrc/daywait_stats.src"
descr "Write out error and diode information for DAYTEST run"



write !GS0 " %s  " !DATE
write !GS0 " %s  " !TIME
write  !GS0  "Diode 1,2,3,4 = %3.3f " getreal(multdio1)
write  !GS0  "%3.3f " getreal(multdio2)
write  !GS0  "%3.3f " getreal(multdio3)
write  !GS0  "%3.3f " getreal(multdio4)

write  !GS0  "  IPErr = %3d " getint(mkipecnt)

write  !GS0  "   Dmp Words: %4x " getint(mkipdmp1)
write  !GS0  "%4x " getint(mkipdmp2)
write  !GS0  "%4x " getint(mkipdmp3)
write  !GS0  "%4x " getint(mkipdmp4)
writen !GS0  "%4x " getint(mkipdmp5)


return

