!--------------------------------------------------------------------------------! Copyright (c) 2016 Peter Grünberg Institut, Forschungszentrum Jülich, Germany! This file is part of FLEUR and available as free software under the conditions! of the MIT license as expressed in the LICENSE file in more detail.!--------------------------------------------------------------------------------MODULEm_mpi_bc_potCONTAINSSUBROUTINEmpi_bc_pot(mpi,stars,sphhar,atoms,input,vacuum,&iter,fr,fpw,fz,fzxy)USEm_typesIMPLICITNONEINCLUDE'mpif.h'TYPE(t_mpi),INTENT(IN)::mpiTYPE(t_input),INTENT(IN)::inputTYPE(t_vacuum),INTENT(IN)::vacuumTYPE(t_stars),INTENT(IN)::starsTYPE(t_sphhar),INTENT(IN)::sphharTYPE(t_atoms),INTENT(IN)::atomsINTEGER,INTENT(INOUT)::iterCOMPLEX,INTENT(INOUT)::fpw(stars%ng3,input%jspins)COMPLEX,INTENT(INOUT)::fzxy(vacuum%nmzxyd,stars%ng2-1,2,input%jspins)REAL,INTENT(INOUT)::fr(atoms%jmtd,0:sphhar%nlhd,atoms%ntype,input%jspins)REAL,INTENT(INOUT)::fz(vacuum%nmzd,2,input%jspins)INTEGER::n,ierr(3)CALLMPI_BCAST(iter,1,MPI_INTEGER,0,mpi%mpi_comm,ierr)n=stars%ng3*input%jspinsCALLMPI_BCAST(fpw,n,MPI_DOUBLE_COMPLEX,0,mpi%mpi_comm,ierr)n=vacuum%nmzxyd*(stars%ng2-1)*2*input%jspinsCALLMPI_BCAST(fzxy,n,MPI_DOUBLE_COMPLEX,0,mpi%mpi_comm,ierr)n=atoms%jmtd*(sphhar%nlhd+1)*atoms%ntype*input%jspinsCALLMPI_BCAST(fr,n,MPI_DOUBLE,0,mpi%mpi_comm,ierr)n=vacuum%nmzd*2*input%jspinsCALLMPI_BCAST(fz,n,MPI_DOUBLE,0,mpi%mpi_comm,ierr)ENDSUBROUTINEmpi_bc_potENDMODULEm_mpi_bc_pot