Searched refs:my_xk (Results 1 – 1 of 1) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/Modules/ |
| H A D | qexsd_input.f90 | 268 REAL(DP),DIMENSION(3) :: my_xk local
300 my_xk=xk(:,ik)+(DBLE(jk)/wk(ik))*(xk(:,ik+1)-xk(:,ik))
301 my_xk=my_xk*scale_factor
302 CALL qes_init (kp_obj(kcount),"k_point",WEIGHT = 1.d0, K_POINT = my_xk)
310 my_xk=xk(:,ik)*scale_factor
311 CALL qes_init (kp_obj(ik),"k_point", WEIGHT = wk(ik),K_POINT=my_xk)
|