14 lines
290 B
Tcl
14 lines
290 B
Tcl
fileeval $cfPath(source)/reactor_status_sct.tcl
|
|
|
|
if {[SplitReply [opal_simulation]]=="false"} {
|
|
MakeAsyncQueue aqreactor OPALSTAT neutron.ansto.gov.au 80
|
|
aqreactor timeout 2000
|
|
}
|
|
add_reactor_status source aqadapter aqreactor
|
|
|
|
namespace eval ::source {
|
|
proc isc_initialize {} {
|
|
}
|
|
}
|
|
|