From 4d40c697dc8a854598dddfa92fd3d45ff7236f6d Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@d576a68a-b34a-40ae-82fc-004fa1a9d16f>
Date: Sat, 23 Jan 2010 20:24:08 +0000
Subject: Remove duplicate routines (error in last commit)

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMBase/trunk@49 d576a68a-b34a-40ae-82fc-004fa1a9d16f
---
 src/Initialisation.c | 92 ----------------------------------------------------
 1 file changed, 92 deletions(-)

diff --git a/src/Initialisation.c b/src/Initialisation.c
index 10fae5e..ff27584 100644
--- a/src/Initialisation.c
+++ b/src/Initialisation.c
@@ -346,98 +346,6 @@ void ADMBase_DtShiftZero(CCTK_ARGUMENTS)
 
 }
 
-/*@@
-  @routine    ADMBase_DtlapseZero
-  @date       Sep 06 2006
-  @author     Erik Schnetter
-  @desc 
-  Scheduled routine to initialise dtlapse to zero.
-  @enddesc 
-  @calls     
-  @calledby   
-  @history 
-  
-  @endhistory 
-  
- @@*/
-void ADMBase_DtlapseZero(CCTK_ARGUMENTS)
-{
-  int i;
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-
-  for(i = 0; i < cctk_lsh[0]*cctk_lsh[1]*cctk_lsh[2]; i++)
-  {
-    dtalp[i] = 0.0;
-  }
-  
-  if (CCTK_ActiveTimeLevels(cctkGH, "ADMBase::dtlapse") > 1)
-  {
-    for(i = 0; i < cctk_lsh[0]*cctk_lsh[1]*cctk_lsh[2]; i++)
-    {
-      dtalp_p[i] = 0.0;
-    }
-  }
-  
-  if (CCTK_ActiveTimeLevels(cctkGH, "ADMBase::dtlapse") > 2)
-  {
-    for(i = 0; i < cctk_lsh[0]*cctk_lsh[1]*cctk_lsh[2]; i++)
-    {
-      dtalp_p_p[i] = 0.0;
-    }
-  }
-
-}
-
-/*@@
-  @routine    ADMBase_DtshiftZero
-  @date       Sep 06 2006
-  @author     Erik Schnetter
-  @desc 
-  Scheduled routine to initialise dtshift to zero.
-  @enddesc 
-  @calls     
-  @calledby   
-  @history 
-  
-  @endhistory 
-  
- @@*/
-void ADMBase_DtshiftZero(CCTK_ARGUMENTS)
-{
-  int i;
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-
-  for(i = 0; i < cctk_lsh[0]*cctk_lsh[1]*cctk_lsh[2]; i++)
-  {
-    dtbetax[i] = 0.0;
-    dtbetay[i] = 0.0;
-    dtbetaz[i] = 0.0;
-  }
-  
-  if (CCTK_ActiveTimeLevels(cctkGH, "ADMBase::dtshift") > 1)
-  {
-    for(i = 0; i < cctk_lsh[0]*cctk_lsh[1]*cctk_lsh[2]; i++)
-    {
-      dtbetax_p[i] = 0.0;
-      dtbetay_p[i] = 0.0;
-      dtbetaz_p[i] = 0.0;
-    }
-  }
-  
-  if (CCTK_ActiveTimeLevels(cctkGH, "ADMBase::dtshift") > 2)
-  {
-    for(i = 0; i < cctk_lsh[0]*cctk_lsh[1]*cctk_lsh[2]; i++)
-    {
-      dtbetax_p_p[i] = 0.0;
-      dtbetay_p_p[i] = 0.0;
-      dtbetaz_p_p[i] = 0.0;
-    }
-  }
-
-}
-
 /*@@
   @routine    ADMBase_SetShiftStateOn
   @date       Thu Apr 25 23:12:18 2002
-- 
cgit v1.2.3