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

Phonon closure more consistent with the other programs. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9635 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2012-11-21 13:25:54 +00:00
parent 232476edef
commit 1aae46b7d5
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
PHonon/PH/stop_ph.f90
View File

@ -12,7 +12,9 @@ SUBROUTINE stop_ph( flag )
! ... Synchronize processes before stopping.
!
USE kinds, ONLY : DP
USE mp_global, ONLY : mp_global_end
USE mp_global, ONLY : mp_global_end, nimage
USE environment, ONLY : environment_end
USE image_io_routines, ONLY : io_image_stop
!
IMPLICIT NONE
!
@ -21,6 +23,10 @@ SUBROUTINE stop_ph( flag )
!
CALL print_clock_ph()
!
CALL environment_end('PHONON')
!
IF (nimage > 1) CALL io_image_stop()
!
CALL mp_global_end()
!
CALL deallocate_part()