From 9f3b334825b06feb87f9e067237404e6bcd444f1 Mon Sep 17 00:00:00 2001 From: allen Date: Fri, 14 Sep 2001 11:32:13 +0000 Subject: Changing to new macros for FORTRAN_STRING git-svn-id: http://svn.cactuscode.org/flesh/trunk@2357 17b73243-c579-4c4c-a9d2-2d5706c11dac --- src/main/WarnLevel.c | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) (limited to 'src/main') diff --git a/src/main/WarnLevel.c b/src/main/WarnLevel.c index 5e36b787..bcbbddc9 100644 --- a/src/main/WarnLevel.c +++ b/src/main/WarnLevel.c @@ -34,13 +34,13 @@ CCTK_FILEVERSION(main_WarnLevel_c) cctk_WarnLevel.h and cctki_WarnLevel.h here only follow the fortran wrapper prototypes */ void CCTK_FCALL CCTK_FNAME (CCTK_Info) - (TWO_FORTSTRINGS_ARGS); + (TWO_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (CCTK_Warn) (const int *level, const int *line, - THREE_FORTSTRINGS_ARGS); + THREE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (CCTK_ParamWarn) - (TWO_FORTSTRINGS_ARGS); + (TWO_FORTSTRING_ARG); int CCTK_FCALL CCTK_FNAME (CCTK_MessageFormat) (ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (CCTKi_ExpectError) @@ -48,13 +48,13 @@ void CCTK_FCALL CCTK_FNAME (CCTKi_ExpectError) const int *err, const int *warnonerr, const int *line, - THREE_FORTSTRINGS_ARGS); + THREE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (CCTKi_ExpectOK) (const int *in, const int *ok, const int *warnonerr, const int *line, - THREE_FORTSTRINGS_ARGS); + THREE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (CCTKi_NotYetImplemented) (ONE_FORTSTRING_ARG); @@ -114,9 +114,9 @@ int CCTK_Info (const char *thorn, const char *message) } void CCTK_FCALL CCTK_FNAME (CCTK_Info) - (TWO_FORTSTRINGS_ARGS) + (TWO_FORTSTRING_ARG) { - TWO_FORTSTRINGS_CREATE (thorn, message) + TWO_FORTSTRING_CREATE (thorn, message) CCTK_Info (thorn, message); free (thorn); free (message); @@ -222,9 +222,9 @@ int CCTK_Warn (int level, void CCTK_FCALL CCTK_FNAME (CCTK_Warn) (const int *level, const int *line, - THREE_FORTSTRINGS_ARGS) + THREE_FORTSTRING_ARG) { - THREE_FORTSTRINGS_CREATE (file, thorn, message) + THREE_FORTSTRING_CREATE (file, thorn, message) CCTK_Warn (*level, *line, file, thorn, message); free (thorn); free (message); @@ -407,9 +407,9 @@ int CCTK_ParamWarn (const char *thorn, const char *message) } void CCTK_FCALL CCTK_FNAME (CCTK_ParamWarn) - (TWO_FORTSTRINGS_ARGS) + (TWO_FORTSTRING_ARG) { - TWO_FORTSTRINGS_CREATE (thorn, message) + TWO_FORTSTRING_CREATE (thorn, message) CCTK_ParamWarn (thorn, message); free (thorn); free (message); @@ -667,9 +667,9 @@ void CCTK_FCALL CCTK_FNAME (CCTKi_ExpectError) const int *err, const int *warnonerr, const int *line, - THREE_FORTSTRINGS_ARGS) + THREE_FORTSTRING_ARG) { - THREE_FORTSTRINGS_CREATE (file, thorn, message) + THREE_FORTSTRING_CREATE (file, thorn, message) CCTKi_ExpectError (*in, *err, *warnonerr, *line, file, thorn, message); free (file); free (thorn); @@ -743,9 +743,9 @@ void CCTK_FCALL CCTK_FNAME (CCTKi_ExpectOK) const int *ok, const int *warnonerr, const int *line, - THREE_FORTSTRINGS_ARGS) + THREE_FORTSTRING_ARG) { - THREE_FORTSTRINGS_CREATE (file, thorn, message) + THREE_FORTSTRING_CREATE (file, thorn, message) CCTKi_ExpectOK (*in, *ok, *warnonerr, *line, file, thorn, message); free (file); free (thorn); -- cgit v1.2.3