; peak_var  
;
; extract from a 2D the columns corresponding to the corrdinates 
; of a 1D peak-picking and write them in text format (writet/readt).
;
dim 1
set i = 1
for i = 1 to $npk1d
   dim 2 col ($pk1d_f[$i]) dim 1
   writet ("col_"//$i)
endfor
exit

