Commit f3324cf7 authored by Daniel Wortmann's avatar Daniel Wortmann

Small bugfix provided by P.Bonfa

parent 47d67054
......@@ -351,11 +351,11 @@ CONTAINS
LOGICAL, INTENT(IN), OPTIONAL::stdout
INTEGER :: irank = 0
CHARACTER(len=:), allocatable :: json_str
CHARACTER(len=30)::filename
#ifdef CPP_MPI
INCLUDE "mpif.h"
INTEGER::err,isize
LOGICAL:: l_mpi
CHARACTER(len=30)::filename
CALL mpi_initialized(l_mpi,err)
if (l_mpi) CALL MPI_COMM_RANK(MPI_COMM_WORLD, irank, err)
#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