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

Merge branch 'smallfixes' into 'develop' 

Small fixes

Closes #521

See merge request QEF/q-e!1915
This commit is contained in:
Ye Luo 2022-07-12 12:56:56 +00:00
parent a08b78cc30 e5ae5b0907
commit 466f76eabf
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Modules/mbdlib.f90
View File

@ -57,7 +57,9 @@ SUBROUTINE init_mbd ( nks_start, nk1, nk2, nk3, k1, k2, k3, tprnfor, tstress )
!
! Allocation of variables that depend on the number of atoms
!
#if !defined(__NOMBD)
#if defined(__NOMBD)
CALL errore( 'libmbd_interface', 'Many-Body Dispersion not compiled',1)
#else
ALLOCATE(inp%atom_types(nat))
!
EmbdvdW = 0.0_dp

4
upflib/xmltools.f90
View File

@ -623,8 +623,8 @@ CONTAINS
INTEGER :: i
LOGICAL :: indent
!
IF ( nlevel < 0 ) THEN
print "('xmlw_closetag: severe error, closing tag that was never opened')"
IF ( nlevel < 1 ) THEN
IF ( nlevel < 0 ) print "('xmlw_closetag: severe error, closing tag that was never opened')"
RETURN
END IF
IF ( .NOT.PRESENT(tag) ) THEN