Commit a974804c authored by Daniel Wortmann's avatar Daniel Wortmann

Fixed problem in film+spinspiral. Does run, perhaps not correct yet..

parent 926ac62a
...@@ -163,9 +163,9 @@ CONTAINS ...@@ -163,9 +163,9 @@ CONTAINS
!---> hamiltonian update !---> hamiltonian update
DO i = mpi%n_rank+1,lapw%nv(jspin2),mpi%n_size DO i = mpi%n_rank+1,lapw%nv(jspin2),mpi%n_size
i0=(i-1)/mpi%n_size+1 !local column index i0=(i-1)/mpi%n_size+1 !local column index
ik = map2(i,jspin1) ik = map2(i,jspin2)
DO j = 1,i DO j = 1,MIN(i,lapw%nv(jspin1))
jk = map2(j,jspin2) jk = map2(j,jspin1)
IF (jspin2>jspin1) THEN IF (jspin2>jspin1) THEN
hij = CONJG(CONJG(a(j,jspin2))* (tuuv(jk,ik)*a(i,jspin1) +tudv(jk,ik)*b(i,jspin1))& hij = CONJG(CONJG(a(j,jspin2))* (tuuv(jk,ik)*a(i,jspin1) +tudv(jk,ik)*b(i,jspin1))&
+ CONJG(b(j,jspin2))* (tddv(jk,ik)*b(i,jspin1) +tduv(jk,ik)*a(i,jspin1))) + CONJG(b(j,jspin2))* (tddv(jk,ik)*b(i,jspin1) +tduv(jk,ik)*a(i,jspin1)))
......
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