SUBROUTINE CONBAR(CLOCK,XLOGIN,CON)
C..
C..	THIS ROUTINE CALCULATES 24 BAR CHART VALUES FOR CONNECT TIME
C..
	DIMENSION CLOCK(24)
C..
C..	GET INITIAL ENTRY
C..
	HR=3600.
	INDEX=XLOGIN/HR+1
C..
C..	GET FIRST HOUR CONNECT TIME
C..
	HR1=INDEX*HR-XLOGIN
	IF(CON.LE.HR1) HR1=CON
	CLOCK(INDEX)=CLOCK(INDEX)+HR1/HR
C..
C..	SEE IF ANY FOR NEXT HOUR
C..
	IF(CON.LE.HR1) RETURN
	CONX=CON-HR1
C..
C..	INC INDEX AND ADD IN NEXT HOUR
C..
1	INDEX=INDEX+1
	IF(INDEX.GT.24) INDEX=1
	CONX=CONX-HR
C..
C..	SEE IF LESS THAN HOUR LEFT
C..
	IF(CONX.LE.0) GO TO 2
C..
C..	ADD ANOTHER HOUR
C..
	CLOCK(INDEX)=CLOCK(INDEX)+1
	GO TO 1
C..
C..	ADD LAST PARTIAL HOUR THEN RETURN
C..
2	CLOCK(INDEX)=CLOCK(INDEX)+CONX/HR+1.
	RETURN
	END