cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c
c	This program initializes the userlog.
c
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

	character*40 zeros/'0000000000000000000000000000000000000000'/
	character*9 bull_date/'01-Jan-00'/
	integer*4 high_bull/0/
	integer*4 user_number/0/

	open(unit=1,file='userlog.dat',status='new',
	1   organization='indexed',access='keyed',
	2   recordtype='fixed',recl=50,shared,
	3   key=(1:40:character))
	
	write(1)zeros,user_number,high_bull,
	1    bull_date
	close(unit=1)
	print*,'The USERLOG.DAT file has been initialized.'
	stop
	end
