1 cdaq  1.1       subroutine revdis_getev(FAIL,why)
 2           *--------------------------------------------------------
 3           *- Return an interesting event or give up after a wait
 4           *
 5           *	4-Oct-1994 K.B.Beard, Hampton U.

 6 cdaq  1.2 * $Log: revdis_getev.f,v $
 7           * Revision 1.1  1995/03/14 21:25:45  cdaq
 8           * Initial revision
 9           *

10 cdaq  1.1 *--------------------------------------------------------
11                 IMPLICIT NONE
12                 SAVE
13           *
14                 CHARACTER*12 here
15                 PARAMETER (here= 'revdis_getev')
16           *
17                 logical FAIL
18                 character*(*) why
19           *
20                 integer ierr
21           *

22 cdaq  1.2       INCLUDE 'gen_one_ev_info.cmn'

23 cdaq  1.1       INCLUDE 'gen_routines.dec'
24           *
25           *--------------------------------------------------------
26           *
27                 FAIL = .false.
28           *
29                 call thservset(gen_display_server_RPCprgmID,2)
30                 ierr = thcgetlist(gen_display_event_info,gen_display_RPCclientID
31                $     ,gen_display_interesting,gen_display_wait_seconds
32                $     ,gen_display_wait_events)
33                 call thservunset(gen_display_server_RPCprgmID,2)
34           
35                 if(ierr.ne.0) then
36                   write(why,'(":thcgetlist failed with error",i5)') ierr
37                   call G_add_path(here,why)
38                   FAIL = .true.
39                 else
40                   why = ' '
41                 endif
42           *
43                 RETURN
44 cdaq  1.1       END
45           
46           
47           
48