!
! Copyright (C) 2001 PWSCF group
! This file is distributed under the terms of the
! GNU General Public License. See the file `License'
! in the root directory of the present distribution,
! or http://www.gnu.org/copyleft/gpl.txt .
!
!
!-----------------------------------------------------------------------
subroutine stop_ph (flag)
  !-----------------------------------------------------------------------
  !
  ! Close all files and synchronize processes before stopping.
  ! Called at the end of the run with flag=.true. (removes 'recover')
  ! or during execution with flag=.false. (does not remove 'recover')
  !

  use pwcom
  USE kinds, only : DP
  use phcom
!  use control_flags, ONLY : twfcollect
  use mp, only: mp_end, mp_barrier
  USE parallel_include
#ifdef __PARA
  use para
#endif
  implicit none
#ifdef __PARA
  integer :: info
#endif
  logical :: flag, exst


  call print_clock_ph
  call show_memory ()
#ifdef __PARA
  call mp_barrier()

  ! call mpi_finalize (info)
#endif

  call mp_end()

#ifdef __T3E
  !
  ! set streambuffers off
  !

  call set_d_stream (0)
#endif

  call deallocate_part

  if (flag) then
     stop
  else
     stop 1
  endif

end subroutine stop_ph