mirror of https://gitlab.com/QEF/q-e.git
Index missing in writing out symmetries in elph_mat.
MCB git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9104 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
53d8f375a1
commit
89bb0eff95
|
@ -252,7 +252,7 @@ SUBROUTINE elphsum_wannier(q_index)
|
|||
enddo
|
||||
write(iuelphmat) nsym,nq,imq
|
||||
do i=1,nsym
|
||||
write(iuelphmat) i,invs,isq(i)
|
||||
write(iuelphmat) i,invs(i),isq(i)
|
||||
do j=1,3
|
||||
do k=1,3
|
||||
write(iuelphmat) k,j, s(k,j,i)
|
||||
|
|
Loading…
Reference in New Issue