Commit 0d31f0ab authored by Matthias Redies's avatar Matthias Redies

more formating

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