Commit 86c38937 authored by Matthias Redies's avatar Matthias Redies

drop more unused

parent 65a10945
......@@ -45,7 +45,7 @@ MODULE m_hsfock
CONTAINS
SUBROUTINE hsfock(nk, atoms, mpbasis, hybrid, lapw, dimension, kpts, jsp, input, hybdat, eig_irr, sym, cell, noco, &
results, it, mnobd, xcpot, mpi)
results, mnobd, xcpot, mpi)
USE m_types
USE m_symm_hf
......@@ -76,7 +76,6 @@ CONTAINS
! scalars
INTEGER, INTENT(IN) :: jsp
INTEGER, INTENT(IN) :: it
INTEGER, INTENT(IN) :: nk
INTEGER, INTENT(IN) :: mnobd
......
......@@ -145,7 +145,7 @@ CONTAINS
!DO nk = mpi%n_start,kpts%nkpt,mpi%n_stride
CALL lapw%init(input, noco, kpts, atoms, sym, nk, cell, l_zref)
CALL hsfock(nk, atoms, mpbasis, hybrid, lapw, DIMENSION, kpts, jsp, input, hybdat, eig_irr, sym, cell, &
noco, results, iterHF, MAXVAL(hybrid%nobd(:,jsp)), xcpot, mpi)
noco, results, MAXVAL(hybrid%nobd(:,jsp)), xcpot, mpi)
END DO
END DO
CALL timestop("Calculation of non-local HF potential")
......
......@@ -163,7 +163,7 @@ CONTAINS
maxval(mpbasis%num_radfun_per_l), &
0:atoms%lmaxd))
endif
selecmat = calc_selecmat(atoms, mpbasis, hybrid, seleco, selecu)
selecmat = calc_selecmat(atoms, mpbasis, seleco, selecu)
DO l1 = 0, atoms%lmax(itype)
DO l2 = 0, atoms%lmax(itype)
......@@ -222,7 +222,7 @@ CONTAINS
i_basfn = 0
! valence*valence
selecmat = calc_selecmat(atoms, mpbasis, hybrid, seleco, selecu)
selecmat = calc_selecmat(atoms, mpbasis,seleco, selecu)
DO l1 = 0, atoms%lmax(itype)
DO l2 = 0, atoms%lmax(itype)
......@@ -476,7 +476,7 @@ CONTAINS
END DO
end subroutine gen_bas_fun
function calc_selecmat(atoms,mpbasis,hybrid,seleco, selecu) result(selecmat)
function calc_selecmat(atoms,mpbasis,seleco, selecu) result(selecmat)
! Condense seleco and seleco into selecmat (each product corresponds to a matrix element)
use m_types
use m_judft
......@@ -484,7 +484,6 @@ CONTAINS
type(t_atoms), intent(in) :: atoms
TYPE(t_mpbasis), intent(in) :: mpbasis
type(t_hybrid), intent(in) :: hybrid
LOGICAL, intent(in) :: seleco(maxval(mpbasis%num_radfun_per_l), 0:atoms%lmaxd)
LOGICAL, intent(in) :: selecu(maxval(mpbasis%num_radfun_per_l), 0:atoms%lmaxd)
LOGICAL :: selecmat(maxval(mpbasis%num_radfun_per_l), 0:atoms%lmaxd, &
......
......@@ -127,7 +127,7 @@ CONTAINS
dg = gpt(:, i) - gpt(:, j)
g = gptnorm(dg, cell%bmat)
olap_c(k) = 0
IF (g == 0) THEN
IF (abs(g) < 1e-10) THEN
DO itype = 1, atoms%ntype
r = atoms%rmt(itype)
olap_c(k) = olap_c(k) - atoms%neq(itype)*fpi_const*r**3/3/cell%omtil
......
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