Commit b91c32dd authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix for MPI:Update usage_data.F90

parent 41e8b926
......@@ -56,7 +56,7 @@ CONTAINS
#ifdef CPP_MPI
INCLUDE 'mpif.h'
CALL MPI_IRANK(MPI_COMM_WORLD,i,ierr)
CALL MPI_COMM_RANK(MPI_COMM_WORLD,i,ierr)
IF (i.NE.0) RETURN
#endif
......
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