Lines Matching refs:ibnd
38 integer:: ijkb0, nt, na, ih, jh, ikb, jkb, ibnd, is, js, ijs local
66 do ibnd=1, nbnd_occ(ik)
73 ps_nc(ibnd,is)=ps_nc(ibnd,is) + &
75 (0.d0,1.d0)*becp2%nc(jkb,js,ibnd) &
76 + becp1%nc(jkb,js,ibnd)* &
82 ps_nc(ibnd,is)=ps_nc(ibnd,is)+ &
83 qq_nt(ih,jh,nt)*becp2%nc(jkb,is,ibnd)*(0.d0,1.d0) &
85 becp1%nc(jkb,is,ibnd)
89 ps_r(ibnd) = ps_r(ibnd)+qq_nt(ih,jh,nt)*becp2&
90 &%r(jkb,ibnd) + dpqq(ih,jh,ipol,nt)*&
91 & becp1%r(jkb,ibnd)
93 ps(ibnd) = ps(ibnd)+qq_nt(ih,jh,nt)*becp2%k(jkb,ibnd) &
95 dpqq(ih,jh,ipol,nt)* becp1%k(jkb,ibnd)
99 do ibnd = 1, nbnd_occ (ik)
101 CALL zaxpy(npw,ps_nc(ibnd,1),vkb(1,ikb),1, &
102 dvpsi(1,ibnd),1)
103 CALL zaxpy(npw,ps_nc(ibnd,2),vkb(1,ikb),1, &
104 dvpsi(1+npwx,ibnd),1)
106 CALL zaxpy(npw,CMPLX(ps_r(ibnd),0.0_DP,KIND=DP)&
107 &,vkb(1,ikb),1,dvpsi(1,ibnd),1)
109 CALL zaxpy(npw,ps(ibnd),vkb(1,ikb),1,dvpsi(1,ibnd),1)