Searched refs:nk2_ (Results 1 – 1 of 1) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
| H A D | start_k.f90 | 45 SUBROUTINE init_start_k( nk1_, nk2_, nk3_, k1_, k2_, k3_, k_points, & argument
51 INTEGER, INTENT(IN) :: nk1_, nk2_, nk3_, k1_, k2_, k3_, nk_ local
61 done = reset_grid ( nk1_, nk2_, nk3_, k1_, k2_, k3_ )
96 LOGICAL FUNCTION reset_grid( nk1_, nk2_, nk3_, k1_, k2_, k3_ )
100 INTEGER, INTENT(IN) :: nk1_, nk2_, nk3_, k1_, k2_, k3_ local
102 reset_grid = (nk1_*nk2_*nk3_ > 0)
105 nk2 = nk2_
|