LCOV - code coverage report
Current view: top level - mpi - mpi_bc_coreDen.F90 (source / functions) Hit Total Coverage
Test: combined.info Lines: 0 9 0.0 %
Date: 2019-09-08 04:53:50 Functions: 0 1 0.0 %

          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             : CONTAINS
       9           0 :    SUBROUTINE mpi_bc_coreden(mpi,atoms,input,dimension,&
      10           0 :                              rhcs,tecs,qints)
      11             : 
      12             :    USE m_types
      13             :    IMPLICIT NONE
      14             :    INCLUDE 'mpif.h'
      15             : 
      16             :    TYPE(t_mpi),INTENT(IN)       :: mpi
      17             :    TYPE(t_atoms),INTENT(IN)     :: atoms
      18             :    TYPE(t_input),INTENT(IN)     :: input
      19             :    TYPE(t_dimension),INTENT(IN) :: DIMENSION
      20             : 
      21             :    REAL, INTENT(INOUT) :: rhcs(atoms%jmtd,atoms%ntype,input%jspins)
      22             :    REAL, INTENT(INOUT) :: tecs(atoms%ntype,input%jspins)
      23             :    REAL, INTENT(INOUT) :: qints(atoms%ntype,input%jspins)
      24             : 
      25             :    INTEGER :: n, ierr(3)
      26             : 
      27           0 :     n = atoms%jmtd * atoms%ntype * input%jspins
      28           0 :     CALL MPI_BCAST(rhcs,n,MPI_DOUBLE,0,mpi%mpi_comm,ierr)
      29           0 :     n = atoms%ntype * input%jspins
      30           0 :     CALL MPI_BCAST(tecs,n,MPI_DOUBLE,0,mpi%mpi_comm,ierr)
      31           0 :     n = atoms%ntype * input%jspins
      32           0 :     CALL MPI_BCAST(qints,n,MPI_DOUBLE,0,mpi%mpi_comm,ierr)
      33             : 
      34           0 :    END SUBROUTINE mpi_bc_coreden
      35             : END MODULE m_mpi_bc_coreden

Generated by: LCOV version 1.13