mpi_bcast_cplx.f90

    SUBROUTINE MPI_BCAST_CPLX(SINGLE,CPLXVAR,ICOUNT,IROOT,IERR)

      USE DDPRECISION,ONLY : WP
      IMPLICIT NONE

!-----------------------------------------------------------------------

      INCLUDE 'mpif.h'

!-----------------------------------------------------------------------
! arguments
      LOGICAL :: SINGLE
      INTEGER :: ICOUNT,IERR,IROOT
      COMPLEX(WP) :: CPLXVAR(*)
!-----------------------------------------------------------------------
! Subroutine MPI_BCAST_REAL
! Purpose: to serve as a "jacket" for passing real variables to
!          MPI_BCAST so that MPI_BCAST will be called with only a single 
!          variable type in a given fortran routine.

! B.T. Draine, Princeton University Observatory, 2004.04.09
! history
! 04.04.09 (BTD) first written
! 08.01.17 (BTD) f90 version
! end history
! Copyright (C) 2004,2008 B.T.Draine and P.J. Flatau
! This code is covered by the GNU General Public License
!-----------------------------------------------------------------------

      IF(SINGLE)THEN
         CALL MPI_BCAST(CPLXVAR,ICOUNT,MPI_COMPLEX, &
                        IROOT,MPI_COMM_WORLD,IERR)
      ELSE
         CALL MPI_BCAST(CPLXVAR,ICOUNT,MPI_DOUBLE_COMPLEX, &
                        IROOT,MPI_COMM_WORLD,IERR)
      ENDIF
      RETURN
    END SUBROUTINE MPI_BCAST_CPLX