!
! Copyright (C) 2002 FPMD 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 .
!

!=----------------------------------------------------------------------------=!
   MODULE wavefunctions_module
!=----------------------------------------------------------------------------=!
     USE kinds, ONLY :  DP, dbl

     IMPLICIT NONE
     SAVE

     !
     COMPLEX(KIND=DP), ALLOCATABLE, TARGET :: &
       evc(:,:)     ! wavefunctions in the PW basis

     !
     COMPLEX(KIND=DP) , ALLOCATABLE, TARGET :: &
       psic(:)      ! additional memory for FFT


     ! three index wave functions, for non colinear code
     !
     COMPLEX(KIND=DP), ALLOCATABLE, TARGET :: &
       evc_nc(:,:,:)     !  wavefunctions in the PW basis
     !
     COMPLEX(KIND=DP), ALLOCATABLE, TARGET :: &
       psic_nc(:,:)      !  additional memory for FFT
     !     

     ! electronic wave functions, FPMD code
     !
     COMPLEX(dbl), ALLOCATABLE :: c0(:,:,:,:)  ! wave functions at time t
     COMPLEX(dbl), ALLOCATABLE :: cm(:,:,:,:)  ! wave functions at time t-delta t
     COMPLEX(dbl), ALLOCATABLE :: cp(:,:,:,:)  ! wave functions at time t+delta t
     COMPLEX(dbl), ALLOCATABLE :: ce(:,:,:,:)  ! empty states wave func. at time t

   CONTAINS

     SUBROUTINE deallocate_wavefunctions
       IF( ALLOCATED( c0 ) ) DEALLOCATE( c0 )
       IF( ALLOCATED( cm ) ) DEALLOCATE( cm )
       IF( ALLOCATED( cp ) ) DEALLOCATE( cp )
       IF( ALLOCATED( ce ) ) DEALLOCATE( ce )
       IF( ALLOCATED( psic_nc ) ) DEALLOCATE( psic_nc )
       IF( ALLOCATED( evc_nc ) ) DEALLOCATE( evc_nc )
       IF( ALLOCATED( psic ) ) DEALLOCATE( psic )
       IF( ALLOCATED( evc ) ) DEALLOCATE( evc )
     END SUBROUTINE

!=----------------------------------------------------------------------------=!
   END MODULE wavefunctions_module
!=----------------------------------------------------------------------------=!