Lines Matching refs:ibnd
29 INTEGER :: npw, j, jkb, ibnd, na,nt,ih local
47 DO ibnd = 1,nbnd
50 IF (gstart==2) h(1,ibnd) = cmplx( dble(h(1,ibnd)),0.d0,kind=DP)
52 ah(j,ibnd) = (g2kin(j)-e(ibnd)) * h(j,ibnd)
56 DO ibnd = 1,nbnd, 2
59 IF (ibnd<nbnd) THEN
62 psic (dfftp%nl (j)) = evc(j,ibnd) + (0.0d0,1.d0)* evc(j,ibnd+1)
63 dpsic(dfftp%nl (j)) = h(j,ibnd) + (0.0d0,1.d0)* h(j,ibnd+1)
64 psic (dfftp%nlm(j))= conjg(evc(j,ibnd)-(0.0d0,1.d0)* evc(j,ibnd+1))
65 dpsic(dfftp%nlm(j))= conjg( h(j,ibnd)-(0.0d0,1.d0)* h(j,ibnd+1))
69 psic (dfftp%nl (j)) = evc(j,ibnd)
70 dpsic(dfftp%nl (j)) = h(j,ibnd)
71 psic (dfftp%nlm(j)) = conjg( evc(j,ibnd))
72 dpsic(dfftp%nlm(j)) = conjg( h(j,ibnd))
83 IF (ibnd<nbnd) THEN
88 ah(j,ibnd ) = ah(j,ibnd) +cmplx( dble(fp), aimag(fm),kind=DP)
89 ah(j,ibnd+1) = ah(j,ibnd+1)+cmplx(aimag(fp),- dble(fm),kind=DP)
93 ah(j,ibnd) = ah(j,ibnd) + dpsic (dfftp%nl(j))
161 DO ibnd = 1, nbnd
162 ah(1,ibnd) = cmplx( dble(ah(1,ibnd)),0.d0,kind=DP)