From 00cde82ddc7bf169ddf0aa08bf1e503b5c5e4999 Mon Sep 17 00:00:00 2001 From: Daniel Wortmann Date: Wed, 22 May 2019 15:46:22 +0200 Subject: [PATCH] Update cdnval.F90 to fix bug in 0b29595a324225ef5a4144c012da8936a0067f42 --- cdn/cdnval.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cdn/cdnval.F90 b/cdn/cdnval.F90 index 5fcfd3ca..9df57a47 100644 --- a/cdn/cdnval.F90 +++ b/cdn/cdnval.F90 @@ -248,7 +248,7 @@ SUBROUTINE cdnval(eig_id, mpi,kpts,jspin,noco,input,banddos,cell,atoms,enpara,st CALL abcrot2(atoms,banddos,noccbd,eigVecCoeffs,ispin) ! rotate ab-coeffs IF (PRESENT(orbcomp)) CALL orb_comp(ispin,ikpt,noccbd,atoms,noccbd,usdus,eigVecCoeffs,orbcomp) END IF - + ENDIF CALL calcDenCoeffs(atoms,sphhar,sym,we,noccbd,eigVecCoeffs,ispin,denCoeffs) IF (noco%l_soc) CALL orbmom(atoms,noccbd,we,ispin,eigVecCoeffs,orb) -- GitLab