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

fix a bug in noncollinear case 

anda remove 2 useless initializations
This commit is contained in:
Oscar Baseggio 2021-01-18 11:46:50 +01:00
parent b9c4ed6df1
commit 78e82d1cb0
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
TDDFPT/src/lr_alloc_init.f90
View File

@ -236,7 +236,6 @@ CONTAINS
IF (nkb > 0) THEN
!
IF (.not. allocated(becp%r)) CALL allocate_bec_type(nkb,nbnd,becp)
becp%r(:,:) = 0.0d0
!
ALLOCATE(becp_1(nkb,nbnd))
becp_1(:,:) = 0.0d0
@ -257,7 +256,6 @@ CONTAINS
IF (nkb > 0) THEN
!
IF(.not. allocated(becp%k)) CALL allocate_bec_type(nkb,nbnd,becp)
becp%k(:,:) = (0.0d0,0.0d0)
!
IF (.NOT.eels) THEN
ALLOCATE(becp1_c(nkb,nbnd,nks))