| /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()
|