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

Minor bug fixes

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