From f6ac0288ad8d7643d0476e4af85f25eb8f278f56 Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Sun, 15 May 2011 21:49:27 -0400 Subject: LoopControl: Improve error message for illegal loop shapes --- Carpet/LoopControl/src/loopcontrol.c | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/Carpet/LoopControl/src/loopcontrol.c b/Carpet/LoopControl/src/loopcontrol.c index bb7a10725..829339aaf 100644 --- a/Carpet/LoopControl/src/loopcontrol.c +++ b/Carpet/LoopControl/src/loopcontrol.c @@ -682,6 +682,21 @@ lc_control_init (lc_control_t * restrict const lc, lc->time_setup_begin = omp_get_wtime(); /* Check arguments */ + if (! (imin >= 0 && imax <= ilsh && ilsh >= 0) || + ! (jmin >= 0 && jmax <= jlsh && jlsh >= 0) || + ! (kmin >= 0 && kmax <= klsh && klsh >= 0)) + { + CCTK_VWarn (CCTK_WARN_ABORT, __LINE__, __FILE__, CCTK_THORNSTRING, + "Illegal loop control arguments:\n" + "name=\"%s\"\n" + "imin=%d imax=%d ilsh=%d\n" + "jmin=%d jmax=%d jlsh=%d\n" + "kmin=%d kmax=%d klsh=%d\n", + lm->name, + imin, imax, ilsh, + jmin, jmax, jlsh, + kmin, kmax, klsh); + } assert (imin >= 0 && imax <= ilsh && ilsh >= 0); assert (jmin >= 0 && jmax <= jlsh && jlsh >= 0); assert (kmin >= 0 && kmax <= klsh && klsh >= 0); -- cgit v1.2.3