;b01.rec 
x12=1.
if(x12.eq.1.)goto lb5
do lb9 i=1,584
x21=(1.0)
x20=x0
sd x20,x21
proj3/selclock001
lb9
;---------------------------------1st round bp xy
bp xy
proj3/rec/recclock001
y
(100,100)
(100)
(10,90)
(1)
(1)
proj3/clock/tmb/tmb0001
proj3/clock/tmb/tmb0584
lb5
;----------------------------------1st round altovol
@altovol
proj3/rec/recclock001
proj3/clock/tmb/tmb0001
proj3/clock/fir/firtmb0001
proj3/selclock001
proj3/shiclockdoc001
(1)
(584)
(128)
(0.1)
(10)
proj3/rec/recclock002
st
proj3/rec/recclock002
c
;****************************************** 2nd round bp xy
bp xy
proj3/rec/recclock003
y
(100,100)
(100)
(10,90)
(1)
(1)
proj3/clock/fir/firtmb0001
proj3/clock/fir/firtmb0584
;-----------------------------------2nd round altovol
@altovol
proj3/rec/recclock003
proj3/clock/fir/firtmb0001
proj3/clock/sec/sectmb0001
proj3/selclock001
proj3/shiclockdoc002
(1)
(584)
(128)
(0.1)
(10)
proj3/rec/recclock004
st
proj3/rec/recclock004
c
;******************************************3rd round bp xy
bp xy
proj3/rec/recclock005
y
(100,100)
(100)
(10,90)
(1)
(1)
proj3/clock/sec/sectmb0001
proj3/clock/sec/sectmb0584
;--------------------------------3rd round altovol
@altovol
proj3/rec/recclock005
proj3/clock/sec/sectmb0001
proj3/clock/sec/thitmb0001
proj3/selclock001
proj3/shiclockdoc003
(1)
(584)
(128)
(0.1)
(10)
proj3/rec/recclock006
st
proj3/rec/recclock006
c
en