Commit ecb622ae authored by Gregor Michalicek's avatar Gregor Michalicek

Corrected small error in convol

parent 614a20aa
......@@ -28,7 +28,7 @@
COMPLEX, INTENT (IN) :: ag3(stars%ng3)
COMPLEX, INTENT (OUT) :: fg3(stars%ng3)
REAL, INTENT (IN) :: ufft(0:27*stars%k1d*stars%k2d*stars%k3d-1)
REAL, INTENT (IN) :: ufft(0:27*stars%mx1*stars%mx2*stars%mx3-1)
INTEGER i,ifftd
REAL, ALLOCATABLE :: gfft(:,:)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment