Split long code line

This commit is contained in:
Matthias Krack 2025-12-26 11:04:48 +01:00
parent 3ecab328bf
commit 803cd0e069

View file

@ -1083,7 +1083,8 @@ CONTAINS
CALL mpi_init_thread(MPI_THREAD_MULTIPLE, provided_tsl, ierr)
IF (ierr /= 0) CALL mp_stop(ierr, "mpi_init_thread @ mp_world_init")
IF (provided_tsl < MPI_THREAD_MULTIPLE) THEN
CALL mp_stop(0, "MPI library does not support the requested level of threading (MPI_THREAD_MULTIPLE), required by DLA-Future. Build CP2K without DLA-Future.")
CALL mp_stop(0, "MPI library does not support the requested level of threading (MPI_THREAD_MULTIPLE), "// &
"required by DLA-Future. Build CP2K without DLA-Future.")
END IF
#else
CALL mpi_init_thread(MPI_THREAD_SERIALIZED, provided_tsl, ierr)