1      subroutine util_rtdb_speak(rtdb)
2*
3* $Id$
4*
5      implicit none
6#include "rtdb.fh"
7#include "mafdecls.fh"
8#include "global.fh"
9#include "inp.fh"
10#include "util.fh"
11      integer rtdb
12c
13      character*255 hostname
14      integer port
15c
16      if (.not. rtdb_cget(rtdb,'speech:hostname',1,hostname))
17     $     return
18      if (.not. rtdb_get(rtdb,'speech:port',mt_int,1,port))
19     $     return
20c
21      if (ga_nodeid() .gt. 0) return
22c
23      if (util_print('speech',print_low)) then
24         write(6,1) hostname(1:inp_strlen(hostname)), port
25 1       format(/'  Speech output at ',a,' port number',i6/)
26         call util_flush(6)
27      endif
28c
29      call util_speak_init(hostname, port)
30c
31      end
32
33