Searched defs:o_basis_test (Results 1 – 1 of 1) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/pw4gww/ |
| H A D | o_1psi.f90 | 1118 SUBROUTINE o_basis_test(numv,v_states,numpw, lcutoff,ecutoff) subroutine
1141 INTEGER, EXTERNAL :: find_free_unit
1142 INTEGER, INTENT(in) :: numv!number of valence states
1143 REAL(kind=DP), INTENT(in) :: v_states(dffts%nnr,numv)!valence states in real space
1144 INTEGER, INTENT(in) :: numpw!dimension of the polarization basis
1145 REAL(kind=DP), INTENT(in) :: ecutoff!cutoff in Rydberg for g sum
1146 LOGICAL, INTENT(in) :: lcutoff !if true uses cutoff on G defined by ecutoff
1148 INTEGER :: iw, iungprod, ig,ngm_max
1149 LOGICAL :: exst
1150 COMPLEX(kind=DP), ALLOCATABLE :: tmp_g(:), psi1(:),psi2(:)
[all …]
|