Commit 9277a756 authored by Matteo Gerosa's avatar Matteo Gerosa
Browse files

Fixed bug related to changes in previous commit.

parent 10839e11
......@@ -65,16 +65,9 @@ SUBROUTINE do_setup
!
k_grid = bz_grid()
CALL k_grid%init('K')
print *, 'K'
print *, k_grid%p_cart
print *, k_grid%ngrid
print *, 'nks = ', nks
!
q_grid = bz_grid()
CALL q_grid%init('Q')
print *, 'Q'
print *, q_grid%p_cart
print *, q_grid%ngrid
!
IF ( ANY ( (q_grid%ngrid(:) - k_grid%ngrid(:)) /= 0 ) ) THEN
CALL errore( 'do_setup','q-point grid must be the same as k-point grid ',1)
......
......@@ -24,9 +24,9 @@ wfreq_setup.o \
diago_lanczos.o \
solve_deflated_lanczos_w_full_ortho.o \
get_brak_hyper_parallel.o \
chi_invert.o \
solve_wfreq.o \
set_freqlists.o \
chi_invert.o \
solve_gfreq.o \
calc_vxc.o \
calc_exx2.o \
......
......@@ -175,7 +175,7 @@ MODULE chi_invert
COMPLEX(DP),INTENT(IN) :: matilda(nma,nma)
COMPLEX(DP),INTENT(OUT) :: head,lambda(n_pdep_eigen_to_use,n_pdep_eigen_to_use)
INTEGER,INTENT(IN) :: nma
LOGICAL,INTENT(IN) :: l_gammaq
LOGICAL,INTENT(IN),OPTIONAL :: l_gammaq
!
! Workspace
!
......
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