Lines Matching refs:ibnd
61 integer :: ik, ikk, ikq, ibnd, jbnd, ijkb0, ijkb0b, ih, jh, ikb, & local
103 do ibnd = 1, nbnd
105 CALL compute_deff_nc(deff_nc,et(ibnd,ikk))
107 CALL compute_deff(deff,et(ibnd,ikk))
122 ps1_nc (ikb, is, ibnd) = &
123 ps1_nc (ikb, is, ibnd) + &
125 becp1(ik)%nc (jkb, js, ibnd)
133 ps3_nc (ikb, is, ibnd) = &
134 ps3_nc (ikb, is, ibnd) - &
135 qq_so(ih,jh,ijs,nt)*becq(ik)%nc(jkb,js,ibnd)
140 ps3_nc(ikb,is,ibnd)=ps3_nc(ikb,is,ibnd) - &
141 qq_nt (ih, jh, nt) * becq(ik)%nc (jkb, is, ibnd)
145 ps1 (ikb, ibnd) = ps1 (ikb, ibnd) + &
147 becp1(ik)%k (jkb, ibnd)
148 ps3 (ikb, ibnd) = ps3 (ikb, ibnd) - &
149 qq_nt (ih, jh, nt) * becq(ik)%k (jkb, ibnd)
157 ps2_nc(ikb,is,ibnd,ipol) = &
158 ps2_nc(ikb,is,ibnd,ipol) + &
160 alphap(ipol,ik)%nc(jkb, js, ibnd)+ &
162 becp1(ik)%nc (jkb, js, ibnd)
170 ps4_nc(ikb,is,ibnd,ipol) = &
171 ps4_nc(ikb,is,ibnd,ipol)- &
173 alpq(ipol,ik)%nc(jkb,js,ibnd)
178 ps4_nc(ikb,is,ibnd,ipol) = &
179 ps4_nc(ikb,is,ibnd,ipol)- &
180 qq_nt(ih,jh,nt)*alpq(ipol,ik)%nc(jkb,is,ibnd)
184 ps2 (ikb, ibnd, ipol) = ps2 (ikb, ibnd, ipol) + &
186 alphap(ipol,ik)%k(jkb, ibnd) + &
188 becp1(ik)%k (jkb, ibnd)
189 ps4 (ikb, ibnd, ipol) = ps4 (ikb, ibnd, ipol) - &
190 qq_nt (ih, jh, nt) * alpq(ipol,ik)%k (jkb,ibnd)
209 do ibnd = 1, nbnd_occ (ikk)
216 CONJG(alpq(ipol,ik)%nc(ikb,1,jbnd))*ps1_nc(ikb,1,ibnd)+&
217 CONJG(becq(ik)%nc(ikb,1,jbnd))*ps2_nc(ikb,1,ibnd,ipol)+&
218 CONJG(alpq(ipol,ik)%nc(ikb,2,jbnd))*ps1_nc(ikb,2,ibnd)+&
219 CONJG(becq(ik)%nc(ikb,2,jbnd))*ps2_nc(ikb,2,ibnd,ipol)
222 CONJG(alpq(ipol,ik)%k(ikb,jbnd))*ps1(ikb,ibnd)+&
223 CONJG(becq(ik)%k(ikb,jbnd))*ps2(ikb,ibnd,ipol)
245 becp1(ik)%nc(jkb,js,ibnd)
252 becp1(ik)%nc(jkb,is,ibnd)
257 becp1(ik)%k (jkb, ibnd)
290 wgg(ibnd, jbnd, ik) * &
291 (CONJG(alphap(jpol,ik)%nc(ikb,1,ibnd))*&
293 CONJG(becp1(ik)%nc (ikb,1,ibnd))* &
295 CONJG(alphap(jpol,ik)%nc(ikb,2,ibnd))*&
297 CONJG(becp1(ik)%nc (ikb,2,ibnd)) * &
301 wgg (ibnd, jbnd, ik) * &
302 (CONJG(alphap(jpol,ik)%k(ikb,ibnd))*&
304 CONJG(becp1(ik)%k (ikb, ibnd) ) * &