;b03.rf2 finds resolution for 64^2   
;this procedure has to be run in old spider   
; multiple rounds                                                    
mo                                                                              
maskcd064                  
(64,64)                                                                       
c                                                                               
(27)                                                                            
fq                                                                              
maskcd064                                                                      
smaskcd064                                                                      
(1)                                                                             
(0.08)                                                                  
do lb3 i=2,9
x50=x0
cp                                                                              
avex50                       
_1                                                                              
mu                                                                              
_1                                                                              
smaskcd064                                                                      
*                                                                               
ft                                                                              
_1                                                                              
cp                                                                              
avox50                       
_2                                                                              
mu                                                                              
_2                                                                              
smaskcd064                                                                      
*                                                                               
ft                                                                              
_2                                                                              
x10=1                                                                           
x11=2                                                                           
do lb2 i=2,30                                                                   
x10=x10+1                                                                       
x11=x11+1                                                                       
rf s,x20,x21,x22,x23                                                            
_1                                                                              
_2                                                                              
x10,x11                                                                         
(0.9,1.1)                                                                       
sd x0,x20,x21,x22,x23                                                           
rfdocx50                      
lb2 
lb3                                                                                         
en