Commit 6488d634 authored by Samuel Poncé's avatar Samuel Poncé

Update of the cumulant

Now the Cumulant expansion is computed with both convolution and FFT
Courtesy of C. Verdi.
parent adde96f5
......@@ -40,7 +40,7 @@
iterative_bte, longrange, scatread, nqf1, prtgkk, &
nqf2, nqf3, mp_mesh_k, restart, ncarrier, plselfen, &
specfun_pl, lindabs, mob_maxiter, use_ws, &
epmatkqread, selecqread
epmatkqread, selecqread, restart_freq
USE noncollin_module, ONLY : noncolin
USE constants_epw, ONLY : ryd2ev, ryd2mev, one, two, zero, czero, &
twopi, ci, kelvin2eV, eps6, eps8
......@@ -1013,7 +1013,7 @@
! elecselfen = true as nothing happen during the calculation otherwise.
!
IF ( .not. phonselfen) THEN
IF (MOD(iqq,100) == 0) THEN
IF (MOD(iqq,restart_freq) == 0) THEN
WRITE(stdout, '(5x,a,i10,a,i10)' ) 'Progression iq (fine) = ',iqq,'/',totq
ENDIF
ENDIF
......
......@@ -638,6 +638,7 @@ sgama2.o : ../../Modules/constants.o
sgama2.o : ../../Modules/io_global.o
sgama2.o : ../../Modules/kind.o
sort.o : ../../Modules/kind.o
spectral_cumulant.o : ../../FFTXlib/fft_scalar.o
spectral_cumulant.o : ../../Modules/io_global.o
spectral_cumulant.o : ../../Modules/kind.o
spectral_cumulant.o : constants_epw.o
......
This diff is collapsed.
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