Commit 3888d53a authored by Matthias Redies's avatar Matthias Redies

more formating

parent 9f14d233
......@@ -88,10 +88,7 @@ CONTAINS
ELSE
qis = 0.
CALL pwint_all(&
stars,atoms,sym,oneD,&
cell,&
x)
CALL pwint_all(stars,atoms,sym,oneD,cell,x)
DO j = 1,stars%ng3
qis = qis + den%pw(j,jspin)*x(j)*stars%nstr(j)
ENDDO
......
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