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 | |
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')
-rw-r--r-- | src/CopyBoundary.c | 83 | ||||
-rw-r--r-- | src/FlatBoundary.c | 76 | ||||
-rw-r--r-- | src/RadiationBoundary.c | 92 | ||||
-rw-r--r-- | src/ScalarBoundary.c | 87 |
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); - -} |