Commit 7bfbacb7 authored by giannozz's avatar giannozz

Dumb mistake in recently added (but still unused) code caused divide-by-zero

error (thanks to Minoru for reporting this). make.depend updated. 
NOTE: FFTXlib/test.f90 still contains reference to deleted task_group module


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13754 c92efa57-630b-4861-b058-cf58834340f0
parent a4bfa137
......@@ -59,6 +59,7 @@ cglib.o : ../../Modules/uspp.o
cglib.o : ../../UtilXlib/mp.o
cglib.o : cp_interfaces.o
cglib.o : mainvar.o
chargedensity.o : ../../FFTXlib/fft_helper_subroutines.o
chargedensity.o : ../../FFTXlib/fft_interfaces.o
chargedensity.o : ../../FFTXlib/fft_scalar.o
chargedensity.o : ../../KS_Solvers/CG/constants.o
......@@ -221,6 +222,7 @@ cplib_meta.o : ../../Modules/cell_base.o
cplib_meta.o : ../../Modules/control_flags.o
cplib_meta.o : ../../Modules/electrons_base.o
cplib_meta.o : ../../Modules/fft_base.o
cplib_meta.o : ../../Modules/fft_rho.o
cplib_meta.o : ../../Modules/gvecw.o
cplib_meta.o : ../../Modules/io_global.o
cplib_meta.o : ../../Modules/ions_base.o
......@@ -461,6 +463,7 @@ fft.o : ../../Modules/fft_base.o
fft.o : ../../Modules/kind.o
fft.o : ../../Modules/mp_global.o
fft.o : ../../Modules/recvec.o
forces.o : ../../FFTXlib/fft_helper_subroutines.o
forces.o : ../../FFTXlib/fft_interfaces.o
forces.o : ../../KS_Solvers/CG/constants.o
forces.o : ../../Modules/cell_base.o
......@@ -533,6 +536,7 @@ gtable.o : ../../Modules/recvec.o
gtable.o : ../../UtilXlib/mp.o
gtable.o : ../../UtilXlib/parallel_include.o
gtable.o : efield.o
init.o : ../../FFTXlib/fft_helper_subroutines.o
init.o : ../../FFTXlib/fft_smallbox.o
init.o : ../../FFTXlib/fft_smallbox_type.o
init.o : ../../FFTXlib/fft_types.o
......@@ -1129,12 +1133,14 @@ stress.o : ../../Modules/recvec.o
stress.o : ../../UtilXlib/mp.o
stress.o : cp_interfaces.o
stress.o : modules.o
vofrho.o : ../../FFTXlib/fft_helper_subroutines.o
vofrho.o : ../../FFTXlib/fft_interfaces.o
vofrho.o : ../../KS_Solvers/CG/constants.o
vofrho.o : ../../Modules/cell_base.o
vofrho.o : ../../Modules/control_flags.o
vofrho.o : ../../Modules/electrons_base.o
vofrho.o : ../../Modules/fft_base.o
vofrho.o : ../../Modules/fft_rho.o
vofrho.o : ../../Modules/funct.o
vofrho.o : ../../Modules/io_global.o
vofrho.o : ../../Modules/ions_base.o
......@@ -1162,6 +1168,7 @@ vol_clu.o : ../../Modules/cell_base.o
vol_clu.o : ../../Modules/control_flags.o
vol_clu.o : ../../Modules/electrons_base.o
vol_clu.o : ../../Modules/fft_base.o
vol_clu.o : ../../Modules/fft_rho.o
vol_clu.o : ../../Modules/io_global.o
vol_clu.o : ../../Modules/ions_base.o
vol_clu.o : ../../Modules/kind.o
......
......@@ -5,6 +5,8 @@ fft_fwinv.o : fft_scalar.o
fft_fwinv.o : fft_smallbox.o
fft_fwinv.o : fft_smallbox_type.o
fft_fwinv.o : fft_types.o
fft_helper_subroutines.o : fft_param.o
fft_helper_subroutines.o : fft_types.o
fft_interfaces.o : fft_param.o
fft_interfaces.o : fft_smallbox_type.o
fft_interfaces.o : fft_types.o
......@@ -48,8 +50,4 @@ test0.o : fft_support.o
test0.o : fft_types.o
tg_gather.o : fft_param.o
tg_gather.o : fft_types.o
fft_helper_subroutines.o : fft_param.o
fft_helper_subroutines.o : fft_types.o
fft_stick.o : fftw.c
fftw.o :
fftw.o :
......@@ -1951,6 +1951,7 @@ stress.o : symme.o
stress.o : xdm_dispersion.o
struct_fact.o : ../../KS_Solvers/CG/constants.o
struct_fact.o : ../../Modules/kind.o
sum_band.o : ../../FFTXlib/fft_helper_subroutines.o
sum_band.o : ../../FFTXlib/fft_interfaces.o
sum_band.o : ../../Modules/becmod.o
sum_band.o : ../../Modules/cell_base.o
......@@ -2137,6 +2138,7 @@ vhpsi.o : scf_mod.o
vloc_of_g.o : ../../KS_Solvers/CG/constants.o
vloc_of_g.o : ../../Modules/kind.o
vloc_of_g.o : esm.o
vloc_psi.o : ../../FFTXlib/fft_helper_subroutines.o
vloc_psi.o : ../../FFTXlib/fft_interfaces.o
vloc_psi.o : ../../Modules/fft_base.o
vloc_psi.o : ../../Modules/kind.o
......
......@@ -439,6 +439,7 @@ SUBROUTINE sgam_at ( nat, tau, ityp, sym, no_z_inv)
REAL(DP) , ALLOCATABLE :: xau (:,:), rau (:,:)
! atomic coordinates in crystal axis
LOGICAL :: fractional_translations, no_z
INTEGER :: nfrac
REAL(DP) :: ft_(3), ftaux(3)
!
ALLOCATE(xau(3,nat))
......@@ -531,7 +532,12 @@ SUBROUTINE sgam_at ( nat, tau, ityp, sym, no_z_inv)
! in order to ensure that fractional translations are
! commensurate with FFT grids
DO i = 1, 3
fft_fact(i) = mcm ( fft_fact(i), NINT(1.0_dp/ft_(i)) )
IF ( ABS (ft_(i)) > eps2 ) THEN
nfrac = NINT(1.0_dp/ft_(i))
ELSE
nfrac = 0
END IF
fft_fact(i) = mcm ( fft_fact(i), nfrac )
END DO
!
GOTO 20
......
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