Added comment for better understanding of the routine.

MCB git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9075 c92efa57-630b-4861-b058-cf58834340f0
2012-06-12 07:23:23 +00:00 · 2012-06-12 07:23:23 +00:00 · c7dfd02839
parent 720c90733b
commit c7dfd02839
1 changed files with 4 additions and 0 deletions
--- a/PHonon/PH/ep_matrix_element_wannier.f90
+++ b/PHonon/PH/ep_matrix_element_wannier.f90
@ -491,6 +491,10 @@ subroutine get_equivalent_kpq(xk,xq,kpq,g_kpq, igqg)
  ! nksq = number of k point per pool withour k+q
  !

+  ! 
+  ! The xk_point entering here must be the k and not
+  !    the k+q
+  !

  xq_crys=xq