fix parallel processing bug with shell mkdir command

This commit is contained in:
Axel Kohlmeyer
2022-04-24 23:23:01 -04:00
parent 45de998aa9
commit 9c46acfd62

View File

@ -1195,11 +1195,9 @@ void Input::shell()
if (me == 0) { if (me == 0) {
for (int i = 1; i < narg; i++) { for (int i = 1; i < narg; i++) {
rv = (platform::mkdir(arg[i]) < 0) ? errno : 0; rv = (platform::mkdir(arg[i]) < 0) ? errno : 0;
MPI_Reduce(&rv,&err,1,MPI_INT,MPI_MAX,0,world); if (rv != 0)
errno = err; error->warning(FLERR, "Shell command 'mkdir {}' failed with error '{}'", arg[i],
if (err != 0) utils::getsyserror());
error->warning(FLERR, "Shell command 'mkdir {}' failed with error '{}'",
arg[i],utils::getsyserror());
} }
} }
} else if (strcmp(arg[0],"mv") == 0) { } else if (strcmp(arg[0],"mv") == 0) {