;b08.asr

;x55= amount of particles
x55=221

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

as r
temp/imb****
(1-x55)
a
proj3/avgclascb012
proj3/varclascb012
lb1
en