comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-28 06:05:29 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix for tests failing with OpenMPI

Browse source 
By contrast to MPICH, OpenMPI returns no valid value for the MPI_TAG_UB attribute.
As a workaround the minimum value for the upper bound of 32767 guaranteed by the MPI standard is used.
This commit is contained in:
Matthias Krack 2026-01-05 12:31:59 +01:00
parent d26d4aaf2b
commit 6ac42b5082
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/mpiwrap/message_passing.F
View file

@ -1007,8 +1007,13 @@ CONTAINS
CALL MPI_COMM_GET_ATTR(comm%handle, MPI_TAG_UB, attrval, flag, ierr)
IF (ierr /= 0) CALL mp_stop(ierr, "mpi_comm_get_attr @ mp_comm_get_tag_ub")
IF (.NOT. flag) CPABORT("Upper bound of tags not available!")
tag_ub = INT(attrval, KIND=KIND(tag_ub))
IF (.NOT. flag) THEN
CALL cp_warn(__LOCATION__, "Upper bound of tags not available! "// &
"Only the guaranteed minimum of 32767 is used.")
tag_ub = 32767
ELSE
tag_ub = INT(attrval, KIND=KIND(tag_ub))
END IF
#else
MARK_USED(comm)
tag_ub = HUGE(1)