;b05.asr

;x55= amount of particles
x55=110

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

as r
temp/imb****
(1-x55)
a
temp/avgodd001
temp/varodd001
lb1
en