ArrayFilter(Var,Filter,Nod,Er) ;Parsing(Filtering) nhe selected Global
 K Nod
 s Nr= 0 
 f dm= 1 : 1  s Var=$Q(@Var) Quit:Var=""  Do
 . If (Var[Filter)!(@Var[Filter) Do
 . . s Nr=Nr+ 1 
 . . s Nod(Nr)=Var_"="_@Var_$c( 13 , 10 )
 Q
 ;
GlbNodes(var,nod,er) ;Load  1000  Global Nodes in array
 f i= 0 : 1 : 1000  s var=$Q(@var) Quit:var=""  Do
 . s nod(i)=var_"="_@var_$c( 13 , 10 )
 Quit

Test ;test  
  set N= 2000000 
  Set Start=$Piece($h,",", 2 ) 
  for i= 1 : 1 :N s a(i)=i
  w $Piece($h,",", 2 )-Start_" seconds are executed in GT.M !!!",! 

Test ;test  
 set count= 1 
 ; or  10000  or  1000000  or ... depends on the your process
 ; get overhead time
 set time1=$p($h,",", 2 )
 for i= 1 : 1 :count do dummy
 ; get process+overhead time
 set time2=$p($h,",", 2 )
 for i= 1 : 1 :count do process
 set time3=$p($h,",", 2 )
 ; compute process time
 write "process time: ",- 2 *time2+time1+time3/count," sec/proc",!
 quit
dummy	quit
process
 set N= 2000000 
  for i= 1 : 1 :N s a(i)=i
quit