[x11,x12,x40]
; sizeplus.siz 
; procedures to adjust size of image relative to reference
; create output file with largest ccf-coefficient.
;updated by m.samso 8/2000

;	x11= 10= how many 2 pixel steps
;	x12 =1 = start where (how many steps below 0)
;	x40 = 55= mask size

fr
?reference image? <1>
fr
?image to be adjusted? <2>
fr
?document file for crosscor. coeff.? <3>
fr
?output file? <4>
fi
<2>
x21=x1
mo
_1
x21,x21
c
x40

x50=0
x13=x11+x12
do lb1 i=x12,x13
x55=x0
x14=x55*2
x15=x21-x14
x16=(x21-x15)/2+1
ip
<2>
_2
x15
pd
_2
_3
x21,x21
b
x16,x16
cc c x31,x32,x33,x34
_3
<1>
_1
if(x31.lt.x50) goto lb2
cp
_3
<4>
x50=x31
lb2
sd x0,x15,x31,x40,x32,x33,x34
<3>
lb1 
sd e
<3>
re