Lines Matching refs:ibnd
41 INTEGER :: ibnd, ik local
84 DO ibnd=1,nbnd
86 temp_gamma = temp_gamma + 2.D0*wg(ibnd,1)*DDOT(2*ngk(1),x(:,ibnd,1),1,y(:,ibnd,1),1)
90 IF (gstart==2) temp_gamma = temp_gamma - wg(ibnd,1)*dble(x(1,ibnd,1))*dble(y(1,ibnd,1))
121 DO ibnd = 1, nbnd_occ(ikk)
123 lr_dot = lr_dot + wk(ikk) * dot_product(x(:,ibnd,ik),y(:,ibnd,ik))
157 DO ibnd = 1, nbnd_occ(ikk)
160 dot_product( x(1:npwq,ibnd,ik), y(1:npwq,ibnd,ik) )
273 INTEGER :: ibnd, jbnd local
277 DO ibnd=1,nbnd1
278 DO jbnd=ibnd,nbnd2
280 temp_gamma = 2.D0*DDOT(2*ngk(1),x(:,ibnd),1,sx(:,jbnd),1)
282 IF (gstart==2) temp_gamma = temp_gamma - dble(x(1,ibnd))*dble(sx(1,jbnd))
288 WRITE(stdout,'("<x,",I02,"|S|x,",I02,"> =",E15.8)') ibnd,jbnd,temp_gamma
318 INTEGER :: ibnd local
321 DO ibnd=1,nbnd,2
322 w1 = wg(ibnd,1)/omega
324 IF (ibnd<nbnd) THEN
325 w2 = wg(ibnd+1,1)/omega
329 temp_gamma = sum(w1*dble(rx(1:dfftp%nnr,ibnd))*dble(rx(1:dfftp%nnr,ibnd))&
330 + w2*aimag(rx(1:dfftp%nnr,ibnd))*aimag(rx(1:dfftp%nnr,ibnd)))
334 …WRITE(stdout,'("Contribution of bands ",I02," and ",I02," to total density",E15.8)') ibnd,ibnd+1,t…