;b02.cpy
; copies particles /ali/sar**** which belong to one view and
; numbers them consecutively
; adds particles to already existing ones
; view*** is pointer

do lb1 i=1,83
x55=x0
ud n,x15
views/docview/view{***x55} ;x15 contains number of all particles
ud n,x16
../pre2/select/sel{***x55}
x16=x15-x16+1 ;x16 contains starting key for new particles

do lb2 i=x16,x15
x50=x0
ud ic,x50,x41 ;x41 contains number of ali/sar*****
views/docview/view{***x55}
cp
../pre2/ali/sar{*****x41}
views/view{**x55}/sar{*****x50}
lb2
ud ice
views/docview/view{***x55}

lb1
en d