diff options
author | eschnett <> | 2001-03-01 11:40:00 +0000 |
---|---|---|
committer | eschnett <> | 2001-03-01 11:40:00 +0000 |
commit | 310f0ea48d18866b773136aed11200b6eda6378b (patch) | |
tree | 445d3e34ce8b89812994b6614f7bc9f4acbc7fe2 /Carpet/CarpetTest/src |
Initial revision
darcs-hash:20010301114010-f6438-12fb8a9ffcc80e86c0a97e37b5b0dae0dbc59b79.gz
Diffstat (limited to 'Carpet/CarpetTest/src')
-rw-r--r-- | Carpet/CarpetTest/src/carpettest_check_arguments.F77 | 44 | ||||
-rw-r--r-- | Carpet/CarpetTest/src/carpettest_check_sizes.c | 107 | ||||
-rw-r--r-- | Carpet/CarpetTest/src/make.code.defn | 9 |
3 files changed, 160 insertions, 0 deletions
diff --git a/Carpet/CarpetTest/src/carpettest_check_arguments.F77 b/Carpet/CarpetTest/src/carpettest_check_arguments.F77 new file mode 100644 index 000000000..297e38977 --- /dev/null +++ b/Carpet/CarpetTest/src/carpettest_check_arguments.F77 @@ -0,0 +1,44 @@ +c -*-Fortran-*- +c $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetTest/src/carpettest_check_arguments.F77,v 1.5 2004/01/25 14:57:31 schnetter Exp $ + +#include "cctk.h" +#include "cctk_Arguments.h" +#include "cctk_Functions.h" +#include "cctk_Parameters.h" + + subroutine carpettest_check_arguments (CCTK_ARGUMENTS) + implicit none + DECLARE_CCTK_ARGUMENTS + DECLARE_CCTK_FUNCTIONS + DECLARE_CCTK_PARAMETERS + integer i,j,k + print *, "Xgfg ", Xgfg0, Xgfg1, Xgfg2 + print *, "Xarrg3 ", Xarrg30, Xarrg31, Xarrg32 + print *, "Xarrg2 ", Xarrg20, Xarrg21 + print *, "Xarrg1 ", Xarrg10 + print *, "Xscg" + print * + do k=1,Xgfg2 + do j=1,Xgfg1 + do i=1,Xgfg0 + gf(i,j,k) = i*10000 + j*100 + k + end do + end do + end do + do k=1,Xarrg32 + do j=1,Xarrg31 + do i=1,Xarrg30 + arr3(i,j,k) = i*10000 + j*100 + k + end do + end do + end do + do j=1,Xarrg21 + do i=1,Xarrg20 + arr2(i,j) = i*100 + j + end do + end do + do i=1,Xarrg10 + arr1(i) = i + end do + sc = 42 + end diff --git a/Carpet/CarpetTest/src/carpettest_check_sizes.c b/Carpet/CarpetTest/src/carpettest_check_sizes.c new file mode 100644 index 000000000..c4e17baf7 --- /dev/null +++ b/Carpet/CarpetTest/src/carpettest_check_sizes.c @@ -0,0 +1,107 @@ +/* $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetTest/src/carpettest_check_sizes.c,v 1.2 2001/07/09 09:00:27 schnetter Exp $ */ + +#include <assert.h> +#include <stdio.h> +#include <stdlib.h> + +#include "cctk.h" +#include "cctk_Arguments.h" +#include "cctk_Parameters.h" + +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 + int group; + int dim; + cGroup data; + cGroupDynamicData dyndata; + + 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); + printf ("\n"); + + for (group=0; group<CCTK_NumGroups(); ++group) { + CCTK_GroupData (group, &data); + CCTK_GroupDynamicData (cctkGH, group, &dyndata); + + print_scalar_descr ("group", group, CCTK_GroupName(group)); + + 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"); + } + +} + + + +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"; + } + return "[illegal distribution type]"; +} diff --git a/Carpet/CarpetTest/src/make.code.defn b/Carpet/CarpetTest/src/make.code.defn new file mode 100644 index 000000000..cb469f0b4 --- /dev/null +++ b/Carpet/CarpetTest/src/make.code.defn @@ -0,0 +1,9 @@ +# Main make.code.defn file for thorn CarpetTest +# $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetTest/src/make.code.defn,v 1.1 2001/07/04 12:29:55 schnetter Exp $ + +# Source files in this directory +SRCS = carpettest_check_sizes.c carpettest_check_arguments.F77 + +# Subdirectories containing source files +SUBDIRS = + |