summaryrefslogtreecommitdiff
path: root/src/main/WarnLevel.c
diff options
context:
space:
mode:
authorallen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>2000-01-25 09:34:40 +0000
committerallen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>2000-01-25 09:34:40 +0000
commit5a17d4f80ebbbc5c92410295a2a31d320e9606e1 (patch)
tree6ae1f4e0738614281edc891fa13e2b965750c8c9 /src/main/WarnLevel.c
parent1e37ff2f692e711e140cbf9f66be81a9b13164aa (diff)
Changed void returns to ints
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1290 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/main/WarnLevel.c')
-rw-r--r--src/main/WarnLevel.c19
1 files changed, 11 insertions, 8 deletions
diff --git a/src/main/WarnLevel.c b/src/main/WarnLevel.c
index abd2c720..7b21df46 100644
--- a/src/main/WarnLevel.c
+++ b/src/main/WarnLevel.c
@@ -20,8 +20,7 @@
#include "cctk_Misc.h"
#include "cctk_WarnLevel.h"
#include "cctk_FortranString.h"
-
-#include "cctk_parameters.h"
+#include "cctk_Parameters.h"
static char *rcsid = "$Header$";
@@ -116,7 +115,7 @@ int CCTKi_SetWarnLevel(int level)
@endhistory
@@*/
-void CCTK_Warn(int level, int line, const char *file, const char *thorn, const char *message)
+int CCTK_Warn(int level, int line, const char *file, const char *thorn, const char *message)
{
DECLARE_CCTK_PARAMETERS
@@ -144,6 +143,8 @@ void CCTK_Warn(int level, int line, const char *file, const char *thorn, const c
USE_CCTK_PARAMETERS
+ return 0;
+
}
void FMODIFIER FORTRAN_NAME(CCTK_Warn)(int *level, int *line, THREE_FORTSTRINGS_ARGS)
@@ -198,7 +199,7 @@ void FMODIFIER FORTRAN_NAME(CCTKi_ExpectError)
@desc
Used by CCTKi_EXPCTOK macro (src/include/cctk.h)
allows testing for success return value, will return a
- warnign statement otherwise
+ warning statement otherwise
@enddesc
@calls
@calledby CCTKi_EXPCTOK
@@ -215,7 +216,6 @@ void CCTKi_ExpectOK(int in, int ok, int warnonerr, int line,
if (in!=ok) CCTK_Warn(warnonerr, line, file, thorn, message);
}
-
void FMODIFIER FORTRAN_NAME(CCTKi_ExpectOK)
(int *in, int *ok, int *warnonerr, int *line, THREE_FORTSTRINGS_ARGS)
{
@@ -227,6 +227,7 @@ void FMODIFIER FORTRAN_NAME(CCTKi_ExpectOK)
free(message);
}
+
/*@@
@routine CCTK_VWarn
@date Sun Nov 14 00:23:29 1999
@@ -242,7 +243,7 @@ void FMODIFIER FORTRAN_NAME(CCTKi_ExpectOK)
@@*/
-void CCTK_VWarn(int level, int line, const char *file, const char *thorn, const char *format, ...)
+int CCTK_VWarn(int level, int line, const char *file, const char *thorn, const char *format, ...)
{
DECLARE_CCTK_PARAMETERS
@@ -297,7 +298,7 @@ void CCTK_VWarn(int level, int line, const char *file, const char *thorn, const
@endhistory
@@*/
-void CCTK_ParamWarn(const char *thorn, const char *message)
+int CCTK_ParamWarn(const char *thorn, const char *message)
{
DECLARE_CCTK_PARAMETERS
@@ -317,6 +318,7 @@ void CCTK_ParamWarn(const char *thorn, const char *message)
USE_CCTK_PARAMETERS
+ return 0;
}
void FMODIFIER FORTRAN_NAME(CCTK_ParamWarn)(TWO_FORTSTRINGS_ARGS)
@@ -344,9 +346,10 @@ void FMODIFIER FORTRAN_NAME(CCTK_ParamWarn)(TWO_FORTSTRINGS_ARGS)
@@*/
-void CCTK_Info(const char *thorn, const char *message)
+int CCTK_Info(const char *thorn, const char *message)
{
fprintf(stdout, "INFO (%s): %s\n", thorn, message);
+ return 0;
}
void FMODIFIER FORTRAN_NAME(CCTK_Info)(TWO_FORTSTRINGS_ARGS)