Commit 71b06510 authored by Daniel Wortmann's avatar Daniel Wortmann

Update mpi_bc_tool.F90

parent 9acd7c33
......@@ -16,9 +16,9 @@ MODULE m_mpi_bc_tool
MODULE PROCEDURE mpi_bc_int,mpi_bc_int1,mpi_bc_int2,mpi_bc_int3,mpi_bc_int4,mpi_bc_int5
MODULE PROCEDURE mpi_bc_real,mpi_bc_real1,mpi_bc_real2,mpi_bc_real3,mpi_bc_real4,mpi_bc_real5
MODULE PROCEDURE mpi_bc_complex,mpi_bc_complex1,mpi_bc_complex2,mpi_bc_complex3,mpi_bc_complex4,mpi_bc_complex5
END INTERFACE mpi_bc=0
END INTERFACE mpi_bc
#else
INTEGER,PARAMETER :: mpi_bc !dummy in serial case
INTEGER,PARAMETER :: mpi_bc=0 !dummy in serial case
#endif
PUBLIC :: mpi_bc
#ifdef CPP_MPI
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment