Commit 7609ba2f authored by Matthias Redies's avatar Matthias Redies

drop unused arguments from wfolap_inv

parent e6ff8b5e
......@@ -199,13 +199,12 @@ CONTAINS
END SUBROUTINE wfolap_init
FUNCTION wfolap_inv(cmt1, cpw1, cmt2, cpw2, ngpt1, ngpt2, olappw, olapmt, atoms, mpbasis,hybrid)
FUNCTION wfolap_inv(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 -
......@@ -219,7 +218,6 @@ 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
wfolap_inv = 0
......@@ -273,7 +271,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
REAL :: rdum1, rdum2
wfolap_noinv = 0
iatom = 0
DO itype = 1, atoms%ntype
......
......@@ -307,7 +307,7 @@ CONTAINS
carr1 = cmt(iband + i - 1, :, :)
IF (z%l_real) THEN
rep_d(iband, ic, isym) = wfolap_inv(carr1, z%data_r(:lapw%nv(jsp), iband + i - 1), cmthlp(:, :, iband), &
cpwhlp(:, iband), lapw%nv(jsp), lapw%nv(jsp), olappw%data_r, olapmt, atoms, mpbasis, hybrid)
cpwhlp(:, iband), olappw%data_r, olapmt, atoms, mpbasis)
else
rep_d(iband, ic, isym) = wfolap_noinv(carr1, z%data_c(:lapw%nv(jsp), iband + i - 1), cmthlp(:, :, iband), &
cpwhlp(:, iband), olappw%data_c, olapmt, atoms, mpbasis)
......
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