Home
last modified time | relevance | path

Searched refs:ngwl (Results 1 – 25 of 33) sorted by relevance

12

/dports/science/qbox/qbox-public-rel1_73_3/src/
H A DNonLocalPotential.cpp56 const int ngwl = basis_.localsize(); in init() local
106 twnl[is].resize(npr[is]*ngwl); in init()
107 dtwnl[is].resize(npr[is]*6*ngwl); in init()
246 const int ngwl = basis_.localsize(); in update_twnl() local
286 double *t0 = &twnl[is][ngwl*ipr]; in update_twnl()
1272 const int ngwl = basis_.localsize(); in energy() local
1324 &zero,&gr[0],(int*)&ngwl); in energy()
1326 int len = ia_block_size * ngwl; in energy()
1403 int twongwl = 2 * ngwl; in energy()
1595 int twongwl = 2 * ngwl; in energy()
[all …]
H A DPSDWavefunctionStepper.cpp95 const int ngwl = sd->basis().localsize(); in update() local
103 for ( int i = 0; i < ngwl; i++ ) in update()
H A DJDWavefunctionStepper.cpp115 const int ngwl = wf_.sd(isp_loc,ikp_loc)->basis().localsize(); in update() local
124 for ( int i = 0; i < ngwl; i++ ) in update()
161 const int ngwl = wf_.sd(isp_loc,ikp_loc)->basis().localsize(); in update() local
170 for ( int i = 0; i < ngwl; i++ ) in update()
H A DPSDAWavefunctionStepper.cpp104 const int ngwl = sd->basis().localsize(); in update() local
111 for ( int i = 0; i < ngwl; i++ ) in update()
/dports/science/quantum-espresso/q-e-qe-6.7.0/CPV/src/
H A Dwave_types.f9034 INTEGER :: ngwl ! local number of pw component
67 SUBROUTINE wave_descriptor_init( desc, ngwl, ngwt, nbl, nbt, nkl, nkt, & argument
73 INTEGER, INTENT(IN) :: ngwl local
92 IF( ngwl <= 0 ) THEN
93 desc % ngwl = ngwt
94 ELSE IF( ngwl > ngwt ) THEN
97 desc % ngwl = ngwl
154 desc % ldg = MAX( 1, desc % ngwl )
172 desc%ngwl, desc%ngwt, desc%nbl, desc%nbt, desc%nkl, desc%nkt, &
H A Dwave.f90153 SUBROUTINE protate_x ( c0, bec, c0rot, becrot, ngwl, nss, noff, lambda, nrl, & argument
184 INTEGER, INTENT(IN) :: ngwl, nss, nrl, noff local
230 CALL daxpy(2*ngwl,uu(jl,i),c0(1,j+noff-1),1,c0rot(1,i+noff-1),1)
H A Dcp_interfaces.f90802 SUBROUTINE protate_x ( c0, bec, c0rot, becrot, ngwl, nss, noff, lambda, nrl, &
806 INTEGER, INTENT(IN) :: ngwl, nss, nrl, noff local
/dports/science/quantum-espresso/q-e-qe-6.7.0/Modules/
H A Dmp_wave.f9034 INTEGER, INTENT(IN) :: ngwl local
93 DO I = 1, ngwl
106 DO I = 1, ngwl
139 INTEGER, INTENT(IN) :: ngwl local
197 DO I = 1, ngwl
210 DO I = 1, ngwl
241 INTEGER, INTENT(IN) :: ngwl local
296 DO i = 1, ngwl
306 DO I = 1, ngwl
390 DO i = 1, ngwl
[all …]
H A Dio_base.f9026 ik, xk, ispin, nspin, wfc, ngw, gamma_only, nbnd, igl, ngwl, & argument
54 INTEGER, INTENT(IN) :: ngwl local
78 igwx = MAXVAL( igl(1:ngwl) )
116 CALL mergekg( mill_k, itmp, ngwl, igl, me_in_group, &
164 CALL mergewf( wfc(1:npwx, j), wtmp , ngwl, igl,&
171 CALL mergewf( wfc(npwx+1:2*npwx,j), wtmp2, ngwl, igl,&
176 CALL mergewf( wfc(:,j), wtmp, ngwl, igl, me_in_group, &
209 ik, xk, ispin, npol, wfc, ngw, gamma_only, nbnd, igl, ngwl, & argument
231 INTEGER, INTENT(IN) :: ngwl local
260 igwx = MAXVAL( igl(1:ngwl) )
[all …]
/dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/pw4gww/
H A Dmp_wave_parallel.f9017 SUBROUTINE mergewfp ( npw,pw, pwt, ngwl, ig_l2g, mpime, nproc, root, comm ) argument
30 INTEGER, INTENT(in) :: npw,ngwl local
60 igwx = MAXVAL( ig_l2g(1:ngwl) )
67 CALL MPI_ALLREDUCE( ngwl, ngw_lmax, 1, MPI_INTEGER, MPI_MAX, gid, IERR )
118 DO I = 1, ngwl
136 DO I = 1, ngwl
166 INTEGER, INTENT(IN) :: ngwl local
184 igwx = MAXVAL( ig_l2g(1:ngwl) )
191 CALL MPI_ALLREDUCE(ngwl, ngw_lmax, 1, MPI_INTEGER, MPI_MAX, gid, IERR )
240 DO i = 1, ngwl
[all …]
H A Dself_lanczos.f901683 COMPLEX(DP), intent(in) :: PW(ngwl*nproc)
1691 INTEGER, INTENT(IN) :: ig_l2g(ngwl)
1692 INTEGER, INTENT(IN) :: ngwl local
1707 igwx = MAXVAL( ig_l2g(1:ngwl) )
1756 DO I = 1, ngwl
1771 DO I = 1, ngwl
1801 INTEGER, INTENT(IN) :: ig_l2g(ngwl)
1802 INTEGER, INTENT(IN) :: ngwl local
1817 igwx = MAXVAL( ig_l2g(1:ngwl) )
1860 DO i = 1, ngwl
[all …]
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gfortran.dg/
H A Duse_only_3.inc392 INTEGER :: ngwl = 0 ! number of G-vector shells up to ngw
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/
H A Duse_only_3.inc392 INTEGER :: ngwl = 0 ! number of G-vector shells up to ngw
/dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/gfortran.dg/
H A Duse_only_3.inc392 INTEGER :: ngwl = 0 ! number of G-vector shells up to ngw
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/
H A Duse_only_3.inc392 INTEGER :: ngwl = 0 ! number of G-vector shells up to ngw
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/
H A Duse_only_3.inc392 INTEGER :: ngwl = 0 ! number of G-vector shells up to ngw
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gfortran.dg/
H A Duse_only_3.inc392 INTEGER :: ngwl = 0 ! number of G-vector shells up to ngw
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/
H A Duse_only_3.inc392 INTEGER :: ngwl = 0 ! number of G-vector shells up to ngw
/dports/lang/gnat_util/gcc-6-20180516/gcc/testsuite/gfortran.dg/
H A Duse_only_3.inc392 INTEGER :: ngwl = 0 ! number of G-vector shells up to ngw
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/
H A Duse_only_3.inc392 INTEGER :: ngwl = 0 ! number of G-vector shells up to ngw
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gfortran.dg/
H A Duse_only_3.inc392 INTEGER :: ngwl = 0 ! number of G-vector shells up to ngw
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/
H A Duse_only_3.inc392 INTEGER :: ngwl = 0 ! number of G-vector shells up to ngw
/dports/lang/gcc48/gcc-4.8.5/gcc/testsuite/gfortran.dg/
H A Duse_only_3.inc392 INTEGER :: ngwl = 0 ! number of G-vector shells up to ngw
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/testsuite/gfortran.dg/
H A Duse_only_3.inc392 INTEGER :: ngwl = 0 ! number of G-vector shells up to ngw
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/testsuite/gfortran.dg/
H A Duse_only_3.inc392 INTEGER :: ngwl = 0 ! number of G-vector shells up to ngw

12