diff options
Diffstat (limited to 'Carpet/CarpetTest/src/carpettest_check_sizes.c')
-rw-r--r-- | Carpet/CarpetTest/src/carpettest_check_sizes.c | 181 |
1 files changed, 104 insertions, 77 deletions
diff --git a/Carpet/CarpetTest/src/carpettest_check_sizes.c b/Carpet/CarpetTest/src/carpettest_check_sizes.c index c4e17baf7..79ca08929 100644 --- a/Carpet/CarpetTest/src/carpettest_check_sizes.c +++ b/Carpet/CarpetTest/src/carpettest_check_sizes.c @@ -1,4 +1,4 @@ -/* $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetTest/src/carpettest_check_sizes.c,v 1.2 2001/07/09 09:00:27 schnetter Exp $ */ +/* $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetTest/src/carpettest_check_sizes.c,v 1.1 2001/07/04 12:29:54 schnetter Exp $ */ #include <assert.h> #include <stdio.h> @@ -10,98 +10,125 @@ void carpettest_check_sizes (CCTK_ARGUMENTS); -static void print_scalar (const char *name, int sc); -static void print_scalar_descr (const char *name, int sc, const char *descr); -static void print_array (const char *name, int dim, const int *arr); - -static const char *grouptype_string (int grouptype); -static const char *disttype_string (int disttype); - void carpettest_check_sizes (CCTK_ARGUMENTS) { DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS + char msg[1000]; int group; + int var; int dim; - cGroup data; - cGroupDynamicData dyndata; + CCTK_INT **sizes, **ghostsizes; + int d; + int gsh[3], lsh[3], lbnd[3], ubnd[3]; + const int *cip; + int size[3]; - dim = cctk_dim; - print_scalar ("cctk_dim", cctk_dim); - print_array ("cctk_gsh", dim, cctk_gsh); - print_array ("cctk_lsh", dim, cctk_lsh); - print_array ("cctk_lbnd", dim, cctk_lbnd); - print_array ("cctk_ubnd", dim, cctk_ubnd); - print_array ("cctk_bbox", 2*dim, cctk_bbox); - print_array ("cctk_nghostzones", dim, cctk_nghostzones); + sprintf (msg, "gsh: %d %d %d\n", cctk_gsh[0], cctk_gsh[1], cctk_gsh[2]); + printf (msg); + sprintf (msg, "lsh: %d %d %d\n", cctk_lsh[0], cctk_lsh[1], cctk_lsh[2]); + printf (msg); + sprintf (msg, "lbnd: %d %d %d\n", cctk_lbnd[0], cctk_lbnd[1], cctk_lbnd[2]); + printf (msg); + sprintf (msg, "ubnd: %d %d %d\n", cctk_ubnd[0], cctk_ubnd[1], cctk_ubnd[2]); + printf (msg); printf ("\n"); +#if 0 for (group=0; group<CCTK_NumGroups(); ++group) { - CCTK_GroupData (group, &data); - CCTK_GroupDynamicData (cctkGH, group, &dyndata); + var = CCTK_FirstVarIndexI(group); + sprintf (msg, "group: %d %s\n", group, CCTK_GroupNameFromVarI(var)); + printf (msg); + + dim = CCTK_GroupDimI(group); + sprintf (msg, "dim: %d\n", CCTK_GroupDimI(group)); + printf (msg); + + sizes = CCTK_GroupSizesI(group); + sprintf (msg, "sizes:"); + if (sizes) { + for (d=0; d<dim; ++d) { + sprintf (msg, "%s %d", msg, (*sizes)[d]); + } + } else { + sprintf (msg, "%s (no sizes)", msg); + } + sprintf (msg, "%s\n", msg); + printf (msg); - print_scalar_descr ("group", group, CCTK_GroupName(group)); + ghostsizes = CCTK_GroupGhostsizesI(group); + sprintf (msg, "ghostsizes:"); + if (ghostsizes) { + for (d=0; d<dim; ++d) { + sprintf (msg, "%s %d", msg, (*ghostsizes)[d]); + } + } else { + sprintf (msg, "%s (no ghostsizes)", msg); + } + sprintf (msg, "%s\n", msg); + printf (msg); + + CCTK_GroupgshGI (cctkGH, dim, gsh, group); + sprintf (msg, "gsh:"); + for (d=0; d<dim; ++d) { + sprintf (msg, "%s %d", msg, gsh[d]); + } + sprintf (msg, "%s\n", msg); + printf (msg); + + CCTK_GrouplshGI (cctkGH, dim, lsh, group); + sprintf (msg, "lsh:"); + for (d=0; d<dim; ++d) { + sprintf (msg, "%s %d", msg, lsh[d]); + } + sprintf (msg, "%s\n", msg); + printf (msg); + + CCTK_GrouplbndGI (cctkGH, dim, lbnd, group); + sprintf (msg, "lbnd:"); + for (d=0; d<dim; ++d) { + sprintf (msg, "%s %d", msg, lbnd[d]); + } + sprintf (msg, "%s\n", msg); + printf (msg); + + CCTK_GroupubndGI (cctkGH, dim, ubnd, group); + sprintf (msg, "ubnd:"); + for (d=0; d<dim; ++d) { + sprintf (msg, "%s %d", msg, ubnd[d]); + } + sprintf (msg, "%s\n", msg); + printf (msg); - dim = data.dim; - print_scalar ("dim", data.dim); - print_scalar_descr ("grouptype", data.grouptype, grouptype_string(data.grouptype)); - print_scalar_descr ("vartype", data.vartype, CCTK_VarTypeName(data.vartype)); - print_scalar_descr ("disttype", data.disttype, disttype_string(data.disttype)); - print_scalar ("stagtype", data.stagtype); - print_scalar ("numvars", data.numvars); - print_scalar ("numtimelevels", data.numtimelevels); - print_array ("gsh", dim, dyndata.gsh); - print_array ("lsh", dim, dyndata.lsh); - print_array ("lbnd", dim, dyndata.lbnd); - print_array ("ubnd", dim, dyndata.ubnd); - print_array ("bbox", 2*dim, dyndata.bbox); - print_array ("nghostzones", dim, dyndata.nghostzones); printf ("\n"); } +#endif -} - - - -static void print_scalar (const char *name, int sc) -{ - printf ("%-15s: %3d\n", name, sc); -} - -static void print_scalar_descr (const char *name, int sc, const char *descr) -{ - printf ("%-15s: %3d %s\n", name, sc, descr); -} - -static void print_array (const char *name, int dim, const int *arr) -{ - int d; - printf ("%-15s:", name); - for (d=0; d<dim; ++d) { - printf (" %3d", arr[d]); - } - printf ("\n"); -} - - - -static const char *grouptype_string (int grouptype) -{ - switch (grouptype) { - case CCTK_SCALAR: return "CCTK_SCALAR"; - case CCTK_GF: return "CCTK_GF"; - case CCTK_ARRAY: return "CCTK_ARRAY"; - } - return "[illegal group type]"; -} - -static const char *disttype_string (int disttype) -{ - switch (disttype) { - case CCTK_DISTRIB_CONSTANT: return "CCTK_DISTRIB_CONSTANT"; - case CCTK_DISTRIB_DEFAULT: return "CCTK_DISTRIB_DEFAULT"; + for (group=0; group<CCTK_NumGroups(); ++group) { + var = CCTK_FirstVarIndexI(group); + sprintf (msg, "group: %d %s\n", group, CCTK_GroupNameFromVarI(var)); + printf (msg); + + dim = CCTK_GroupDimI(group); + sprintf (msg, "dim: %d\n", CCTK_GroupDimI(group)); + printf (msg); + + for (d=0; d<dim; ++d) { + cip = CCTK_ArrayGroupSizeI(cctkGH, d, group); + assert (cip); + size[d] = *cip; + } + + sprintf (msg, "size:"); + for (d=0; d<dim; ++d) { + sprintf (msg, "%s %d", msg, size[d]); + } + sprintf (msg, "%s\n", msg); + printf (msg); + + printf ("\n"); } - return "[illegal distribution type]"; + } |