implicit integer (a-z)
	
	parameter max_nodes = 6
	parameter sec_size = 1
	parameter event_flag_a = 64
	parameter event_flag_b = 96
	parameter go_ahead_efn_a = event_flag_a + max_nodes + 1
	parameter go_ahead_efn_b = event_flag_b + max_nodes + 1

	integer system_time(2)

	integer system_time_a(2), system_time_b(2)

	byte buffer_a(512), buffer_b(512)
	common /SyncSecA/ buffer_a
	common /SyncSecB/ buffer_b
	equivalence (system_time_a, buffer_a(1))	! 1-8
	equivalence (system_time_b, buffer_b(1))
	equivalence (nicr_a, buffer_a(9))		! 9-12
	equivalence (nicr_b, buffer_b(9))

	include		'($SECDEF)'
	include		'($SSDEF)'