diff options
Diffstat (limited to 'src/Startup.c')
-rw-r--r-- | src/Startup.c | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/src/Startup.c b/src/Startup.c index 298d0ee..886b4fa 100644 --- a/src/Startup.c +++ b/src/Startup.c @@ -95,6 +95,7 @@ SymBase_Setup (tFleshConfig * const config, struct SymBase *symdata; CCTK_INT symmetry_handle[100]; CCTK_INT symmetry_zone_width[100]; + CCTK_FPOINTER symmetry_interpolate[100]; int group; int face; int ierr; @@ -111,6 +112,7 @@ SymBase_Setup (tFleshConfig * const config, { symmetry_handle[face] = -1; symmetry_zone_width[face] = 0; + symmetry_interpolate[face] = NULL; } /* Create grid symmetry table */ @@ -139,6 +141,13 @@ SymBase_Setup (tFleshConfig * const config, { CCTK_WARN (0, "Internal Error: Failed to create symmetry_zone_width array"); } + ierr = Util_TableSetFPointerArray + (symdata->sym_table, + 2 * cctkGH->cctk_dim, symmetry_interpolate, "symmetry_interpolate"); + if (ierr) + { + CCTK_WARN (0, "Internal Error: Failed to create symmetry_fold_points array"); + } /* Create grid array symmetry tables */ symdata->array_sym_tables @@ -190,6 +199,14 @@ SymBase_Setup (tFleshConfig * const config, { CCTK_WARN (0, "Internal Error: Failed to create symmetry_zone_width array"); } + ierr = Util_TableSetFPointerArray + (symdata->array_sym_tables[group], + 2 * CCTK_GroupDimI (group), symmetry_interpolate, + "symmetry_interpolate"); + if (ierr) + { + CCTK_WARN (0, "Internal Error: Failed to create symmetry_fold_points array"); + } break; default: |