md
vb off
; merge two angular doc files: put angles from rotated
; angular doc file in the appropriate positions of original
; angular doc file
;
; 500 - number of entries in angular doc files
do lb1 x51=1,500
; 222 - number of elements in the "rotated group"
do lb2 x52=1,222
ud ic,x52,x61
grp001
; grp001 is a selection doc file indicating which projections
; belong to the "rotated" group.
if(x61.ne.x51) goto lb2
; it does match, take rotated angles
ud ic,x51,x21,x22,x23
ang002
sd x51,x21,x22,x23
angrota
goto lb1
lb2
; did not find matching, take original angles
ud ic,x51,x21,x22,x23
ang001
sd x51,x21,x22,x23
angrota
lb1
sd e
angrota
en d