Commit 78f81b7c authored by Gregor Michalicek's avatar Gregor Michalicek

Minor bug fixes

parent e5456adc
......@@ -194,7 +194,7 @@ CONTAINS
TYPE (t_zMat) :: zMat
LOGICAL :: l_real
l_real=sym%invs.or.noco%l_soc
l_real=sym%invs.AND..NOT.noco%l_soc
! ..
! ..
llpd=(atoms%lmaxd*(atoms%lmaxd+3))/2
......
......@@ -565,7 +565,6 @@ CONTAINS
ELSE
#ifdef CPP_MPI
=======
CALL mingeselle(SUB_COMM,n_size,n_rank,lapw%nv, aahlp, .FALSE.,aa_rDummy,hamOvlp%a_c)
CALL mingeselle(SUB_COMM,n_size,n_rank,lapw%nv, bbhlp, .FALSE.,aa_rDummy,hamOvlp%b_c)
#endif
......
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