# | Line 524 | Line 524 | contains | |
---|---|---|
524 | pot = pot + u | |
525 | enddo | |
526 | ||
527 | < | #ifdef IS_MPI |
527 | > | #ifdef IS_MPI |
528 | !! communicate f(rho) and derivatives back into row and column arrays | |
529 | call gather(frho,frho_row,plan_atom_row, sc_err) | |
530 | if (sc_err /= 0) then |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |