scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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:
giannozz 2011-01-24 07:17:46 +00:00
parent b21befe7aa
commit 096e3a5ef7
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Modules/make.depend
View File

@ -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

4
Modules/stick_set.f90
View File

@ -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 )