/dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/pw4gww/ |
H A D | mp_wave_parallel.f90 | 275 …SUBROUTINE reorderwfp (nbands,npw1, npw2,pw1,pw2, ngwl1,ngwl2, ig_l2g1,ig_l2g2,n_g,mpime, nproc,ro… argument 284 INTEGER, INTENT(in) :: npw1,npw2,nbands local 285 COMPLEX(DP), INTENT(IN) :: pw1(npw1,nbands) 298 allocate(cbuf1(npw1,nproc),cbuf2(npw2,nproc)) 306 cbuf1(1:npw1,1:(ilast-ii+1))=pw1(1:npw1,ii:ilast) 307 call mergewfp ( npw1,cbuf1, pwt, ngwl1, ig_l2g1, mpime, nproc, root, comm ) 325 INTEGER, INTENT(in) :: npw1,npw2,nbands local 326 COMPLEX(kind=DP) :: pw1(npw1,nbands),pw2(npw2,nbands) 349 CALL MPI_ALLREDUCE( npw1, npw1_max, 1, MPI_INTEGER, MPI_MAX, gid, IERR ) 351 CALL MPI_ALLGATHER (npw1,1,MPI_INTEGER,npw1_loc,1,MPI_INTEGER,gid,IERR) [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
H A D | h_epsi_her_set.f90 | 82 INTEGER :: npw1 local 352 npw1 = ngk(ikk) 358 DO ig = 1, npw1 535 DO ig = 1, npw1 567 npw1 = ngk(ikk) 574 DO ig = 1, npw1 914 npw1 = ngk(ikk) 920 DO ig = 1, npw1 942 DO ig = 1, npw1 1155 npw1 = ngk(ikk) [all …]
|
H A D | bp_c_phase.f90 | 231 INTEGER :: npw1 local 485 npw1 = ngk(kpoint) 494 npw1 = ngk(kstart) 499 CALL calbec(npw1, vkb, evc, becp_bp) 509 DO ig=1,npw1 566 DO ig=1,npw1 570 DO ig=1,npw1 575 DO ig=1,npw1 579 DO ig=1,npw1 588 DO ig=1,npw1 [all …]
|
H A D | c_phase_field.f90 | 95 INTEGER :: npw1 local 415 npw1 = ngk(ik) 419 CALL init_us_2( npw1,igk1,xk(1,nx_el(kpoint,pdir)),vkb ) 420 CALL calbec( npw1, vkb, psi1, becp_bp ) 425 npw1 = ngk(ik) 429 CALL init_us_2( npw1,igk1,xk(1,nx_el(kstart,pdir)),vkb ) 430 CALL calbec( npw1, vkb, psi1, becp_bp ) 438 DO ig = 1, npw1 490 DO ig=1,npw1 495 DO ig=1,npw1 [all …]
|
H A D | forces_bp_efield.f90 | 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 470 npw1 = ngk(ik) 477 CALL calbec( npw1, vkb, psi1, becp_bp ) 480 DO ig = 1, npw1 520 DO ig = 1, npw1 525 DO ig = 1, npw1 [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/simple/ |
H A D | wfc_basis.f90 | 33 INTEGER :: npw1,ntot,isca local 126 npw1 = ngk (ik) 139 do ig=1,npw1
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/PHonon/PH/ |
H A D | d2nsq_bare.f90 | 39 INTEGER, INTENT(IN) :: npw1, npw2 local 65 projvec1vec2(ibnd) = ZDOTC (npw1, vec1(:,ibnd), 1, vec2(:,ibeta1), 1)
|
/dports/cad/tkgate/tkgate-2.1/src/tkgate/ |
H A D | block.c | 2087 int npw1 = block_getPadWires(g1,k,pw1,1024); in block_isIsomorphic_blockports() local 2091 if (npw1 != npw2) return 0; /* # wires on pad differ */ in block_isIsomorphic_blockports() 2093 qsort(pw1,npw1,sizeof(GWire*),wireNameCmp); in block_isIsomorphic_blockports() 2096 for (j = 0;j < npw1;j++) { in block_isIsomorphic_blockports()
|