Commit 9b0f641c authored by Matthias Redies's avatar Matthias Redies

small bug

parent c61cd491
......@@ -295,7 +295,7 @@ CONTAINS
logical :: l_real, l_soc
TYPE(t_data_MPI), POINTER, ASYNCHRONOUS :: d
INTEGER:: err
#ifdef(CPP_MPI)
#ifdef CPP_MPI
if(eig66_data_mode(id) == MPI_mode) then
CALL priv_find_data(id, d)
......
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