Lines Matching refs:ibnd
53 integer :: na, nb, mu, nu, ikk, ikq, ig, igg, nt, ibnd, ijkb0, & local
103 do ibnd = 1, nbnd
105 CALL compute_deff_nc(deff_nc,et(ibnd,ikk))
107 CALL compute_deff(deff,et(ibnd,ikk))
127 ps1_nc(ikb,is,ibnd)=ps1_nc(ikb,is,ibnd) + &
129 alphap(ipol, ik)%nc(jkb,js,ibnd)* &
131 ps2_nc(ikb,is,ibnd,ipol)= &
132 ps2_nc(ikb,is,ibnd,ipol)+ &
134 becp1(ik)%nc(jkb,js,ibnd) * &
139 ps1 (ikb, ibnd) = ps1 (ikb, ibnd) + &
141 alphap(ipol, ik)%k(jkb, ibnd) * uact (mu + ipol)
142 ps2 (ikb, ibnd, ipol) = ps2 (ikb, ibnd, ipol) +&
143 deff(ih,jh,na)*becp1(ik)%k (jkb, ibnd) * &
152 ps1_nc(ikb,is,ibnd)=ps1_nc(ikb,is,ibnd)+ &
154 becp1(ik)%nc(jkb,js,ibnd)*uact(mu+ipol)
158 ps1 (ikb, ibnd) = ps1 (ikb, ibnd) + &
160 becp1(ik)%k (jkb, ibnd) ) * uact (mu +ipol)
173 ps1_nc(ikb,is,ibnd)= &
174 ps1_nc(ikb,is,ibnd)+ &
176 becp1(ik)%nc(jkb,js,ibnd)*uact(nu+ipol)
181 ps1_nc(ikb,is,ibnd)=ps1_nc(ikb,is,ibnd)+ &
183 becp1(ik)%nc(jkb,is,ibnd)*uact(nu+ipol)
187 ps1 (ikb, ibnd) = ps1 (ikb, ibnd) + &
189 becp1(ik)%k (jkb, ibnd) ) * uact (nu + ipol)
221 do ibnd = 1, nbnd
222 ok = ok.or.(abs (ps2_nc (ikb, 1, ibnd, ipol) ).gt.eps).or. &
223 (abs (ps2_nc (ikb, 2, ibnd, ipol) ).gt.eps)
226 do ibnd = 1, nbnd
227 ok = ok.or. (abs (ps2 (ikb, ibnd, ipol) ) .gt.eps)
235 do ibnd = 1, nbnd
237 call zaxpy(npwq,ps2_nc(ikb,1,ibnd,ipol),aux,1,dvpsi(1,ibnd),1)
238 call zaxpy(npwq,ps2_nc(ikb,2,ibnd,ipol),aux,1, &
239 dvpsi(1+npwx,ibnd),1)
241 call zaxpy (npwq, ps2(ikb,ibnd,ipol), aux, 1, dvpsi(1,ibnd), 1)