mirror of https://gitlab.com/QEF/q-e.git
Fixed compilation problem in serial case. Not sure the fix is the good one,
though. git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@7440 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
b21befe7aa
commit
096e3a5ef7
|
@ -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
|
||||
|
|
|
@ -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 )
|
||||
|
|
Loading…
Reference in New Issue