rtc_get.fun adapted to new dicts layout

mds/tdi/dicts/rtc_get.fun

@@ -30,18 +30,20 @@ FUN PUBLIC rtc_get(_type, _name, optional _inode, optional _ithread, optional _d
 
     _nodestr= ($SHOT>65700 || $SHOT==-1) ? "node" : "tcvrt";
 
-    _thread = _has_ithread ? ".thread"//iii(_ithread,2) : "";
-    _node   = _has_inode   ? _nodestr //iii(_inode  ,2) : "";
+    _thread = _has_ithread ? ".thread"//iii(_ithread,2)//"." : "";
+    _node   = _has_inode   ? _nodestr //iii(_inode  ,2)//"." : "";
 
-    _base   = "\\rtc::top."//_node//_thread//":dict_"//_type//"s";
-    /*write(*,"[rtc_get] type="//_type//" base="//_base);*/
+    /*_base   = "\\rtc::top."//_node//_thread//":dict_"//_type//"s";*/
+    _base   = "\\rtc::top."//_node//_thread//"dicts:"//_type//"s";
+    write(*,"[rtc_get] type="//_type//" base="//_base);
 
     _dict   = build_path(_base);
   }
  
+  
   _mem = size(_dict)>0 ? _dict[_name] : abort(); 
-  if (dim_of(_mem) != _name) { abort();}
-
+  
+  if (dim_of(_mem) != _name) { abort();} 
+ 
   return(BUILD_PATH(data(_mem)));
-
 }