14 lines
516 B
Tcl
14 lines
516 B
Tcl
source $cfPath(nexus)/nxscripts_common_1.tcl
|
|
proc ::nexus::isc_initialize {} {
|
|
if {0} {
|
|
variable histmem_filetype_spec
|
|
foreach spec [array names histmem_filetype_spec] {
|
|
lappend histmem_filetype_spec($spec) link {aux_data 3 LambdaA}
|
|
lappend histmem_filetype_spec($spec) link {aux_data 4 Transmission}
|
|
lappend histmem_filetype_spec($spec) link {aux_data 5 ::histogram_memory::x_bin}
|
|
lappend histmem_filetype_spec($spec) link {aux_data 6 ::histogram_memory::y_bin}
|
|
}
|
|
}
|
|
::nexus::ic_initialize
|
|
}
|