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