fix parallel processing bug with shell mkdir command
This commit is contained in:
@ -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) {
|
||||||
|
|||||||
Reference in New Issue
Block a user