Class | Math_Const |
In: |
math_const.f90
|
数学定数集
Subroutine : |
FFT 用の回転行列を計算する
subroutine rotate_array() ! FFT 用の回転行列を計算する implicit none integer :: i, j romega2=1.0 romega2(1,1)=-1.0 do j=0,2 do i=0,2 romega3(i,j)=cos(2.0*pi*i*j/3.0)-img*sin(2.0*pi*i*j/3.0) end do end do do j=0,4 do i=0,4 romega5(i,j)=cos(2.0*pi*i*j/5.0)-img*sin(2.0*pi*i*j/5.0) end do end do do j=0,6 do i=0,6 romega7(i,j)=cos(2.0*pi*i*j/7.0)-img*sin(2.0*pi*i*j/7.0) end do end do iomega2=1.0 iomega2(1,1)=-1.0 do j=0,2 do i=0,2 iomega3(i,j)=cos(2.0*pi*i*j/3.0)+img*sin(2.0*pi*i*j/3.0) end do end do do j=0,4 do i=0,4 iomega5(i,j)=cos(2.0*pi*i*j/5.0)+img*sin(2.0*pi*i*j/5.0) end do end do do j=0,6 do i=0,6 iomega7(i,j)=cos(2.0*pi*i*j/7.0)+img*sin(2.0*pi*i*j/7.0) end do end do end subroutine rotate_array