Lines Matching refs:npw1
123 INTEGER :: npw1 local
443 npw1 = ngk(ik)
449 CALL init_us_2 (npw1,igk1,xk(1,nx_el(kpoint,pdir)),vkb)
450 CALL calbec( npw1, vkb, psi1, becp_bp)
453 DO ig = 1, npw1
459 CALL ZGEMM( 'C', 'N', nkb, nbnd*npol, npw1, ( 1.D0, 0.D0 ), &
470 npw1 = ngk(ik)
476 CALL init_us_2( npw1, igk1, xk(1,nx_el(kstart,pdir)), vkb )
477 CALL calbec( npw1, vkb, psi1, becp_bp )
480 DO ig = 1, npw1
485 CALL ZGEMM( 'C', 'N', nkb, nbnd*npol, npw1, ( 1.D0, 0.D0 ), &
520 DO ig = 1, npw1
525 DO ig = 1, npw1
556 DO ig = 1, npw1