Commit f659e4a6 authored by Henning Janssen's avatar Henning Janssen

Small fixes

parent cdf11efd
......@@ -20,7 +20,7 @@ MODULE m_types_mixvector
TYPE(t_sphhar),POINTER :: sphhar
TYPE(t_atoms),POINTER :: atoms =>null()
INTEGER :: jspins,nvac
LOGICAL :: l_noco,invs,invs2,l_mtnocopot,l_mperp
LOGICAL :: l_noco,invs,invs2,l_mtnocopot,l_mperp,l_ldau
INTEGER :: pw_length !The shape of the local arrays
INTEGER :: pw_start(3)=0,pw_stop(3) !First and last index for spin
INTEGER :: mt_length,mt_length_g
......@@ -242,7 +242,7 @@ CONTAINS
END IF
END IF
ENDDO
call den%collect(mix_mpi_comm,misc_here)
call den%collect(mix_mpi_comm,l_ldau)
END SUBROUTINE mixvector_to_density
......@@ -476,6 +476,7 @@ CONTAINS
stars=>stars_i;cell=>cell_i;sphhar=>sphhar_i;atoms=>atoms_i
vac_here=input%film
l_ldau=l_densitymatrix
misc_here=l_densitymatrix
CALL init_storage_mpi(mpi_comm)
......
......@@ -99,7 +99,7 @@ CONTAINS
DO k = -3,3
sum1 = sum1 + ABS(n_mmp_out(k,j,i_u,1) - n_mmp_in(k,j,i_u,1))
sum2 = sum2 + ABS(n_mmp_out(k,j,i_u,2) - n_mmp_in(k,j,i_u,2))
IF(noco%l_mperp) sum3 = sum2 + ABS(n_mmp_out(k,j,i_u,3) - n_mmp_in(k,j,i_u,3))
IF(noco%l_mperp) sum3 = sum3 + ABS(n_mmp_out(k,j,i_u,3) - n_mmp_in(k,j,i_u,3))
n_mmp(k,j,i_u,1) = gam * n_mmp_out(k,j,i_u,1) + &
(1.0-gam) * n_mmp_in (k,j,i_u,1) + &
......
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