Skip to content
Snippets Groups Projects

Hotfix fft 1D 1D

Merged Nicolas Tancogne-Dejean requested to merge hotfix_fft_1d_1d into hotfix-9.2
1 file
+ 2
2
Compare changes
  • Side-by-side
  • Inline
@@ -771,7 +771,7 @@ contains
type(cube_t), intent(inout) :: cube
FLOAT, intent(in) :: poisson_soft_coulomb_param
integer :: ix
integer :: ix, ixx
FLOAT :: g
FLOAT, allocatable :: fft_coulb_fs(:, :, :)
@@ -783,7 +783,7 @@ contains
! Fourier transform of Soft Coulomb interaction.
do ix = 1, cube%fs_n_global(1)
ixx = pad_feq(ix, cube%rs_n_global(1), .true.)
g = (ixx+this%qq(1))*M_PI/mesh%sb%lsize(1)
g = (ixx + this%qq(1))*M_PI/mesh%sb%lsize(1)
if(abs(g) > CNST(1e-6)) then
fft_coulb_fs(ix, 1, 1) = M_TWO * loct_bessel_k0(poisson_soft_coulomb_param*abs(g))
end if
Loading