diff options
author | allen <allen@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2000-09-21 15:52:14 +0000 |
---|---|---|
committer | allen <allen@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2000-09-21 15:52:14 +0000 |
commit | ac050bf125d978c9937816269b15728a532799fe (patch) | |
tree | bf16ac4d4f7101a465f7c4971b1681564b5ae852 /src/ScalarBoundary.c | |
parent | 81c3afb6ab827f0278a24e30f6acebf65f2caa02 (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/ScalarBoundary.c')
-rw-r--r-- | src/ScalarBoundary.c | 87 |
1 files changed, 0 insertions, 87 deletions
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); - -} |