Commit d1c643e6 authored by Matthias Redies's avatar Matthias Redies

remove numbering from subroutines

parent 7f243930
......@@ -228,11 +228,11 @@ CONTAINS
DO ibando = 1, mnobd, psize
IF (mat_ex%l_real) THEN
CALL wavefproducts_inv5(ibando, ibando + psize - 1, input, jsp, atoms, &
CALL wavefproducts_inv(ibando, ibando + psize - 1, input, jsp, atoms, &
lapw, kpts, ik, iq, hybdat, mpdata, hybinp, cell, sym, &
noco,nococonv, oneD, nkqpt, cprod_vv_r)
ELSE
CALL wavefproducts_noinv5(ibando, ibando + psize - 1, ik, iq, input, jsp, &
CALL wavefproducts_noinv(ibando, ibando + psize - 1, ik, iq, input, jsp, &
cell, atoms, mpdata, hybinp, hybdat, kpts, lapw, &
sym, noco,nococonv, oneD, nkqpt, cprod_vv_c)
END IF
......
......@@ -13,7 +13,7 @@ module m_wavefproducts_inv
USE m_wavefproducts_aux
CONTAINS
SUBROUTINE wavefproducts_inv5(bandoi, bandof, input,&
SUBROUTINE wavefproducts_inv(bandoi, bandof, input,&
jsp, atoms, lapw, kpts, nk, iq, hybdat, mpdata, hybinp,&
cell, sym, noco, nococonv, oneD, nkqpt, cprod)
......@@ -68,13 +68,13 @@ CONTAINS
jsp, atoms, lapw, kpts, nk, iq, g_t, hybdat, mpdata, hybinp,&
cell, sym, noco,nococonv, nkqpt, z_k_p, c_phase_k, z_kqpt_p, c_phase_kqpt, cprod)
call wavefproducts_inv5_MT(bandoi, bandof,&
call wavefproducts_inv_MT(bandoi, bandof,&
input,atoms, cell, noco,nococonv, oneD, jsp, kpts, nk, iq, hybdat, mpdata, hybinp,&
sym, nkqpt, z_k_p, c_phase_k, z_kqpt_p, c_phase_kqpt, cprod)
CALL timestop("wavefproducts_inv5")
END SUBROUTINE wavefproducts_inv5
END SUBROUTINE wavefproducts_inv
subroutine wavefproducts_inv_IS(bandoi, bandof, input,&
jsp, atoms, lapw, kpts, nk, iq, g_t, hybdat, mpdata, hybinp,&
......@@ -201,7 +201,7 @@ CONTAINS
end subroutine wavefproducts_inv_IS
subroutine wavefproducts_inv5_MT(bandoi, bandof,&
subroutine wavefproducts_inv_MT(bandoi, bandof,&
input,atoms, cell, noco,nococonv, oneD, jsp, kpts, nk, iq, hybdat, mpdata, hybinp,&
sym, nkqpt, z_k_p, c_phase_k, z_kqpt_p, c_phase_kqpt, cprod)
use m_calc_cmt
......@@ -1031,5 +1031,5 @@ CONTAINS
iiatom = iiatom + atoms%neq(itype)
lm_00 = lm_00 + atoms%neq(itype)*ioffset
END DO !itype
end subroutine wavefproducts_inv5_MT
end subroutine wavefproducts_inv_MT
end module m_wavefproducts_inv
......@@ -2,7 +2,7 @@ module m_wavefproducts_noinv
USE m_types_hybdat
CONTAINS
SUBROUTINE wavefproducts_noinv5(bandoi, bandof, ik, iq, &
SUBROUTINE wavefproducts_noinv(bandoi, bandof, ik, iq, &
input, jsp, cell, atoms, mpdata, hybinp,&
hybdat, kpts, lapw, sym, noco,nococonv, oneD,&
nkqpt, cprod)
......@@ -53,7 +53,7 @@ CONTAINS
call juDFT_error('wavefproducts: k-point not found')
endif
call wavefproducts_noinv5_IS(bandoi, bandof, ik, iq, g_t,&
call wavefproducts_noinv_IS(bandoi, bandof, ik, iq, g_t,&
input, jsp, cell, atoms, mpdata, hybinp,&
hybdat, kpts, lapw, sym, noco, nococonv,&
nkqpt, z_k_p, c_phase_k, z_kqpt_p, c_phase_kqpt, cprod)
......@@ -65,9 +65,9 @@ CONTAINS
call timestop("wavefproducts_noinv5")
END SUBROUTINE wavefproducts_noinv5
END SUBROUTINE wavefproducts_noinv
subroutine wavefproducts_noinv5_IS(bandoi, bandof, ik, iq, g_t, &
subroutine wavefproducts_noinv_IS(bandoi, bandof, ik, iq, g_t, &
input, jsp, cell, atoms, mpdata, hybinp,&
hybdat, kpts, lapw, sym, noco,nococonv,&
nkqpt, z_k_p, c_phase_k, z_kqpt_p, c_phase_kqpt, cprod)
......@@ -208,7 +208,7 @@ CONTAINS
call timestop("calc convolution")
call timestop("wavefproducts_noinv5 IR")
end subroutine wavefproducts_noinv5_IS
end subroutine wavefproducts_noinv_IS
subroutine wavefproducts_noinv_MT(bandoi, bandof, ik, iq, &
......
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