; ft_n+p
;
; performs the fourier transform of a 2d data-set acquired in "n+p" mode
; i.e. PFG enhanced acquisition, with positive and negative gradients alternated
; Processing is performed only along the F1 axis
;
; see also : ft_seq ft_sim ft_sh ft_tppi ft_sh_tppi ft_phase_modu FT

;  if ($itype_2d == 2 | $itype_2d == 3) error "data should be real"
  if ($itype_2d == 2 | $itype_2d == 3) itype (%-2)
modifysize (%/2) %
flip revf f1 ft f1 flop
refmacro 0
for i = 1 to ($si2_2d/2)
  col ($i + $si2_2d/2)
  dim 1 put data
  dim 2 col $i
  dim 1 reverse adddata
  dim 2 put col $i
endfor
chsize % (%/2)
