;b08.rec find resolution of a volume
x12=1.0
if (x12.eq.0)goto lb5
mu
proj3/anticlock/recanticlockodd001
proj3/mask3danticlockfq001
proj3/mulodd001
*
mu
proj3/anticlock/recanticlockeve001
proj3/mask3danticlockfq001
proj3/muleve001
*
lb5
rf 3
proj3/mulodd001
proj3/muleve001
0.5
0.8,1.2
c
50
3
proj3/rfdocanticlock001
en