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

Close the iudyn file. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@10670 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2014-01-07 16:50:32 +00:00
parent 02489d3e46
commit 39b93228b0
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
PHonon/PH/close_phq.f90
View File

@ -20,7 +20,7 @@ SUBROUTINE close_phq( flag )
USE buffers, ONLY : close_buffer
USE uspp, ONLY : okvan
USE units_ph, ONLY : iuwfc, iudwf, iubar, iudrhous, iuebar, iudrho, &
iudvscf, iucom, iudvkb3, iuint3paw
iudvscf, iucom, iudvkb3, iuint3paw, iudyn
USE control_ph, ONLY : zue, epsil, only_wfc
USE recover_mod, ONLY : clean_recover
USE output, ONLY : fildrho, fildvscf
@ -106,6 +106,11 @@ SUBROUTINE close_phq( flag )
INQUIRE( UNIT=iunwfcwann, OPENED=opnd )
IF (opnd) CLOSE( UNIT = iunwfcwann, STATUS = 'KEEP' )
ENDIF
IF (ionode) THEN
INQUIRE( UNIT=iudyn, OPENED=opnd )
IF (opnd) CLOSE( UNIT = iudyn, STATUS = 'KEEP' )
END IF
!
RETURN
!