summaryrefslogtreecommitdiff
path: root/src/main/Coord.c
diff options
context:
space:
mode:
authorallen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>1999-07-03 14:54:27 +0000
committerallen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>1999-07-03 14:54:27 +0000
commit7b721aeb46e4774c478b12844c85f2f85c7e371f (patch)
treefe155b7e286be172ea83596f457c6788972e757e /src/main/Coord.c
parent393215a1f63d91cf68f9d5e70b7f16b9d90f5780 (diff)
Changed CCTK_Warns t CCTK_WARN so that I can try and pass thorught the
line number and file name to the Warn message. This hass problems: 1) I really need to include cctk.h then (for some reason) in WarnLevel.h, but then I guess the Fortran name for CCTK_Warn is CCTK_WARN so it doesn't much care for me having a macro for CCTK_WARN. 2) Now I need three fortran strings to be passed into C. This works at the moment on Linux, but not on other machines, so you may need to run with warnings off for a little while. 3) Fortran doesn't get the file name, because (?) it is actually something from a pipe which gets preprocessed and not the file. I have no idea how to fix this. I may just scrap all this, but I want to persevere a bit Oh, there is a new parameter cctk_full_warnings (default yes for now) which gives the old style warnings with no. git-svn-id: http://svn.cactuscode.org/flesh/trunk@618 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/main/Coord.c')
-rw-r--r--src/main/Coord.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/main/Coord.c b/src/main/Coord.c
index b9ac9516..d332d096 100644
--- a/src/main/Coord.c
+++ b/src/main/Coord.c
@@ -111,7 +111,7 @@ int CCTK_RegisterCoord_ByIndex(const char *name, int index, int dir)
char *msg;
msg = (char *)malloc(200*sizeof(char)+sizeof(name));
sprintf(msg,"Coordinate with name -%s- already registered",name);
- CCTK_Warn(1,"CCTK",msg);
+ CCTK_WARN(1,msg);
if (msg) free(msg);
handle = -1;
}
@@ -204,7 +204,7 @@ int CCTK_GetCoordIndex(const char *name)
char *msg;
msg = (char *)malloc( 100*sizeof(char)+sizeof(name) );
sprintf(msg,"Could not find registered coordinate %s",name);
- CCTK_Warn(2,"CCTK",msg);
+ CCTK_WARN(2,msg);
if (msg) free(msg);
return ERROR_COORDNOTFOUND;
}