Removed usused routines CCTKi_ExpectError() and CCTKi_ExpectOK().

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

1 files changed, 0 insertions, 164 deletions

diff --git a/src/main/WarnLevel.c b/src/main/WarnLevel.c
index c03d3933..4a559db8 100644
--- a/src/main/WarnLevel.c
+++ b/src/main/WarnLevel.c
@@ -43,18 +43,6 @@ void CCTK_FCALL CCTK_FNAME (CCTK_ParamWarn)
                            (TWO_FORTSTRING_ARG);
 int CCTK_FCALL CCTK_FNAME (CCTK_MessageFormat)
                           (ONE_FORTSTRING_ARG);
-void CCTK_FCALL CCTK_FNAME (CCTKi_ExpectError)
-                           (const int *in,
-                            const int *err,
-                            const int *warnonerr,
-                            const int *line,
-                            THREE_FORTSTRING_ARG);
-void CCTK_FCALL CCTK_FNAME (CCTKi_ExpectOK)
-                           (const int *in,
-                            const int *ok,
-                            const int *warnonerr,
-                            const int *line,
-                            THREE_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (CCTKi_NotYetImplemented)
                            (ONE_FORTSTRING_ARG);
 
@@ -661,158 +649,6 @@ int CCTKi_SetErrorLevel (int level)
 
 
 /*@@
-   @routine    CCTKi_ExpectError
-   @date       Thanksgiving 99
-   @author     Gerd Lanfermann
-   @desc
-               Used by CCTKi_EXPCTERR macro (src/include/cctk.h)
-               allows testing for error return value, will return a
-               warning statement if error is found.
-   @enddesc
-   @calls      CCTK_Warn
-
-   @var        in
-   @vdesc      real return value to check against
-   @vtype      int
-   @vio        in
-   @endvar
-   @var        err
-   @vdesc      expected return value for error condition
-   @vtype      int
-   @vio        in
-   @endvar
-   @var        warnonerr
-   @vdesc      the warning level to use for output
-   @vtype      int
-   @vio        in
-   @endvar
-   @var        line
-   @vdesc      Line number of warning in originating file
-   @vtype      int
-   @vio        in
-   @endvar
-   @var        file
-   @vdesc      Name of originating file
-   @vtype      const char *
-   @vio        in
-   @endvar
-   @var        thorn
-   @vdesc      Name of originating thorn
-   @vtype      const char *
-   @vio        in
-   @endvar
-   @var        message
-   @vdesc      Warning message to print
-   @vtype      const char *
-   @vio        in
-   @endvar
-@@*/
-void CCTKi_ExpectError (int in,
-                        int err,
-                        int warnonerr,
-                        int line,
-                        const char *file,
-                        const char *thorn,
-                        const char *message)
-{
-  if (in == err)
-  {
-    CCTK_Warn (warnonerr, line, file, thorn, message);
-  }
-}
-
-void CCTK_FCALL CCTK_FNAME (CCTKi_ExpectError)
-                           (const int *in,
-                            const int *err,
-                            const int *warnonerr,
-                            const int *line,
-                            THREE_FORTSTRING_ARG)
-{
-  THREE_FORTSTRING_CREATE (file, thorn, message)
-  CCTKi_ExpectError (*in, *err, *warnonerr, *line, file, thorn, message);
-  free (file);
-  free (thorn);
-  free (message);
-}
-
-
-/*@@
-   @routine    CCTKi_ExpectOK
-   @date       Thanksgiving 99
-   @author     Gerd Lanfermann
-   @desc
-               Used by CCTKi_EXPCTOK macro (src/include/cctk.h)
-               allows testing for success return value, will return a
-               warning statement otherwise
-   @enddesc
-   @calls      CCTK_Warn
-
-   @var        in
-   @vdesc      real return value to check against
-   @vtype      int
-   @vio        in
-   @endvar
-   @var        ok
-   @vdesc      expected return value for success
-   @vtype      int
-   @vio        in
-   @endvar
-   @var        warnonerr
-   @vdesc      the warning level to use for output
-   @vtype      int
-   @vio        in
-   @endvar
-   @var        line
-   @vdesc      Line number of warning in originating file
-   @vtype      int
-   @vio        in
-   @endvar
-   @var        file
-   @vdesc      Name of originating file
-   @vtype      const char *
-   @vio        in
-   @endvar
-   @var        thorn
-   @vdesc      Name of originating thorn
-   @vtype      const char *
-   @vio        in
-   @endvar
-   @var        message
-   @vdesc      Warning message to print
-   @vtype      const char *
-   @vio        in
-   @endvar
-@@*/
-void CCTKi_ExpectOK (int in,
-                     int ok,
-                     int warnonerr,
-                     int line,
-                     const char *file,
-                     const char *thorn,
-                     const char *message)
-{
-  if (in != ok)
-  {
-    CCTK_Warn (warnonerr, line, file, thorn, message);
-  }
-}
-
-void CCTK_FCALL CCTK_FNAME (CCTKi_ExpectOK)
-                           (const int *in,
-                            const int *ok,
-                            const int *warnonerr,
-                            const int *line,
-                            THREE_FORTSTRING_ARG)
-{
-  THREE_FORTSTRING_CREATE (file, thorn, message)
-  CCTKi_ExpectOK (*in, *ok, *warnonerr, *line, file, thorn, message);
-  free (file);
-  free (thorn);
-  free (message);
-}
-
-
-/*@@
    @routine    CCTKi_FinaliseParamWarn
    @date       June 1999
    @author     Gabrielle Allen