Commit a9b36cf9 authored by Matthias Redies's avatar Matthias Redies

fix: ifdefs for mpi

parent fc30aeb3
......@@ -49,7 +49,9 @@ MODULE m_types_mat
PUBLIC t_mat
CONTAINS
subroutine t_mat_bcast(mat, root, comm)
#ifdef CPP_MPI
use mpi
#endif
implicit none
CLASS(t_mat), INTENT(INOUT) :: mat
integer, intent(in) :: root, comm
......
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