Skip to content

fleur
fleur
Commit fc509587 authored by Gregor Michalicek's avatar Gregor Michalicek
Browse files
Options

Add missing broadcasts for atoms%lda_u(:)%phi and atoms%lda_u(:)%theta in mpi_bc_all

parent cb86a4e3
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 0 deletions
mpi/mpi_bc_all.F90
View file @ fc509587
......@@ -224,6 +224,8 @@ CONTAINS
CALL MPI_BCAST(atoms%lda_u(:)%j,atoms%n_u,MPI_DOUBLE_PRECISION,0,mpi%mpi_comm,ierr)
CALL MPI_BCAST(atoms%lda_u(:)%l_amf,atoms%n_u,MPI_LOGICAL,0,mpi%mpi_comm,ierr)
CALL MPI_BCAST(atoms%lda_u(:)%atomType,atoms%n_u,MPI_INTEGER,0,mpi%mpi_comm,ierr)
CALL MPI_BCAST(atoms%lda_u(:)%phi,atoms%n_u,MPI_DOUBLE_PRECISION,0,mpi%mpi_comm,ierr)
CALL MPI_BCAST(atoms%lda_u(:)%theta,atoms%n_u,MPI_DOUBLE_PRECISION,0,mpi%mpi_comm,ierr)
CALL MPI_BCAST(atoms%lapw_l,atoms%ntype,MPI_INTEGER,0,mpi%mpi_comm,ierr)
n = 7*7*3*sym%nop
......
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