# 1D Fourier transform on a 2D data set along the 2-axis # subroutine ft2axis( conj, sign2, n1,n2, cx) integer i1, conj, n1,n2 complex cx(n1,n2) real sign2 do i1= 1, n1 call fth( conj, sign2, n1,n2, cx(i1,1)) return; end