diff options
Diffstat (limited to 'src/SymmetryWrappers.c')
-rw-r--r-- | src/SymmetryWrappers.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/SymmetryWrappers.c b/src/SymmetryWrappers.c index af7081d..1fe371a 100644 --- a/src/SymmetryWrappers.c +++ b/src/SymmetryWrappers.c @@ -83,13 +83,14 @@ int CartSymGI(cGH *GH, int gi) if (first_vi<0) { CCTK_VWarn(1,__LINE__,__FILE__,CCTK_THORNSTRING, - "Cannot find group %d (%s) in CartSymGI",gi,CCTK_GroupName(gi)); + "CartSymGI: Cannot find group %d (%s)",gi,CCTK_GroupName(gi)); return(-1); } numvars = CCTK_NumVarsInGroupI(gi); gdim = CCTK_GroupDimI(gi); + sGHex = (SymmetryGHex*)GH->extensions[CCTK_GHExtensionHandle("Symmetry")]; doSym = (int *)malloc((2*gdim)*sizeof(int)); dstag = (int *)malloc(gdim*sizeof(int)); @@ -226,7 +227,7 @@ int CartSymGN(cGH *GH, const char *gn) else { CCTK_VWarn(1,__LINE__,__FILE__,CCTK_THORNSTRING, - "Cannot find group %s in CartSymGN",gn); + "CartSymGN: Cannot find group %s",gn); } return retval; } @@ -235,6 +236,7 @@ void CCTK_FCALL CCTK_FNAME(CartSymGN) (int *ierr, cGH *GH, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(gn) + printf("Inside\n"); *ierr = CartSymGN(GH,gn); free(gn); return; |