Skip to content

Commit c985027

Browse files
committed
Update modpois. Corrected 2dcompfft based alloc_ calls.
1 parent 02735eb commit c985027

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

src/modpois.f90

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -763,9 +763,9 @@ subroutine poisson
763763
#else
764764
write(*,*) "POISS_FFT2D_2DECOMP on CPU."
765765
#endif
766-
call alloc_x(px, opt_xlevel=(/0,0,0/))
767-
call alloc_y(py, opt_ylevel=(/0,0,0/))
768-
call alloc_z(pz, opt_zlevel=(/0,0,0/))
766+
call alloc_x(px, opt_levels=(/0,0,0/))
767+
call alloc_y(py, opt_levels=(/0,0,0/))
768+
call alloc_z(pz, opt_levels=(/0,0,0/))
769769
allocate(Fx(sp%xsz(1),sp%xsz(2),sp%xsz(3)))
770770
allocate(Fy(sp%ysz(1),sp%ysz(2),sp%ysz(3)))
771771
allocate(Fz(sp%zsz(1),sp%zsz(2),sp%zsz(3)))

0 commit comments

Comments
 (0)