Commit a9ceca06 authored by paulatto's avatar paulatto

Correctly report 4-fold degenerate irreps



git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/[email protected] c92efa57-630b-4861-b058-cf58834340f0
parent a43f164a
......@@ -313,11 +313,16 @@ subroutine phq_summary
imode0 + 2
WRITE( stdout, '(2(10x," (",2f10.5," ) "))') ( (u (mu, nu) , nu &
&= imode0 + 1, imode0 + npert (irr) ) , mu = 1, 3 * nat)
else
elseif (npert (irr) .eq.3) then
WRITE( stdout, '(4x,3(" mode # ",i3,13x))') imode0 + 1, imode0 &
+ 2, imode0 + 3
WRITE( stdout, '((5x,3("(",2f10.5," ) ")))') ( (u (mu, nu) , &
nu = imode0 + 1, imode0 + npert (irr) ) , mu = 1, 3 * nat)
else
WRITE( stdout, '(4x,4(" mode # ",i3,13x))') imode0 + 1, imode0 &
+ 2, imode0 + 4
WRITE( stdout, '((5x,4("(",2f10.5," ) ")))') ( (u (mu, nu) , &
nu = imode0 + 1, imode0 + npert (irr) ) , mu = 1, 3 * nat)
endif
imode0 = imode0 + npert (irr)
endif
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment