cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c
c	Inituser.for
c	This program initializes the file used for the cluster-wide WHO command
c	Dale Miller - UALR
c	18-Apr-1985
c
c	Rev. 1.0  18-Apr-1985
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
	implicit integer(a-z)
	integer buffer(128)/128*0/
	open(unit=1,organization='relative',recordtype='fixed',
     &	access='direct',recl=128,status='new',form='formatted',
     &  file='sys$common:[sysmgr]:scanuser.dat',shared)
c
c
c SITE-SPECIFIC!!! The upper parameter of the DO is the number of nodes times
c the number of users (max) per node.  (currently 4 nodes * 100 users)
c

	do 10 i=1,400
	print*,i
	write(1'i,20)buffer
 0020	format(128i1)
 0010	continue
	close(unit=1)
	stop
	end
