comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-27 05:35:37 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

fix rank.ne.0 return code

Browse source
This commit is contained in:
edoapra 2023-03-13 18:21:57 -07:00
parent 2cf18e4e82
commit 0a4387ec35
No known key found for this signature in database
GPG key ID: E6E392F4E14FB937
1 changed files with 6 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/util/util_checkmpirun.c
View file

@ -131,14 +131,12 @@ void FATR util_checkmpirun_(Integer *ok_out){
}
}
if (rank == 0) {
if (incompatible) {
printf("%d MPI-related incompatibilities were detected!\n", incompatible);
*ok_out = (Integer) 0;
}else{
*ok_out = (Integer) 1;
}
if (incompatible) {
if (rank == 0) printf("%d MPI-related incompatibilities were detected!\n", incompatible);
*ok_out = (Integer) 0;
}else{
*ok_out = (Integer) 1;
}