;uses ce fit to normalize particles
;only necessary if particles not uniformly normalized

; noise will be in _7 
cp                                                                              
../pre2/noise                                                                           
_7 
; mask will be in _8                                                            
ar                                                                              
../pre2/mask                                                                            
_8                                                                              
(p1-1)*(-1) 

do lb1 i=1,83
x55=x0
ud n,x15
views/docview/view{***x55} ;x15 contains number of all particles

do lb2 i=1,x15
x50=x0
cp 
views/view{**x55}/sar{*****x50}
_1
ce fit                                                                          
_7                                                                              
_1                                                                              
_8   
views/view{**x55}/sar{*****x50}
lb2
lb1
de
_1
de 
_7
de 
_8
en d