Commit 3e2f7cc8 authored by Matthias Redies's avatar Matthias Redies

unused var

parent a4293635
......@@ -51,8 +51,5 @@ CONTAINS
END DO
END DO
END DO
!skip_kpt = .false.
END SUBROUTINE hf_init
END MODULE m_hf_init
......@@ -56,13 +56,10 @@ CONTAINS
REAL, ALLOCATABLE :: basprod(:)
INTEGER :: degenerat(merge(input%neig*2,input%neig,noco%l_soc) + 1, kpts%nkpt)
LOGICAL :: skip_kpt(kpts%nkpt)
REAL :: zDebug_r(lapw_dim_nbasfcn,input%neig)
COMPLEX :: zDebug_c(lapw_dim_nbasfcn,input%neig)
skip_kpt = .FALSE.
IF (hybdat%l_calhf) THEN
! Preparations for HF and hybinp functional calculation
CALL timestart("gen_bz and gen_wavf")
......
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