PTEROSOR/QuAcK
10
1
Fork 0
mirror of https://github.com/pfloos/quack synced 2024-12-23 04:43:42 +01:00
Code Releases Activity

dav warnings

Browse Source
This commit is contained in:
Abdallah Ammar 2024-11-04 15:07:50 +01:00
parent bb0d68eef0
commit fcb9c16313
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/LR/ppLR_davidson.f90
View File

@ -167,6 +167,10 @@ subroutine ppLR_davidson_1(ispin, TDA, nC, nO, nR, nOrb, nOO, nVV, lambda, e, eF
call ppLR_RPA_H_diag(ispin, nOrb, nC, nO, nR, nOO, nVV, lambda, e(1), eF, & call ppLR_RPA_H_diag(ispin, nOrb, nC, nO, nR, nOO, nVV, lambda, e(1), eF, &
ERI(1,1,1,1), H_diag(1)) ERI(1,1,1,1), H_diag(1))
! to avoid compiler warnings
allocate(rho_tmp(0,0,0))
allocate(Om_tmp(0))
elseif(kernel_name .eq. "gw") then elseif(kernel_name .eq. "gw") then
nS = supp_data_int(1) nS = supp_data_int(1)
@ -263,6 +267,7 @@ subroutine ppLR_davidson_1(ispin, TDA, nC, nO, nR, nOrb, nOO, nVV, lambda, e, eF
write(6,'(A)') write_buffer(1:6+41*n_states) write(6,'(A)') write_buffer(1:6+41*n_states)
W = 0.d0
converged = .False. converged = .False.
itertot = 0 itertot = 0