!
! 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 clean_pw()
  !----------------------------------------------------------------------
  !    
  !    This routine deallocates all dynamically allocated arrays
  !
  USE basis,                ONLY : ityp, tau
  USE gvect,                ONLY : g, gg, nl, nlm, igtongl, ig1, ig2, ig3, &
                                   eigts1, eigts2, eigts3
  USE gsmooth,              ONLY : nls, nlsm, doublegrid
  USE ktetra,               ONLY : tetra
  USE reciprocal_vectors,   ONLY : ig_l2g
  USE symme,                ONLY : irt
  USE vlocal,               ONLY : strf, vloc, vnew
  USE wvfct,                ONLY : igk, igk_l2g, g2kin, et, wg, gamma_only
  USE force_mod,            ONLY : force
  USE scf,                  ONLY : rho, rho_save,vr, vltot, rho_core, vrs
  USE relax,                ONLY : if_pos
  USE wavefunctions_module, ONLY : evc, psic
  USE us,                   ONLY : indv, nhtol, nhtom, qq, dvan, deeq, qrad, &
                                   vkb, qgm, becsum, tab, tab_at
  USE ldaU,                 ONLY : ns, nsnew, swfcatom
  USE extfield,             ONLY : forcefield
  USE becmod,               ONLY : becp
  USE sticks,               ONLY : dfftp, dffts  
  USE stick_base,           ONLY : sticks_deallocate
  USE berry_phase,          ONLY : berry_closeup
#if defined (__SX6)
  USE afftnec,              ONLY : auxp
