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

Small bugfix. 

Courtesy of Jae-Mo Lihm ( Seoul National Univ. )
This commit is contained in:
Samuel Ponce 2019-08-13 14:27:08 +01:00
parent fb2d814c1f
commit 0966139f17
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
EPW/src/pw2wan90epw.f90
View File

@ -1219,7 +1219,7 @@
ENDDO
!
ALLOCATE ( ylm(nbt,lmaxq*lmaxq), qgm(nbt) )
ALLOCATE ( qb(nkb, nkb, ntyp, nbt) )
ALLOCATE ( qb(nhm, nhm, ntyp, nbt) )
ALLOCATE ( qq_so(nhm, nhm, 4, ntyp) )
!
CALL ylmr2(lmaxq*lmaxq, nbt, dxk, qg, ylm)