c  define common blocks to put rates into

	parameter maxprintqueues=15	! maximum number of print queues
	parameter maxbatchqueues=10	! maximum number of batch queues
	parameter maxprimes=5		! maximum number of prime-time classes
	parameter maxdisklimits=2  ! maximum number of breaks in disk curve
	parameter maxclasses=7		! maximum number of user classes
	parameter maxdisks=10		! maximum number of disks

c  separate numeric and character common for access efficiency
	real cpurate, connectrate, printrate(maxprintqueues),
	1	primemult(maxprimes),classmult(maxclasses),
	1	batchmult(maxbatchqueues),
	1	diskrate(maxdisklimits,maxdisks),
	1	pagespervmspage(maxprintqueues)
	integer disklimit(maxdisklimits,maxdisks)
	character batchname(maxbatchqueues)*15,
	1	printname(maxprintqueues)*4, primename(maxprimes)*15,
	1	primeletter(maxprimes)*1, primeselector(24)*7,
	1	classname(maxclasses)*15, diskname(maxdisks)*4
	common/rates_i/ cpurate, connectrate, printrate, 
	1	primemult, classmult,
	1	batchmult,
	1	disklimit, diskrate
	common/rates_c/	batchname,
	1	printname, primename,
	1	primeletter, primeselector,
	1	classname, diskname