Lines Matching refs:ibnd
54 INTEGER :: na, n ,l, nt, nah, ikb , m, m1, m2, ibnd, ib, ig, jkb, i, & local
217 DO ibnd = 1, nbnd_occ(ik)
218 proj3(ibnd,ihubst) = zdotc (npw, dpqq26(:,ihubst), 1, evc(:,ibnd), 1) + &
219 zdotc (npw, dpqq47(:,ihubst), 1, evc(:,ibnd), 1) + &
220 zdotc (npw, dpqq38(:,ihubst), 1, evc(:,ibnd), 1)
225 DO ibnd = 1, nbnd_occ(ik)
230 proj1(ibnd,ihubst) = zdotc (npw, swfcatomk(:,ihubst), 1, evc(:,ibnd), 1)
231 proj2(ibnd,ihubst) = zdotc (npw, dkwfcatomk(:,ihubst), 1, evc(:,ibnd), 1)
278 DO ibnd = 1, nbnd_occ(ik)
279 trm(:,ibnd) = aux_1234(:) * proj1(ibnd,ihubst2) + & ! term_1234
280 swfcatomk(:,ihubst1) * proj2(ibnd,ihubst2) ! term 5
284 DO ibnd = 1, nbnd_occ(ik)
285 trm(:,ibnd) = trm(:,ibnd) + swfcatomk(:,ihubst1) * &
286 proj3(ibnd,ihubst2) ! term_6+7+8
292 DO ibnd = 1, nbnd_occ(ik)
293 IF (m1 == m2) termi(:,ibnd) = termi(:,ibnd) + 0.5d0 * trm(:,ibnd)
294 termi(:,ibnd) = termi(:,ibnd) - nsaux * trm(:,ibnd)
303 DO ibnd = 1, nbnd_occ(ik)
304 dpsi(:,ibnd) = dpsi(:,ibnd) + (0.d0,-1.d0) * termi(:,ibnd) * &
338 DO ibnd = 1, nbnd_occ(ik)
339 trm(:,ibnd) = aux_1234(:) * proj1(ibnd,ihubst2) + & ! term_1234
340 swfcatomk(:,ihubst1) * proj2(ibnd,ihubst2) ! term 5
344 DO ibnd = 1, nbnd_occ(ik)
345 trm(:,ibnd) = trm(:,ibnd) + swfcatomk(:,ihubst1) &
346 * proj3(ibnd,ihubst2) ! term_6+7+8
352 DO ibnd = 1, nbnd_occ(ik)
353 termi(:,ibnd) = termi(:,ibnd) + nsaux * trm(:,ibnd) ! sign change
362 DO ibnd = 1, nbnd_occ(ik)
363 dpsi(:,ibnd) = dpsi(:,ibnd) + (0.d0,-1.d0) * termi(:,ibnd) * Hubbard_J0(nt)
425 INTEGER :: na, nt, l1, l2, ig, ibeta1, ibeta2, ibnd local