Прямое 2D Преобразование Фурье: subroutine FFTF_2D(N,M,U,UFFT) use IMSL integer*4 i,j,n double complex , dimension (256,256) :: U,UFFT double complex , dimension (256) :: XK,YK do j=1,M do i=1,N XK(i)=U(i,j) ! по строкам end do call DFFTCF(n,XK,YK) do i=1,N UFFT(i,j)=YK(i) end do end do ! UX(i,j) do...