; ft_sh { axis }
;
; performs the fourier transform of a 2d data-set acquired in 
; States-Haberkorn mode
; Processing is performed only along the F1 axis
;
; in 3D, axis may be either f1 or f2
;
; (Bruker sh mode)
; see also : ft_seq ft_sim ft_tppi ft_sh_tppi ft_phase_modu ft_n+p FT

if ($dim == 2) then
;  if ($itype_2d == 0 | $itype_2d == 1) error "data should be complex"
  if ($itype_2d == 0 | $itype_2d == 1) itype (%+2)
  revf f1 ft f1
elsif ($dim == 3) then
  message "Enter axis F1/F2"
  set axis = $_
  if (toupper($axis) s= "F1") then
     if ($itype_3d < 4) itype (%+4)
  elsif (toupper($axis) s= "F2") then
     if (($itype_3d % 4) < 2) itype (%+2)
  else
     error "Wrong axis"
  endif
  revf $axis ft $axis
else
  error "Not implemented in 1D, use ft_sim instead"
endif
