Commit 94277292 authored by Matthias Redies's avatar Matthias Redies

drop more unused arguments

parent 2ac0fa3b
......@@ -154,14 +154,13 @@ CONTAINS
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
SUBROUTINE wfolap_init(olappw, olapmt, gpt,&
& atoms, mpbasis, hybrid, cell,&
& atoms, mpbasis, cell,&
& bas1, bas2)
USE m_intgrf, ONLY: intgrf, intgrf_init
USE m_types
IMPLICIT NONE
TYPE(t_mpbasis), intent(in) :: mpbasis
TYPE(t_hybrid), INTENT(IN) :: hybrid
TYPE(t_cell), INTENT(IN) :: cell
TYPE(t_atoms), INTENT(IN) :: atoms
......
......@@ -413,13 +413,13 @@ CONTAINS
IF (indx0 /= hybrid%nbasp) call judft_error('spmvec: error index counting (indx0)')
END IF
CALL reorder(hybrid%nbasm(ikpt), hybrid%nbasp, atoms, hybrid%lcutm1, maxval(hybrid%lcutm1), mpbasis%num_radbasfn,&
CALL reorder(hybrid%nbasm(ikpt), atoms, hybrid%lcutm1, maxval(hybrid%lcutm1), mpbasis%num_radbasfn,&
& 2,&
& vec_c=vecout)
call timestop("spmvec_noinvs")
END SUBROUTINE spmvec_noinvs
SUBROUTINE reorder(nbasm, nbasp, atoms, lcutm, maxlcutm, nindxm, imode, vec_r, vec_c)
SUBROUTINE reorder(nbasm, atoms, lcutm, maxlcutm, nindxm, imode, vec_r, vec_c)
USE m_types
USE m_juDFT
IMPLICIT NONE
......@@ -427,7 +427,7 @@ CONTAINS
! - scalars -
INTEGER, INTENT(IN) :: maxlcutm
INTEGER, INTENT(IN) :: nbasm, nbasp
INTEGER, INTENT(IN) :: nbasm
INTEGER, INTENT(IN) :: imode
! - arrays -
......
......@@ -284,7 +284,7 @@ CONTAINS
olapmt = 0
CALL wfolap_init(olappw, olapmt, lapw%gvec(:, :, jsp), atoms, mpbasis, &
hybrid, cell, hybdat%bas1, hybdat%bas2)
cell, hybdat%bas1, hybdat%bas2)
allocate(cmthlp(hybrid%maxlmindx, atoms%nat, maxndb), cpwhlp(lapw%nv(jsp), maxndb), stat=ok)
IF (ok /= 0) call judft_error('symm: failure allocation cmthlp/cpwhlp')
......
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