!++
! Facility:	(DEFINATION) - LIB:INCLUDE#UPDATE - VAX/VMS 3.? FORTRAN.
!
! Abstract:	Rod Eldridge, 15-Aug-1983
! 			Update Definitions used by UPDACC and UPDQUAX 
!
! Modified:	Troy Frericks, 15-Aug-1986
!			Changed REAL*4 charges to INTEGER*4.
!--

	common	/update_def/update_def
	byte		update_def(0:139)

	character*12	update_username 	! Username
	equivalence	(update_username,update_def(0))

	integer*4	update_units(16)	! Units
	equivalence	(update_units(1),update_def(12))

	integer*4	update_cputime		! Cpu time
	equivalence	(update_cputime,update_units(2))
	integer*4	update_ios		! Direct i/os
	equivalence	(update_ios,update_units(3))
	integer*4	update_pages		! Print pages
	equivalence	(update_pages,update_units(6))
	integer*4	update_trmtime		! Terminal time
	equivalence	(update_trmtime,update_units(7))
	integer*4	update_blocks		! Disk blocks
	equivalence	(update_blocks,update_units(8))

	integer*4	update_costs(16)	! Costs
	equivalence	(update_costs(1),update_def(76))

	integer*4	update_total$		! Total $
	equivalence	(update_total$,update_costs(1))
	integer*4	update_cputime$ 	! Cpu time $
	equivalence	(update_cputime$,update_costs(2))
	integer*4	update_ios$		! Direct i/os $
	equivalence	(update_ios$,update_costs(3))
	integer*4	update_pages$		! Print pages $
	equivalence	(update_pages$,update_costs(6))
	integer*4	update_trmtime$ 	! Terminal time $
	equivalence	(update_trmtime$,update_costs(7))
	integer*4	update_blocks$		! Disk blocks $
	equivalence	(update_blocks$,update_costs(8))

	integer*2	update_localinfo(2)		! last 3 integers of costs table are info about the process
	equivalence	(update_localinfo,update_costs(14))
	integer*2	update_ratecode
	equivalence	(update_ratecode,update_localinfo(1))
	integer*2	update_processtype
	equivalence	(update_processtype,update_localinfo(2))

	character*4	update_cputype
	equivalence	(update_cputype,update_costs(15))
	character*4	update_ratetable
	equivalence	(update_ratetable,update_costs(16))