Commit e6ff8b5e authored by Matthias Redies's avatar Matthias Redies

drop unused hybrid argument

parent eef27ff0
......@@ -253,18 +253,18 @@ CONTAINS
! wfolap = wfolap + cdum
END FUNCTION wfolap_inv
FUNCTION wfolap_noinv(cmt1, cpw1, cmt2, cpw2, ngpt1, ngpt2, olappw, olapmt, atoms, mpbasis, hybrid)
FUNCTION wfolap_noinv(cmt1, cpw1, cmt2, cpw2, olappw, olapmt, atoms, mpbasis)
USE m_wrapper
USE m_types
IMPLICIT NONE
TYPE(t_mpbasis), intent(in) :: mpbasis
TYPE(t_hybrid), INTENT(IN) :: hybrid
TYPE(t_atoms), INTENT(IN) :: atoms
! - scalars -
COMPLEX :: wfolap_noinv
INTEGER, INTENT(IN) :: ngpt1, ngpt2
! - arrays -
COMPLEX, INTENT(IN) :: cmt1(:,:),cmt2(:,:)
COMPLEX, INTENT(IN) :: cpw1(:)
......@@ -273,9 +273,7 @@ CONTAINS
REAL, INTENT(IN) :: olapmt(maxval(mpbasis%num_radfun_per_l), maxval(mpbasis%num_radfun_per_l), 0:atoms%lmaxd, atoms%ntype)
! - local -
INTEGER :: itype, ieq, iatom, l, m, lm, nn
COMPLEX :: carr(ngpt1), cdum
REAL :: rarr1(ngpt1), rarr2(ngpt1), rdum1, rdum2
REAL :: rdum1, rdum2
wfolap_noinv = 0
iatom = 0
DO itype = 1, atoms%ntype
......
......@@ -310,7 +310,7 @@ CONTAINS
cpwhlp(:, iband), lapw%nv(jsp), lapw%nv(jsp), olappw%data_r, olapmt, atoms, mpbasis, hybrid)
else
rep_d(iband, ic, isym) = wfolap_noinv(carr1, z%data_c(:lapw%nv(jsp), iband + i - 1), cmthlp(:, :, iband), &
cpwhlp(:, iband), lapw%nv(jsp), lapw%nv(jsp), olappw%data_c, olapmt, atoms, mpbasis, hybrid)
cpwhlp(:, iband), olappw%data_c, olapmt, atoms, mpbasis)
endif
END DO
......
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