* Script to extract the coordinates of the vertex, per event
* Maxim Potekhin, potekhin@bnl.gov
macro zxtract input
on error exitm
gfile p [input]
while 1=1 do
trig
gprint vert 1
endwhile
quit