Searched refs:xk_frac (Results 1 – 1 of 1) sorted by relevance
/dports/science/quantum-espresso/q-e-qe-6.7.0/PP/src/ |
H A D | fermisurfer_common.f90 | 41 REAL(8) :: xk_frac(3), kv(3), ef1, ef2 local 78 xk_frac(1:3) = matmul(xk(1:3,ik), at(1:3,1:3)) 82 kv(1:3) = MATMUL(REAL(s(1:3,1:3,isym), DP), xk_frac(1:3)) * REAL((/nk1, nk2, nk3/), DP)
|