;b01.int interpolates images to 1/2 the size before starting ap mq
do lb1 i=1,4117
x20=x0
ip
proj1/ima/ser{****x20}
proj1/imaip/ima{****x20}
(75,75)
lb1
en