mirror of https://gitlab.com/QEF/q-e.git
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:
parent
232476edef
commit
1aae46b7d5
|
@ -12,7 +12,9 @@ SUBROUTINE stop_ph( flag )
|
||||||
! ... Synchronize processes before stopping.
|
! ... Synchronize processes before stopping.
|
||||||
!
|
!
|
||||||
USE kinds, ONLY : DP
|
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
|
IMPLICIT NONE
|
||||||
!
|
!
|
||||||
|
@ -21,6 +23,10 @@ SUBROUTINE stop_ph( flag )
|
||||||
!
|
!
|
||||||
CALL print_clock_ph()
|
CALL print_clock_ph()
|
||||||
!
|
!
|
||||||
|
CALL environment_end('PHONON')
|
||||||
|
!
|
||||||
|
IF (nimage > 1) CALL io_image_stop()
|
||||||
|
!
|
||||||
CALL mp_global_end()
|
CALL mp_global_end()
|
||||||
!
|
!
|
||||||
CALL deallocate_part()
|
CALL deallocate_part()
|
||||||
|
|
Loading…
Reference in New Issue