aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorallen <allen@6a38eb6e-646e-4a02-a296-d141613ad6c4>2000-09-21 15:52:14 +0000
committerallen <allen@6a38eb6e-646e-4a02-a296-d141613ad6c4>2000-09-21 15:52:14 +0000
commitac050bf125d978c9937816269b15728a532799fe (patch)
treebf16ac4d4f7101a465f7c4971b1681564b5ae852 /src
parent81c3afb6ab827f0278a24e30f6acebf65f2caa02 (diff)
Removed deprecated boundary function calls
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@121 6a38eb6e-646e-4a02-a296-d141613ad6c4
Diffstat (limited to 'src')
-rw-r--r--src/CopyBoundary.c83
-rw-r--r--src/FlatBoundary.c76
-rw-r--r--src/RadiationBoundary.c92
-rw-r--r--src/ScalarBoundary.c87
4 files changed, 0 insertions, 338 deletions
diff --git a/src/CopyBoundary.c b/src/CopyBoundary.c
index 9dcb1d1..93ebcb3 100644
--- a/src/CopyBoundary.c
+++ b/src/CopyBoundary.c
@@ -646,86 +646,3 @@ static int BndApplyCopy1Di(cGH *GH,
-/********************************************************************
- ********************* DEPRECATED: Beta 8 **********************
- ********************************************************************/
-
-int CopyBCGroup(cGH *GH,
- int *stencil_size,
- const char *impgrpname,
- const char *imppgrpname)
-{
- CCTK_WARN(1,"CopyBCGroup: ROUTINE DEPRECATED, see Beta8 release notices");
- return(BndCopyGN(GH,stencil_size,impgrpname,imppgrpname));
-}
-
-void CCTK_FCALL CCTK_FNAME(CopyBCGroup)(int *retval,
- cGH *GH,
- int *stencil_size,
- TWO_FORTSTRINGS_ARGS)
-{
- TWO_FORTSTRINGS_CREATE(impgrpname,imppgrpname)
- CCTK_WARN(1,"CopyBCGroup: ROUTINE DEPRECATED, see Beta8 release notices");
- *retval = BndCopyGN(GH, stencil_size, impgrpname,imppgrpname);
- free(impgrpname);
- free(imppgrpname);
-}
-
-int CopyBCGroupI(cGH *GH,
- int *stencil_size,
- int gi,
- int gip)
-{
- CCTK_WARN(1,"CopyBCGroupI: ROUTINE DEPRECATED, see Beta8 release notices");
- return(BndCopyGI(GH,stencil_size,gi,gip));
-}
-
-void CCTK_FCALL CCTK_FNAME(CopyBCGroupI)(int *retval,
- cGH *GH,
- int *stencil_size,
- int *gi,
- int *gip)
-{
- CCTK_WARN(1,"CopyBCGroupI: ROUTINE DEPRECATED, see Beta8 release notices");
- *retval = BndCopyGI(GH, stencil_size, *gi, *gip);
-}
-
-int CopyBCVar(cGH *GH,
- int *stencil_size,
- const char *impvarname,
- const char *imppvarname)
-{
- CCTK_WARN(1,"CopyBCVar: ROUTINE DEPRECATED, see Beta8 release notices");
- return(BndCopyVN(GH, stencil_size, impvarname,imppvarname));
-}
-
-void CCTK_FCALL CCTK_FNAME(CopyBCVar)(int *retval,
- cGH *GH,
- int *stencil_size,
- TWO_FORTSTRINGS_ARGS)
-{
- TWO_FORTSTRINGS_CREATE(impvarname,imppvarname)
- CCTK_WARN(1,"CopyBCVar: ROUTINE DEPRECATED, see Beta8 release notices");
- *retval = BndCopyVN(GH, stencil_size, impvarname, imppvarname);
- free(impvarname);
- free(imppvarname);
-}
-
-int CopyBCVarI(cGH *GH,
- int *stencil_size,
- int vi,
- int vip)
-{
- CCTK_WARN(1,"CopyBCVarI: ROUTINE DEPRECATED, see Beta8 release notices");
- return(BndCopyVI(GH, stencil_size, vi, vip));
-}
-
-void CCTK_FCALL CCTK_FNAME(CopyBCVarI)(int *retval,
- cGH *GH,
- int *stencil_size,
- int *vi,
- int *vip)
-{
- CCTK_WARN(1,"CopyBCVarI: ROUTINE DEPRECATED, see Beta8 release notices");
- *retval = BndCopyVI(GH,stencil_size, *vi,*vip);
-}
diff --git a/src/FlatBoundary.c b/src/FlatBoundary.c
index e7ce098..2cc8780 100644
--- a/src/FlatBoundary.c
+++ b/src/FlatBoundary.c
@@ -598,79 +598,3 @@ int BndApplyFlat1Di(cGH *GH,
}
-
-/********************************************************************
- ********************* DEPRECATED: Beta 8 **********************
- ********************************************************************/
-
-int FlatBCGroup(cGH *GH,
- int *stencil_size,
- const char *impgrpname)
-{
- CCTK_WARN(1,"FlatBCGroup: ROUTINE DEPRECATED, see Beta8 release notices");
- return(BndFlatGN(GH,stencil_size,impgrpname));
-}
-
-void CCTK_FCALL CCTK_FNAME(FlatBCGroup)(int *retval,
- cGH *GH,
- int *stencil_size,
- ONE_FORTSTRING_ARG)
-{
- ONE_FORTSTRING_CREATE(impgrpname)
- CCTK_WARN(1,"FlatBCGroup: ROUTINE DEPRECATED, see Beta8 release notices");
- *retval = BndFlatGN(GH,stencil_size,impgrpname);
- free(impgrpname);
-}
-
-int FlatBCVar(cGH *GH,
- int *stencil_size,
- const char *impvarname)
-{
- CCTK_WARN(1,"FlatBCVar: ROUTINE DEPRECATED, see Beta8 release notices");
- return(BndFlatVN(GH,stencil_size,impvarname));
-}
-
-void CCTK_FCALL CCTK_FNAME(FlatBCVar)(int *retval,
- cGH *GH,
- int *stencil_size,
- ONE_FORTSTRING_ARG)
-{
- ONE_FORTSTRING_CREATE(impvarname)
- CCTK_WARN(1,"FlatBCVar: ROUTINE DEPRECATED, see Beta8 release notices");
- *retval = BndFlatVN(GH, stencil_size, impvarname);
- free(impvarname);
-}
-
-int FlatBCVarI(cGH *GH, int *stencil_size, int vi)
-{
- CCTK_WARN(1,"FlatBCVarI: ROUTINE DEPRECATED, see Beta8 release notices");
- return(BndFlatVI(GH, stencil_size, vi));
-}
-
-void CCTK_FCALL CCTK_FNAME(FlatBCVarI)(int *retval,
- cGH *GH,
- int *stencil_size,
- int *vi)
-{
- CCTK_WARN(1,"FlatBCVarI: ROUTINE DEPRECATED, see Beta8 release notices");
- *retval = BndFlatVI(GH, stencil_size, *vi);
-}
-
-int FlatBCGroupI(cGH *GH,
- int *stencil_size,
- int gi)
-{
- CCTK_WARN(1,"FlatBCGroupI: ROUTINE DEPRECATED, see Beta8 release notices");
- return(BndFlatGI(GH, stencil_size, gi));
-}
-
-void CCTK_FCALL CCTK_FNAME(FlatBCGroupI)(int *retval,
- cGH *GH,
- int *stencil_size,
- int *gi)
-{
- CCTK_WARN(1,"FlatBCGroupI: ROUTINE DEPRECATED, see Beta8 release notices");
- *retval=BndFlatGI(GH, stencil_size, *gi);
-}
-
-
diff --git a/src/RadiationBoundary.c b/src/RadiationBoundary.c
index bb1220d..dcc853f 100644
--- a/src/RadiationBoundary.c
+++ b/src/RadiationBoundary.c
@@ -982,95 +982,3 @@ static int BndApplyRadiative3Di(cGH *GH,
-/********************************************************************
- ********************* DEPRECATED: Beta 8 **********************
- ********************************************************************/
-
-int RadiativeBCVar(cGH *GH,
- CCTK_REAL var0,
- CCTK_REAL v0,
- int *sw,
- const char *vn,
- const char *vn_p)
-{
- CCTK_WARN(1,"RadiativeBCVar: ROUTINE DEPRECATED, see Beta8 release notices");
- return(BndRadiativeVN(GH, sw, var0, v0, vn, vn_p));
-}
-
-void CCTK_FCALL CCTK_FNAME(RadiativeBCVar)(int *retval,
- cGH *GH,
- CCTK_REAL *var0,
- CCTK_REAL *v0,
- int *sw,
- TWO_FORTSTRINGS_ARGS)
-{
- TWO_FORTSTRINGS_CREATE(name,name_p)
- CCTK_WARN(1,"RadiativeBCVar: ROUTINE DEPRECATED, see Beta8 release notices");
- *retval = RadiativeBCVar(GH,*var0,*v0,sw,name,name_p);
- free(name);
- free(name_p);
-}
-
-void CCTK_FCALL CCTK_FNAME(RadiativeBCVarI)(int *ierr,
- cGH *GH,
- CCTK_REAL *var0,
- CCTK_REAL *v0,
- int *sw,
- int *vi,
- int *vi_p)
-{
- CCTK_WARN(1,"RadiativeBCVarI: ROUTINE DEPRECATED, see Beta8 release notices");
- *ierr = BndRadiativeVI(GH, sw, *var0, *v0,*vi, *vi_p);
-}
-
-int RadiativeBCGroup(cGH *GH,
- CCTK_REAL var0,
- CCTK_REAL v0,
- int *sw,
- const char *impgrpname,
- const char *impgrpname_p)
-{
- CCTK_WARN(1,"RadiativeBCGroup: ROUTINE DEPRECATED, see Beta8 release notices");
- return(BndRadiativeGN(GH, sw, var0, v0, impgrpname, impgrpname_p));
-}
-
-int RadiativeBCGroupI(cGH *GH,
- CCTK_REAL var0,
- CCTK_REAL v0,
- int *sw,
- int gi,
- int gi_p)
-{
- CCTK_WARN(1,"RadiativeBCGroupI: ROUTINE DEPRECATED, see Beta8 release notices");
- return(BndRadiativeGI(GH, sw, var0, v0, gi, gi_p));
-}
-
-
-
-void CCTK_FCALL CCTK_FNAME(RadiativeBCGroup)(int *ierr,
- cGH *GH,
- CCTK_REAL *var0,
- CCTK_REAL *v0,
- int *sw,
- TWO_FORTSTRINGS_ARGS)
-{ TWO_FORTSTRINGS_CREATE(gn,gn_p)
- CCTK_WARN(1,"RadiativeBCGroup: ROUTINE DEPRECATED, see Beta8 release notices");
- *ierr = BndRadiativeGN(GH, sw, *var0, *v0, gn, gn_p);
- free(gn);
- free(gn_p);
-}
-
-void CCTK_FCALL CCTK_FNAME(RadiativeBCGroupI)(int *ierr,
- cGH *GH,
- CCTK_REAL *var0,
- CCTK_REAL *v0,
- int *sw,
- int *gi,
- int *gi_p)
-{
- CCTK_WARN(1,"RadiativeBCGroupI: ROUTINE DEPRECATED, see Beta8 release notices");
- *ierr = BndRadiativeGI(GH, sw, *var0, *v0, *gi, *gi_p);
-}
-
-
-
diff --git a/src/ScalarBoundary.c b/src/ScalarBoundary.c
index 9cc4865..3c0fa6f 100644
--- a/src/ScalarBoundary.c
+++ b/src/ScalarBoundary.c
@@ -635,90 +635,3 @@ static int BndApplyScalar1Di(cGH *GH,
-/********************************************************************
- ********************* DEPRECATED: Beta 8 **********************
- ********************************************************************/
-
-int ConstantBCGroup(cGH *GH,
- CCTK_REAL var0,
- int *stencil_size,
- const char *impgrpname)
-{
- CCTK_WARN(1,"ConstantBCGroup: ROUTINE DEPRECATED, see Beta8 release notices");
- return(BndScalarGN(GH, stencil_size, var0, impgrpname));
-}
-
-void CCTK_FCALL CCTK_FNAME(ConstantBCGroup)(int *retval,
- cGH *GH,
- CCTK_REAL *var0,
- int *stencil_size,
- ONE_FORTSTRING_ARG)
-{
- ONE_FORTSTRING_CREATE(impgrpname)
- CCTK_WARN(1,"ConstantBCGroup: ROUTINE DEPRECATED, see Beta8 release notices");
- *retval = BndScalarGN(GH, stencil_size, *var0, impgrpname);
- free(impgrpname);
-}
-
-int ConstantBCGroupI(cGH *GH, CCTK_REAL var0, int *stencil_size, int gi)
-{
- CCTK_WARN(1,"ConstantBCGroupI: ROUTINE DEPRECATED, see Beta8 release notices");
- return(BndScalarGI(GH, stencil_size, var0, gi));
-}
-
-void CCTK_FCALL CCTK_FNAME(ConstantBCGroupI)(int *retval,
- cGH *GH,
- CCTK_REAL *var0,
- int *stencil_size,
- int *gi)
-{
- CCTK_WARN(1,"ConstantBCGroupI: ROUTINE DEPRECATED, see Beta8 release notices");
- *retval=BndScalarGI(GH, stencil_size, *var0, *gi);
-}
-
-int ConstantBCVar(cGH *GH,
- CCTK_REAL var0,
- int *stencil_size,
- const char *impvarname)
-{
- CCTK_WARN(1,"ConstantBCVar: ROUTINE DEPRECATED, see Beta8 release notices");
- return(BndScalarVN(GH,stencil_size,var0,impvarname));
-}
-
-void CCTK_FCALL CCTK_FNAME(ConstantBCVar)(int *retval,
- cGH *GH,
- CCTK_REAL *var0,
- int *stencil_size,
- ONE_FORTSTRING_ARG)
-{
- ONE_FORTSTRING_CREATE(impvarname)
- CCTK_WARN(1,"ConstantBCVar: ROUTINE DEPRECATED, see Beta8 release notices");
- *retval = BndScalarVN(GH, stencil_size, *var0, impvarname);
- free(impvarname);
-}
-
-int ConstantBCVarI(cGH *GH, CCTK_REAL var0, int *stencil_size, int vi)
-{
- CCTK_WARN(1,"ConstantBCVarI: ROUTINE DEPRECATED, see Beta8 release notices");
- return(BndScalarVI(GH, stencil_size, var0, vi));
-}
-
-void CCTK_FCALL CCTK_FNAME(ConstantBCVarI)(int *retval,
- cGH *GH,
- CCTK_REAL *var0,
- int *stencil_size,
- int *vi)
-{
- CCTK_WARN(1,"ConstantBCVarI: ROUTINE DEPRECATED, see Beta8 release notices");
- *retval = BndScalarVI(GH, stencil_size, *var0, *vi);
-}
-
-void CCTK_FCALL CCTK_FNAME(ApplyConstantBC)
- (int *retval, cGH *GH, CCTK_REAL *var0, int *stencil_size, ONE_FORTSTRING_ARG) {
-
- ONE_FORTSTRING_CREATE(name)
- CCTK_WARN(1,"ApplyConstantBC: ROUTINE DEPRECATED, see Beta8 release notices");
- *retval = BndScalarVN(GH,stencil_size, *var0, name);
- free(name);
-
-}