Commit 08d0d72d authored by Matthias Redies's avatar Matthias Redies

make evaluation order clearer

parent 6c40e147
...@@ -128,7 +128,7 @@ SUBROUTINE cdncore(mpi,dimension,oneD,input,vacuum,noco,sym,& ...@@ -128,7 +128,7 @@ SUBROUTINE cdncore(mpi,dimension,oneD,input,vacuum,noco,sym,&
outDen%pw,outDen%vacxy,outDen%mt,outDen%vacz) outDen%pw,outDen%vacxy,outDen%mt,outDen%vacz)
ELSE IF (mpi%irank.EQ.0) THEN ELSE IF (mpi%irank.EQ.0) THEN
DO iType = 1,atoms%ntype DO iType = 1,atoms%ntype
outDen%pw(1,jspin) = outDen%pw(1,jspin) + qint(iType,jspin)/input%jspins/cell%volint outDen%pw(1,jspin) = outDen%pw(1,jspin) + qint(iType,jspin) / (input%jspins * cell%volint)
END DO END DO
END IF END IF
END IF END IF
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment