diff --git a/Modules/make.depend b/Modules/make.depend index d5a995111..4f66ad4eb 100644 --- a/Modules/make.depend +++ b/Modules/make.depend @@ -61,7 +61,6 @@ fft_interfaces.o : fft_parallel.o fft_interfaces.o : fft_scalar.o fft_interfaces.o : fft_types.o fft_interfaces.o : kind.o -fft_interfaces.o : mp_global.o fft_parallel.o : fft_base.o fft_parallel.o : fft_scalar.o fft_parallel.o : fft_types.o @@ -219,7 +218,6 @@ stick_set.o : fft_types.o stick_set.o : griddim.o stick_set.o : io_global.o stick_set.o : kind.o -stick_set.o : mp_global.o stick_set.o : parallel_include.o stick_set.o : stick_base.o timestep.o : kind.o diff --git a/Modules/stick_set.f90 b/Modules/stick_set.f90 index 1a1505ba3..18a427fd7 100644 --- a/Modules/stick_set.f90 +++ b/Modules/stick_set.f90 @@ -218,8 +218,8 @@ IF( ngm_ /= ngm ) CALL errore( ' pstickset ', ' inconsistent ngm ', abs( ngm - ngm_ ) ) IF( ngs_ /= ngs ) CALL errore( ' pstickset ', ' inconsistent ngs ', abs( ngs - ngs_ ) ) - CALL fft_dlay_allocate( dfftp, mype, nproc, comm, max(nr1x, nr3x), nr2x ) - CALL fft_dlay_allocate( dffts, mype, nproc, comm, max(nr1sx, nr3sx), nr2sx ) + CALL fft_dlay_allocate( dfftp, mype, nproc, comm, 1, max(nr1x, nr3x), nr2x ) + CALL fft_dlay_allocate( dffts, mype, nproc, comm, 1, max(nr1sx, nr3sx), nr2sx ) CALL fft_dlay_scalar( dfftp, ub, lb, nr1, nr2, nr3, nr1x, nr2x, nr3x, stw ) CALL fft_dlay_scalar( dffts, ub, lb, nr1s, nr2s, nr3s, nr1sx, nr2sx, nr3sx, stw )