scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Corrected another problem introduced with recent commit. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@5227 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2008-10-18 14:17:28 +00:00
parent 78945be233
commit ba4cbb2a3d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
PH/phonon.f90
View File

@ -36,7 +36,7 @@ PROGRAM phonon
epsil, trans, elph, zue, recover, rec_code, &
lnoloc, lrpa, done_bands, xml_not_of_pw, &
start_q,last_q,start_irr,last_irr,current_iq,&
reduce_io
reduce_io, all_done
USE freq_ph
USE output, ONLY : fildyn, fildrho
USE global_version, ONLY : version_number
@ -273,7 +273,8 @@ PROGRAM phonon
!
CALL print_clock( 'PHONON' )
!
IF ( trans .AND. (done_irr(0)==0.AND.comp_irr(0)==1) ) CALL dynmat0()
IF ( trans .AND. (done_irr(0)==0.AND.comp_irr(0)==1) &
.AND..NOT.all_done ) CALL dynmat0()
!
IF ( epsil .AND. rec_code <= 0 ) THEN
!