;b06.asr

;x55= amount of particles
x55=111

do lb1 i=1,x55
x27=x0
ud ic,x27,x28,x29
temp/seleven
cp
proj2/imb/imb0x28
temp/imb0x27
lb1
ud ice
temp/seleven

as r
temp/imb****
(1-x55)
a
temp/avgeve001
temp/vareve001
lb1
en