stardis

Perform coupled heat transfer calculations
git clone git://git.meso-star.fr/stardis.git
Log | Files | Refs | README | LICENSE

commit 0d8a1dd8a70f868417e1d51142c047caa8c9ad26
parent b49e82a82ff1038bfaff94d35f57cea0d7e32ef3
Author: Vincent Forest <vincent.forest@meso-star.com>
Date:   Tue, 23 Jan 2024 11:16:48 +0100

Fix lower-case problem

Editing errors led to part of the source code being written in lower
case, whereas constants, variables and other functions were written in
upper case. So far, no compilation errors have been reported, since the
compilation of this code was conditional on a macro definition that was
itself incorrectly written in lower case: the erroneous code was
therefore not compiled. This commit corrects these errors.

Diffstat:
Msrc/stardis-app.c | 8++++----
1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/stardis-app.c b/src/stardis-app.c @@ -894,16 +894,16 @@ void log_prt_fn (const char* msg, void* ctx) { -#ifdef stardis_enable_mpi +#ifdef STARDIS_ENABLE_MPI int initialized, rank = 0; #endif ASSERT(msg); (void)ctx; -#ifdef stardis_enable_mpi - chk(mpi_initialized(&initialized) == mpi_success); - if(initialized) chk(mpi_comm_rank(mpi_comm_world, &rank) == mpi_success); +#ifdef STARDIS_ENABLE_MPI + CHK(MPI_Initialized(&initialized) == MPI_SUCCESS); + if(initialized) CHK(MPI_Comm_rank(MPI_COMM_WORLD, &rank) == MPI_SUCCESS); /* only master prints */ if(rank != 0) return; #endif