scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

[QEHeat] forgot a broadcast, fixed previous commit

This commit is contained in:
Riccardo Bertossa 2021-06-22 18:10:56 +02:00
parent 6e58120fee
commit dc736ef385
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
QEHeat/src/all_currents.f90
View File

@ -203,7 +203,8 @@ program all_currents
! PW input
call read_namelists('PW', 5)
if (n_workers>0 ) then
outdir = trim(outdir) // '.'//trim(worker_id_char)
CALL mp_bcast(worker_id_char, ionode_id, world_comm)
outdir = trim(outdir) //trim(worker_id_char)
endif
call read_cards('PW', 5)
@ -642,6 +643,7 @@ contains
CALL mp_bcast(hpsi_test, ionode_id, world_comm)
CALL mp_bcast(n_workers, ionode_id, world_comm)
CALL mp_bcast(worker_id, ionode_id, world_comm)
CALL mp_bcast(vel_input_units, ionode_id, world_comm)
end subroutine