scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fixed inconsistency spotted with debug flags 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13542 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
ferretti 2017-06-01 16:11:24 +00:00
parent 77062354cd
commit f1e6b8464a
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Modules/qexsd.f90
View File

@ -650,8 +650,8 @@ CONTAINS
REAL(DP), INTENT(IN) :: Hubbard_beta(nsp)
REAL(DP), INTENT(IN) :: Hubbard_J(3,nsp)
REAL(DP), INTENT(IN) :: starting_ns(lqmax,nspinx,nsp)
REAL(DP), OPTIONAL, INTENT(IN) :: Hubbard_ns(:,:,:,:)
COMPLEX(DP),OPTIONAL, INTENT(IN) :: Hubbard_ns_nc(:,:,:,:)
REAL(DP), OPTIONAL, ALLOCATABLE, INTENT(IN) :: Hubbard_ns(:,:,:,:)
COMPLEX(DP),OPTIONAL, ALLOCATABLE, INTENT(IN) :: Hubbard_ns_nc(:,:,:,:)
CHARACTER(len=*), INTENT(IN) :: U_projection_type
LOGICAL,INTENT(IN) :: is_hubbard(nsp)
CHARACTER(LEN=2),INTENT(IN) :: psd(nsp)
@ -781,6 +781,10 @@ CONTAINS
!
ind = 0
IF (noncolin .AND. PRESENT(Hubbard_ns_nc) ) THEN
!
IF (.NOT. ALLOCATED(Hubbard_ns_nc)) &
CALL errore('qexsd_init_dft', 'Hubbard_ns_nc not alloc', 10)
!
Hubbard_ns_ispresent = .TRUE.
ldim = SIZE(Hubbard_ns_nc,1)
ALLOCATE (Hubb_occ_aux(2*ldim,2*ldim))
@ -799,6 +803,10 @@ CONTAINS
END DO
DEALLOCATE ( Hubb_occ_aux)
ELSE IF ( PRESENT(Hubbard_ns) ) THEN
!
IF (.NOT. ALLOCATED(Hubbard_ns)) &
CALL errore('qexsd_init_dft', 'Hubbard_ns not alloc', 10)
!
Hubbard_ns_ispresent = .TRUE.
ldim = SIZE(Hubbard_ns,1)
DO i = 1, nat