Line data    Source code

       1             : !--------------------------------------------------------------------------------
       2             : ! Copyright (c) 2016 Peter Grünberg Institut, Forschungszentrum Jülich, Germany
       3             : ! This file is part of FLEUR and available as free software under the conditions
       4             : ! of the MIT license as expressed in the LICENSE file in more detail.
       5             : !--------------------------------------------------------------------------------
       6             : 
       7             : MODULE m_mpi_bc_coreden
       8             : #ifdef CPP_MPI
       9             :    use mpi
      10             : #endif
      11             : CONTAINS
      12           0 :    SUBROUTINE mpi_bc_coreden(fmpi,atoms,input,&
      13           0 :                              rhcs,tecs,qints)
      14             : 
      15             :    USE m_types
      16             :    IMPLICIT NONE
      17             : 
      18             :    TYPE(t_mpi),INTENT(IN)       :: fmpi
      19             :    TYPE(t_atoms),INTENT(IN)     :: atoms
      20             :    TYPE(t_input),INTENT(IN)     :: input
      21             :    
      22             : 
      23             :    REAL, INTENT(INOUT) :: rhcs(atoms%jmtd,atoms%ntype,input%jspins)
      24             :    REAL, INTENT(INOUT) :: tecs(atoms%ntype,input%jspins)
      25             :    REAL, INTENT(INOUT) :: qints(atoms%ntype,input%jspins)
      26             : #ifdef CPP_MPI
      27             :    INTEGER :: n, ierr
      28             : 
      29           0 :     n = atoms%jmtd * atoms%ntype * input%jspins
      30           0 :     CALL MPI_BCAST(rhcs,n,MPI_DOUBLE,0,fmpi%mpi_comm,ierr)
      31           0 :     n = atoms%ntype * input%jspins
      32           0 :     CALL MPI_BCAST(tecs,n,MPI_DOUBLE,0,fmpi%mpi_comm,ierr)
      33             :     n = atoms%ntype * input%jspins
      34           0 :     CALL MPI_BCAST(qints,n,MPI_DOUBLE,0,fmpi%mpi_comm,ierr)
      35             : #endif
      36           0 :    END SUBROUTINE mpi_bc_coreden
      37             : END MODULE m_mpi_bc_coreden