c**ph2d.mac
; Biosym Felix 2.3 
; macro for phasing 2d matrix stored as reals only (uses Hilbert transform)
; W. M. Westler
ty ph2d (esc to quit- CAUTION overwrites input matrix!)
get 'Dimension' dim
lis phase0
get 'phase0 ' phase0
lis phase1
get 'phase1 ' phase1
def phase0 ph0
def phase1 ph1
bun &dim
for vec 1 &vector
esc getout
if &getout ne 0 quit
lwb &vec
hft
ph
red
swb &vec
ty v &vec / &vector $
next
ty
quit:
bun 0
cp
end