;b01.rts rt sq according to sum alignment                                                                     
do lb1 i=1,500
x20=x0
ud ic,x20,x21,x22,x23
cshp401
rt sq                                                                           
proj1/imc/imc{****x20}                   
proj1/imb/imb{****x20}                                                            
x21
x22,x23
lb1
ud ice
cshp401

as r
proj1/imb/imb****
(1-500)
A
avgimb001
varimb001


en