;b01.sap  sum alignment, rotate and shift with the global aligment doc
do lb1 i=1,195
x20=x0
ud ic,x20,x21,x22,x23,x24
cshp201
ud ic,x20,x31,x32,x33,x34
cshp301
sa p,x21,x22,x23,x31,x32,x33,x41,x42,x43
sd x20,x41,x42,x43
cshp401
lb1

ud ice
cshp201
ud ice
cshp301
sd e
cshp401
en