lckclk_api

	event_occurred.l4.v = lckclk_api(clock_watcher_id.u4a.r, event.i4.v)

	This function can be used by a package which wants to detect clock
	events independently of other packages and the lckclk_c user.
	Before calling lckclk_api, a package first needs to call 
	lckclk_allocate to allocate an array which is used by lckclk_api
	to keep track of which event occurrences have been reported.

	This logical function will return TRUE if the accelerator
	clock event specified by "event" has occurred since a previous call
	to this function with the same event number.  Subsequent check
	requests will return FALSE until the event has been detected again
	on the accelerator clock. 

	watcher_id	Clock watcher ID as returned from lckclk_allocate
	event		clock event number as follows:
			  0 -  255	event 0 - 255 of the clock specified
   	    	    	by Default Clock in the Utilities Window or the most
   	    	    	recent call to clock_set_multicast_type.
   	    	    	  0 - 255 + TCLK_BASE	    	TCLK event 0 - 255
   	    	    	  0 - 255 + MIBS_BASE	    	MIBS event 0 - 255
   	    	    	  0 - 255 + RRBS_BASE	    	RRBS event 0 - 255
   	    	    	  0 - 255 + TVBS_BASE	    	TVBS event 0 - 255
   	    	    	  0 - 255 + TESTCLK_BASE    	TEST clock event 0 - 255
   	    	    	  0 - 255 + PROJCLK_BASE    	PROJ clock event 0 - 255
   	    	    	  0 - 255 + NMLCLK_BASE     	NML clock event 0 - 255
			(constants are in 'tclk_events')

	This function returns status values as follows:

	FORTRAN_TRUE		event has occurred
	FALSE			event has not occurred

	This function requires the following include files:

	cnsparam_h, clib_h, tclk_events_h

	Related functions:

	lckclk_allocate, lckclk_free, lckclk_c, evmon, evmon_usec_c, acctim,
	ticks_since_event, event_history, event_set_fake, reflected_events_c,
	clock_set_multicast_type, clock_get_default_multicast_type,
	event_translate_c, event_count_c, event_last_timestamp_c,
	clock_type_convert_c, is_beam_sync_clock_type_c

	C/C++ usage:

	int	event_occurred;
	int	event = EVENT_MI_RESET_FIXED_TARG;
	static unsigned int	*watcher_id;

	watcher_id = lckclk_allocate();

	event_occurred = lckclk_api(watcher_id,event);