LCOV - code coverage report
Current view: top level - mpi - mpi_bc_pot.F90 (source / functions) Hit Total Coverage
Test: combined.info Lines: 0 12 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_pot
       8             : CONTAINS
       9           0 :    SUBROUTINE mpi_bc_pot(mpi,stars,sphhar,atoms,input,vacuum,&
      10           0 :                          iter,fr,fpw,fz,fzxy)
      11             : 
      12             :    USE m_types
      13             :    IMPLICIT NONE
      14             :    INCLUDE 'mpif.h'
      15             : 
      16             :    TYPE(t_mpi),INTENT(IN)        :: mpi
      17             :    TYPE(t_input),INTENT(IN)      :: input
      18             :    TYPE(t_vacuum),INTENT(IN)     :: vacuum
      19             :    TYPE(t_stars),INTENT(IN)      :: stars
      20             :    TYPE(t_sphhar),INTENT(IN)     :: sphhar
      21             :    TYPE(t_atoms),INTENT(IN)      :: atoms
      22             : 
      23             :    INTEGER, INTENT (INOUT) :: iter
      24             : 
      25             :    COMPLEX, INTENT (INOUT) :: fpw(stars%ng3,input%jspins)
      26             :    COMPLEX, INTENT (INOUT) :: fzxy(vacuum%nmzxyd,stars%ng2-1,2,input%jspins)
      27             :    REAL,    INTENT (INOUT) :: fr(atoms%jmtd,0:sphhar%nlhd,atoms%ntype,input%jspins)
      28             :    REAL,    INTENT (INOUT) :: fz(vacuum%nmzd,2,input%jspins)
      29             : 
      30             :    INTEGER :: n, ierr(3)
      31             : 
      32           0 :    CALL MPI_BCAST(iter,1,MPI_INTEGER,0,mpi%mpi_comm,ierr)
      33             : 
      34           0 :     n = stars%ng3 * input%jspins
      35           0 :     CALL MPI_BCAST(fpw,n,MPI_DOUBLE_COMPLEX,0,mpi%mpi_comm,ierr)
      36           0 :     n = vacuum%nmzxyd * (stars%ng2-1) * 2 * input%jspins
      37           0 :     CALL MPI_BCAST(fzxy,n,MPI_DOUBLE_COMPLEX,0,mpi%mpi_comm,ierr)
      38           0 :     n = atoms%jmtd * (sphhar%nlhd+1) * atoms%ntype * input%jspins
      39           0 :     CALL MPI_BCAST(fr,n,MPI_DOUBLE,0,mpi%mpi_comm,ierr)
      40           0 :     n = vacuum%nmzd * 2 * input%jspins
      41           0 :     CALL MPI_BCAST(fz,n,MPI_DOUBLE,0,mpi%mpi_comm,ierr)
      42             : 
      43           0 :    END SUBROUTINE mpi_bc_pot
      44             : END MODULE m_mpi_bc_pot

Generated by: LCOV version 1.13