Home
last modified time | relevance | path

Searched refs:igsrt (Results 1 – 4 of 4) sorted by relevance

/dports/science/quantum-espresso/q-e-qe-6.7.0/Modules/
H A Drecvec_subs.f9069 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 Dcalculate_wing.f90238 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 Dfft_custom.f90441 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 Dfft_test.f90792 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 )