/*@@
   @file      Startup.c
   @date      Mon Mar 15 15:48:42 1999
   @author    Gerd Lanfermann
   @desc 
     Startup file to register the GHextension and coordinates
   @enddesc 
 @@*/

#include "cctk.h"

void *Symmetry_AllocGHex(tFleshConfig *, int, cGH *);
int   Symmetry_InitGHex(cGH *GH);


 /*@@
   @routine    SymmetryStartup
   @date       Mon Mar 15 15:49:16 1999
   @author     Gerd Lanfermann
   @desc 
     Routine registers the Setup and Initialation routines for the
     GHExtension, which holds the symmetry BCs.  We name the 
     GHextension "Symmetry" and get an  integer ("handle") 
     identifying the GHex.
   @enddesc 
   @calls     
   @calledby   
   @history 
 
   @endhistory 

@@*/

/* Store the handle in a global variable for the moment. */
int Symmetry_handle;


int SymmetryStartup(void) 
{
  Symmetry_handle = CCTK_RegisterGHExtension("Symmetry");
  
  /* Register the allocation and init routine */
  CCTK_RegisterGHExtensionSetupGH(Symmetry_handle,Symmetry_AllocGHex);
  CCTK_RegisterGHExtensionInitGH(Symmetry_handle,Symmetry_InitGHex);

  return 0;
}


 /*@@
   @routine    RegisterCartGrid3DCoords
   @date       
   @author     Gabrielle Allen
   @desc 
     Routine registers the coordinates provided by CartGrid3D
   @enddesc 
   @calls     
   @calledby   
   @history 
 
   @endhistory 

@@*/

int RegisterCartGrid3DCoords(void)
{

  int handle;
  int nerrors=0;

  handle=CCTK_CoordRegister(1,"grid::x","x");
  if (handle<0)
  {
    CCTK_WARN(1,"Problem with registering coordinate x");
    nerrors--;
  }
  handle=CCTK_CoordRegister(2,"grid::y","y");
  if (handle<0)
  {
    CCTK_WARN(1,"Problem with registering coordinate y");
    nerrors--;
  }
  handle=CCTK_CoordRegister(3,"grid::z","z");
  if (handle<0)
  {
    CCTK_WARN(1,"Problem with registering coordinate z");
    nerrors--;
  }
  handle=CCTK_CoordRegister(0,"grid::r","r");
  if (handle<0)
  {
    CCTK_WARN(1,"Problem with registering coordinate r");
    nerrors--;
  }

  return nerrors;
}