Update g00.array.tcl