diff --git a/cdn/cdnval.F90 b/cdn/cdnval.F90 index 5fcfd3ca204238a79fcbe90b0fdbd4c2dfbcf75b..9df57a47ed096c8a09344abb69b0c1499aa85dc7 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)