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:
calandra 2012-06-19 09:08:55 +00:00
parent 53d8f375a1
commit 89bb0eff95
1 changed files with 1 additions and 1 deletions

View File

@ -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)