!
! Copyright (C) 2001-2003 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 close_files()
  !----------------------------------------------------------------------------
  !
  ! ... Close all files and synchronize processes for a new scf calculation.
  !
  USE control_flags, ONLY : order
  USE ldaU,          ONLY : lda_plus_u
  USE io_files,      ONLY : prefix, iunwfc, iunigk, iunat
  USE mp_global,     ONLY : intra_image_comm
  USE mp,            ONLY : mp_barrier
  !
  IMPLICIT NONE
  !
  LOGICAL :: opnd
  !
  !  ... iunwfc contains wavefunctions and is kept open during
  !  ... the execution - close and save the file
  !
  INQUIRE( UNIT = iunwfc, OPENED = opnd )
  IF ( opnd ) CLOSE( UNIT = iunwfc, STATUS = 'KEEP' )
  !
  ! ... iunigk is kept open during the execution - close and remove
  !
  INQUIRE( UNIT = iunigk, OPENED = opnd )
  IF ( opnd ) CLOSE( UNIT = iunigk, STATUS = 'DELETE' )
  !
  ! ... iunat contains the orthogonalized wfcs
  !
  IF ( lda_plus_u ) THEN
     !
     INQUIRE( UNIT = iunat, OPENED = opnd )  
     IF ( opnd ) CLOSE( UNIT = iunat, STATUS = 'KEEP' )
     !
  END IF
  !
  CALL mp_barrier( intra_image_comm )  
  !
#if defined (__T3E)
  !
  ! ... set streambuffers off
  !
  CALL set_d_stream( 0 )
#endif
  !
  RETURN
  !
END SUBROUTINE close_files