bssb_permit_status_list_c

	status.i4.v = bssb_permit_status_list_c(num_systems.i4.v, systems.i4a.r,
						is_present.i4a.r
						[,data_event.i1a.r])

	This routine returns the BSSB beam permit status for a list of systems.

	num_systems	number of system to check beam permit status for
	systems		array of desired systems to check beam permit status for
			(BSSB_PERMIT_LINAC -> Linac,
			 BSSB_PERMIT_BOOSTER -> Booster,
			 BSSB_PERMIT_RECYCLER -> Recycler,
			 BSSB_PERMIT_MAIN_INJECTOR -> Main Injector,
			 BSSB_PERMIT_SWYD -> Switchyard,
			 BSSB_PERMIT_P1_LINE -> P1 line,
			 BSSB_PERMIT_P2_LINE -> P2 line,
			 BSSB_PERMIT_BOONE -> BooNE experiment,
			 BSSB_PERMIT_NUMI -> NuMI beam line,
			 BSSB_PERMIT_MUON -> Muon campus,
			 BSSB_PERMIT_MTA -> MTA,
			 BSSB_PERMIT_LBNF -> LBNF experiment)
	is_present	returned array of beam permit status values
			(TRUE -> permit is present,
			 FALSE -> permit is not present)
	[data_event]	data event to sample the permit data on
			(default is one shot reading)

	This function returns ACNET status values as follows:

	OK			success
	CLIB_INVARG		invalid system requested
	otherwise		error reading permit status

	This function requires the following include files:

	ul_cbsaux_h:auxlib_misc_h, acnet_errors_h

	Related functions:

	bssb_permit_status_c

	C/C++ usage:

	static const char	data_event[] = "i";
	int	status;
	int	num_systems = NUM_SYSTEMS;
	static const int	systems[NUM_SYSTEMS] = {
	BSSB_PERMIT_LINAC, BSSB_PERMIT_BOOSTER};
	int	is_present[NUM_SYSTEMS];

	status = bssb_permit_status_c(system,&is_present,data_event);