#endif  
  USE fft_types,            ONLY : fft_dlay_deallocate
  USE constrains_module,    ONLY : constr, target
  !
  IMPLICIT NONE
  !
  !
  ! ... arrays allocated in input.f90, read_file.f90 or setup.f90
  !
  IF ( ALLOCATED( tau ) )        DEALLOCATE( tau )
  IF ( ALLOCATED( force ) )      DEALLOCATE( force )
  IF ( ALLOCATED( ityp ) )       DEALLOCATE( ityp )
  IF ( ALLOCATED( tetra ) )      DEALLOCATE( tetra )
  IF ( ALLOCATED( irt ) )        DEALLOCATE( irt )
  IF ( ALLOCATED( forcefield ) ) DEALLOCATE( forcefield )
  IF ( ALLOCATED( if_pos ) )     DEALLOCATE( if_pos )   
  !
  ! ... arrays allocated in ggen.f90
  !
  IF ( ALLOCATED( ig_l2g ) )     DEALLOCATE( ig_l2g )
  !
  ! ... arrays allocated in allocate_fft.f90 ( and never deallocated )
  !
  IF ( ALLOCATED( g ) )          DEALLOCATE( g )
  IF ( ALLOCATED( gg ) )         DEALLOCATE( gg )
  IF ( ALLOCATED( nl ) )         DEALLOCATE( nl )  
  IF ( gamma_only ) THEN
     IF ( ALLOCATED( nlm ) )     DEALLOCATE( nlm )
  END IF
  IF ( ALLOCATED( igtongl ) )    DEALLOCATE( igtongl )  
  IF ( ALLOCATED( ig1 ) )        DEALLOCATE( ig1 )
  IF ( ALLOCATED( ig2 ) )        DEALLOCATE( ig2 )
  IF ( ALLOCATED( ig3 ) )        DEALLOCATE( ig3 )
  IF ( ALLOCATED( rho ) )        DEALLOCATE( rho )
  IF ( ALLOCATED( rho_save ) )   DEALLOCATE( rho_save )
  IF ( ALLOCATED( vr ) )         DEALLOCATE( vr )
  IF ( ALLOCATED( vltot ) )      DEALLOCATE( vltot )
  IF ( ALLOCATED( vnew ) )       DEALLOCATE( vnew )
  IF ( ALLOCATED( rho_core ) )   DEALLOCATE( rho_core )
  IF ( ALLOCATED( psic ) )       DEALLOCATE( psic )
  IF ( ALLOCATED( vrs ) )        DEALLOCATE( vrs )
  IF ( doublegrid ) THEN
    IF ( ASSOCIATED( nls ) )     DEALLOCATE( nls )
  END IF
  IF ( doublegrid .AND. gamma_only ) THEN
     IF ( ASSOCIATED( nlsm ))    DEALLOCATE( nlsm )
  END IF
  !
  ! ... arrays allocated in allocate_locpot.f90 ( and never deallocated )
  !
  IF ( ALLOCATED( vloc ) )       DEALLOCATE( vloc )
  IF ( ALLOCATED( strf ) )       DEALLOCATE( strf )
  IF ( ALLOCATED( eigts1 ) )     DEALLOCATE( eigts1 )
  IF ( ALLOCATED( eigts2 ) )     DEALLOCATE( eigts2 )
  IF ( ALLOCATED( eigts3 ) )     DEALLOCATE( eigts3 )
  !
  ! ... arrays allocated in allocate_nlpot.f90 ( and never deallocated )
  !
  IF ( ALLOCATED( igk ) )        DEALLOCATE( igk )
  IF ( ALLOCATED( igk_l2g ) )    DEALLOCATE( igk_l2g )
  IF ( ALLOCATED( g2kin ) )      DEALLOCATE( g2kin )
  IF ( ALLOCATED( indv ) )       DEALLOCATE( indv )
  IF ( ALLOCATED( nhtol ) )      DEALLOCATE( nhtol )
  IF ( ALLOCATED( nhtom ) )      DEALLOCATE( nhtom )
  IF ( ALLOCATED( qq ) )         DEALLOCATE( qq )
  IF ( ALLOCATED( dvan ) )       DEALLOCATE( dvan )
  IF ( ALLOCATED( deeq ) )       DEALLOCATE( deeq )
  IF ( ALLOCATED( qrad ) )       DEALLOCATE( qrad )
  IF ( ALLOCATED( vkb ) )        DEALLOCATE( vkb )
  IF ( ALLOCATED( qgm ) )        DEALLOCATE( qgm )
  IF ( ALLOCATED( becsum ) )     DEALLOCATE( becsum )
  IF ( ALLOCATED( ns ) )         DEALLOCATE( ns )
  IF ( ALLOCATED( nsnew ) )      DEALLOCATE( nsnew )
  IF ( ALLOCATED( tab ) )        DEALLOCATE( tab )
  IF ( ALLOCATED( tab_at ) )     DEALLOCATE( tab_at )
  !
  ! ... arrays allocated in allocate_wfc.f90 ( and never deallocated )
  !
  IF ( ALLOCATED( et ) )         DEALLOCATE( et )
  IF ( ALLOCATED( wg ) )         DEALLOCATE( wg )
  IF ( ALLOCATED( evc ) )        DEALLOCATE( evc )
  IF ( ALLOCATED( becp ) )       DEALLOCATE( becp )
  IF ( ALLOCATED( swfcatom ) )   DEALLOCATE( swfcatom )
  !
#ifdef __SX6
  !
  ! ... arrays allocated in cft_3.f90 ( and never deallocated )
  !
  IF ( ALLOCATED( auxp ) )       DEALLOCATE( auxp )
  !
#endif 
  !
  ! ... fft structures allocated in data_structure.f90  
  !
  CALL fft_dlay_deallocate( dfftp )
  CALL fft_dlay_deallocate( dffts )
  !
  ! ... stick-owner matrix allocated in sticks_base
  !
  CALL sticks_deallocate( )
  !
  ! ... deallocate indices used in calculation of polarizability at gamma
  !
  CALL berry_closeup( )
  !
  ! ... vectors for ionic constrains
  !
  IF ( ALLOCATED( constr ) )     DEALLOCATE( constr )
  IF ( ALLOCATED( target ) )     DEALLOCATE( target )
  !
  RETURN
  !
END SUBROUTINE clean_pw