Commit 4cc344f3 authored by smogunov's avatar smogunov

Bug fix: magtot_nc was not properly collected in parallel case (A. Smogunov).


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/[email protected] c92efa57-630b-4861-b058-cf58834340f0
parent d2311d70
......@@ -813,10 +813,10 @@ SUBROUTINE electrons()
END DO
!
#ifdef __BANDS
CALL mp_sum( magtot, intra_bgrp_comm )
CALL mp_sum( magtot_nc, intra_bgrp_comm )
CALL mp_sum( absmag, intra_bgrp_comm )
#else
CALL mp_sum( magtot, intra_pool_comm )
CALL mp_sum( magtot_nc, intra_pool_comm )
CALL mp_sum( absmag, intra_pool_comm )
#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