Commit f5d8e499 authored by Daniel Wortmann's avatar Daniel Wortmann

Change in vacuum setup. Might help with #288

parent 8202ed19
...@@ -53,7 +53,7 @@ CONTAINS ...@@ -53,7 +53,7 @@ CONTAINS
REAL u(vacuum%nmzd,size(duz,1),input%jspins),ud(vacuum%nmzd,size(duz,1),input%jspins) REAL u(vacuum%nmzd,size(duz,1),input%jspins),ud(vacuum%nmzd,size(duz,1),input%jspins)
REAL v(3),x(vacuum%nmzd), qssbti(2,2) REAL v(3),x(vacuum%nmzd), qssbti(2,2)
! .. ! ..
fac=MERGE(1.0,-1.0,jspin1>=jspin2) fac=MERGE(1.0,-1.0,jspin1<=jspin2)
ipot=MERGE(jspin1,3,jspin1==jspin2) ipot=MERGE(jspin1,3,jspin1==jspin2)
tuuv=0.0;tudv=0.0;tddv=0.0;tduv=0.0 tuuv=0.0;tudv=0.0;tddv=0.0;tduv=0.0
......
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