mirror of https://gitlab.com/QEF/q-e.git
39 lines
1.1 KiB
Fortran
39 lines
1.1 KiB
Fortran
!
|
|
! Copyright (C) 2001-2008 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 .
|
|
!
|
|
#include "f_defs.h"
|
|
!
|
|
!----------------------------------------------------------------------------
|
|
SUBROUTINE allocate_wfc()
|
|
!----------------------------------------------------------------------------
|
|
!
|
|
! ... dynamical allocation of arrays: wavefunctions
|
|
! ... must be called after allocate_nlpot
|
|
!
|
|
USE io_global, ONLY : stdout
|
|
USE wvfct, ONLY : npwx, nbnd
|
|
USE basis, ONLY : natomwfc
|
|
USE ldaU, ONLY : swfcatom, lda_plus_u
|
|
USE noncollin_module, ONLY : noncolin, npol
|
|
USE wavefunctions_module, ONLY : evc
|
|
USE wannier_new, ONLY : use_wannier
|
|
!
|
|
IMPLICIT NONE
|
|
!
|
|
!
|
|
IF (noncolin) THEN
|
|
ALLOCATE( evc( npwx*npol, nbnd ) )
|
|
IF ( lda_plus_u ) ALLOCATE( swfcatom( npwx*npol, natomwfc) )
|
|
ELSE
|
|
ALLOCATE( evc( npwx, nbnd ) )
|
|
IF ( lda_plus_u .OR. use_wannier ) ALLOCATE( swfcatom( npwx, natomwfc) )
|
|
ENDIF
|
|
!
|
|
RETURN
|
|
!
|
|
END subroutine allocate_wfc
|