Commit d39abe34 authored by Matthias Redies's avatar Matthias Redies

fix compilation issue

parent 670da09b
......@@ -18,7 +18,7 @@ MODULE m_types_mpi
!Communicator for PE on same node
INTEGER :: mpi_comm_same_node
procedure :: root => mpi_root()
procedure :: root => mpi_root
END TYPE t_mpi
function mpi_root(mpi) result(is_root)
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