zt

aaZGTM	;Special (Not Standart) functions of GT.M  ;;[ Last editing 18 AUG 2015 at 11:12:03 ]
	;written by Vologdin A.S. mail to andrew000999@list.ru
	q
whererou(S) q:S="" "" q $g(@%varWM(17)@(-3,"nc",0,S)) ;detect where is routine
ztr(k)	n z s k=$ztrnlnm(k),k=$$dsp^aa(k,2,"/")
	i k'["/" s z=$ztrnlnm("gtm_dist") s:$e(z,$l(z))'="/" z=z_"/" s k=z_k q k
	q k
	;
zlink	;zlinking
	n i,p,j,n
	s i=$zrou,i=$$zrou0(i) i '$d(%varWM(-4)) w !,"Don't understand $zrou (gtmroutines)!!" q 0
	i $$col^aa(7) d
	.n $zt s zl=$$zlevel^aaZ,$zt="d zlinke^aaZGTM zg"_zl d
	..s p="_a.m" zlink p ; <<<<=== в этой строке