Searched refs:igsrt (Results 1 – 4 of 4) sorted by relevance
/dports/science/quantum-espresso/q-e-qe-6.7.0/Modules/ |
H A D | recvec_subs.f90 | 69 INTEGER, ALLOCATABLE :: igsrt(:), g2l(:) local 104 ALLOCATE( igsrt( ngm_max ) ) 198 igsrt(1) = 0 200 CALL hpsort_eps( ngm, g2sort_g, igsrt, eps8 ) 202 CALL hpsort_eps( ngm_g, g2sort_g, igsrt, eps8 ) 229 IF (g2l(igsrt(ng))>0) THEN 231 i = mill_unsorted(1, g2l(igsrt(ng))) 232 j = mill_unsorted(2, g2l(igsrt(ng))) 233 k = mill_unsorted(3, g2l(igsrt(ng))) 251 DEALLOCATE( igsrt, g2l )
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/pw4gww/ |
H A D | calculate_wing.f90 | 238 INTEGER, ALLOCATABLE :: igsrt(:) local 254 ALLOCATE( igsrt( ngm_g*3 ) ) 296 igsrt(1) = 0 297 CALL hpsort_eps( ngm_, g2sort_g, igsrt, eps8 ) 298 mill_g(1,1:ngm_) = mill_unsorted(1,igsrt(1:ngm_)) 299 mill_g(2,1:ngm_) = mill_unsorted(2,igsrt(1:ngm_)) 300 mill_g(3,1:ngm_) = mill_unsorted(3,igsrt(1:ngm_)) 301 DEALLOCATE( g2sort_g, igsrt, mill_unsorted )
|
H A D | fft_custom.f90 | 441 INTEGER, ALLOCATABLE :: igsrt(:) local 454 ALLOCATE( igsrt( fc%ngmt_g ) ) 498 igsrt(1) = 0 499 CALL hpsort_eps( fc%ngmt_g, g2sort_g, igsrt, eps8 ) 500 mill_g(1,:) = mill_unsorted(1,igsrt(:)) 501 mill_g(2,:) = mill_unsorted(2,igsrt(:)) 502 mill_g(3,:) = mill_unsorted(3,igsrt(:)) 503 DEALLOCATE( g2sort_g, igsrt, mill_unsorted )
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/FFTXlib/ |
H A D | fft_test.f90 | 792 INTEGER, ALLOCATABLE :: igsrt(:), g2l(:) local 826 ALLOCATE( igsrt( ngm_max ) ) 920 igsrt(1) = 0 922 CALL hpsort_eps( ngm, g2sort_g, igsrt, eps8 ) 924 CALL hpsort_eps( ngm_g, g2sort_g, igsrt, eps8 ) 956 IF (g2l(igsrt(ng))>0) THEN 958 i = mill_unsorted(1, g2l(igsrt(ng))) 959 j = mill_unsorted(2, g2l(igsrt(ng))) 960 k = mill_unsorted(3, g2l(igsrt(ng))) 978 DEALLOCATE( igsrt, g2l )
|