Add level 1 warnings to CCTK_InterpGV() and CCTK_InterpLocal()

(both C and Fortran versions) warning that these APIs are obsolescent
and people should convert their code to the replacement APIs
CCTK_InterpGridArrays() and CCTK_InterpLocalUniform() respectively.

Still to be done: a Fortran wrapper for CCTK_InterpLocalUniform()
... I am working on this next...


git-svn-id: http://svn.cactuscode.org/flesh/trunk@3716 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 39 insertions, 0 deletions

diff --git a/src/comm/Interp.c b/src/comm/Interp.c
index 8c5f5493..ca9a3f20 100644
--- a/src/comm/Interp.c
+++ b/src/comm/Interp.c
@@ -20,6 +20,14 @@
                 new-API interpolators
    @endhistory
 
+   @date      Tue May 11 13:01:51 CEST 2004
+   @author    Jonathan Thornburg <jthorn@aei.mpg.de>
+   @hdesc     change  CCTK_InterpLocal()  and  CCTK_InterpGV()
+              to give level 1 warnings that these APIs are obsolescent
+              and will be phased out soon (and to point to their
+              replacement APIs ).
+   @endhistory
+
    @version   $Id$
  @@*/
 
@@ -683,6 +691,14 @@ int CCTK_InterpGV (cGH *GH,
   struct interp_info *operator;
 
 
+  /* warn the user that this API is obselete and will disappear soon! */
+    CCTK_VWarn(1, __LINE__, __FILE__, "Cactus",
+"\n"
+"***\n"
+"*** CCTK_InterpGV()  is obsolescent and will be phased out soon!\n"
+"*** You should convert your code to use CCTK_InterpGridArrays() instead.\n"
+"***\n");
+
   /* Get the interpolation operator routine and the coordinate system name */
   operator = (struct interp_info *) Util_GetHandledData (interp_operators,
                                                         operator_handle);
@@ -763,6 +779,14 @@ void CCTK_FCALL CCTK_FNAME (CCTK_InterpGV)
   struct interp_info *operator;
 
 
+  /* warn the user that this API is obselete and will disappear soon! */
+    CCTK_VWarn(1, __LINE__, __FILE__, "Cactus",
+"\n"
+"***\n"
+"*** CCTK_InterpGV()  is obsolescent and will be phased out soon!\n"
+"*** You should convert your code to use CCTK_InterpGridArrays() instead.\n"
+"***\n");
+
   /* Get the interpolation operator and the coordinate system name */
   operator = (struct interp_info *) Util_GetHandledData (interp_operators,
                                                         *operator_handle);
@@ -935,6 +959,13 @@ int CCTK_InterpLocal (cGH *GH,
   void **out_arrays;
   struct interp_info *operator;
 
+  /* warn the user that this API is obselete and will disappear soon! */
+    CCTK_VWarn(1, __LINE__, __FILE__, "Cactus",
+"\n"
+"***\n"
+"*** CCTK_InterpLocal()  is obsolescent and will be phased out soon!\n"
+"*** You should convert your code to use CCTK_InterpLocalUniform() instead.\n"
+"***\n");
 
   /* Get the interpolation operator */
   operator = (struct interp_info *) Util_GetHandledData (interp_operators,
@@ -1021,6 +1052,14 @@ void CCTK_FCALL CCTK_FNAME (CCTK_InterpLocal)
   struct interp_info *operator;
 
 
+  /* warn the user that this API is obselete and will disappear soon! */
+    CCTK_VWarn(1, __LINE__, __FILE__, "Cactus",
+"\n"
+"***\n"
+"*** CCTK_InterpLocal()  is obsolescent and will be phased out soon!\n"
+"*** You should convert your code to use CCTK_InterpLocalUniform() instead.\n"
+"***\n");
+
   /* Get the interpolation operator */
   operator = (struct interp_info *) Util_GetHandledData (interp_operators,
                                                         *operator_handle);