midas-develop/html/miniana_8f_source.html

      SUBROUTINE process_event (HBUF, HREQ, HEADER, EVENT)

   INTEGER*4 HBUF, HREQ, HEADER(4), EVENT(*)

        WRITE (*,*) header(2)


   END


      PROGRAM test

      include 'midas.inc'

      INTEGER*4 status,request_id

   INTEGER*4 hbufevent


   status = cm_connect_experiment('','sample','Fortran Analyzer')

   IF (status .NE. cm_success) stop


   CALL bm_open_buffer('SYSTEM', event_buffer_size, hbufevent)

   CALL bm_request_event(hbufevent, 1, trigger_all, get_all,

     +                      request_id)


      DO WHILE (status .NE. rpc_shutdown .AND. status .NE. ss_abort)

        status = cm_yield(1000)

   END DO


      CALL cm_disconnect_experiment()


   END

bm_open_buffer
INT bm_open_buffer(const char *buffer_name, INT buffer_size, INT *buffer_handle)
Definition midas.cxx:6717

bm_request_event
INT bm_request_event(HNDLE buffer_handle, short int event_id, short int trigger_mask, INT sampling_type, HNDLE *request_id, EVENT_HANDLER *func)
Definition midas.cxx:8465

cm_yield
INT cm_yield(INT millisec)
Definition midas.cxx:5642

cm_connect_experiment
INT cm_connect_experiment(const char *host_name, const char *exp_name, const char *client_name, void(*func)(char *))
Definition midas.cxx:2278

cm_disconnect_experiment
INT cm_disconnect_experiment(void)
Definition midas.cxx:2846

process_event
INT process_event(ANALYZE_REQUEST *par, EVENT_HEADER *pevent)
Definition mana.cxx:3081

test
void test(double total_sleep, double call_sleep)
Definition test_sleep.cxx:17