From 2329c84b04b122aa0e57043c3a2fbbefb4d07680 Mon Sep 17 00:00:00 2001 From: allen Date: Mon, 17 Jan 2000 14:39:47 +0000 Subject: Replacing CCTK_WARN with CCTK_Warn git-svn-id: http://svn.cactuscode.org/flesh/trunk@1272 17b73243-c579-4c4c-a9d2-2d5706c11dac --- src/comm/Interp.c | 33 +++++++++++++++++---------------- src/comm/Reduction.c | 24 ++++++++++++------------ 2 files changed, 29 insertions(+), 28 deletions(-) (limited to 'src') diff --git a/src/comm/Interp.c b/src/comm/Interp.c index fed30efb..1e61b728 100644 --- a/src/comm/Interp.c +++ b/src/comm/Interp.c @@ -21,7 +21,8 @@ #include #include -#include "cctk.h" +#include "cctk_Types.h" +#include "cctk_Constants.h" #include "cctk_Flesh.h" #include "cctk_FortranString.h" #include "cctk_Groups.h" @@ -75,7 +76,7 @@ int CCTK_RegisterInterpOperator(int (*function)(REGISTER_INTERP_ARGLIST), else { /* Interpolation operator with this name already exists. */ - CCTK_WARN(1,"Interpolation operator with this name already exists"); + CCTK_Warn(1,__LINE__,__FILE__,"Cactus","Interpolation operator with this name already exists"); handle = -1; } @@ -124,7 +125,7 @@ int CCTK_GetInterpHandle(const char *interp) #endif if (handle < 0) - CCTK_WARN(1,"No handle found for this interpolation operator"); + CCTK_Warn(1,__LINE__,__FILE__,"Cactus","No handle found for this interpolation operator"); return handle; @@ -230,7 +231,7 @@ int CCTK_InterpGF (cGH *GH, /* Get the pointer to the interpolation operator */ if (operation_handle < 0) - CCTK_WARN(3,"Invalid handle passed to CCTK_Interp"); + CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Invalid handle passed to CCTK_Interp"); else { @@ -259,7 +260,7 @@ int CCTK_InterpGF (cGH *GH, timelevel = CCTK_NumTimeLevelsFromVarI (index); retcode = 0; if (timelevel < 0) { - CCTK_WARN (1, "Invalid variable index in CCTK_InterpGF()"); + CCTK_Warn (1, __LINE__,__FILE__,"Cactus","Invalid variable index in CCTK_InterpGF()"); retcode = -1; } else { if (--timelevel > 0) @@ -295,7 +296,7 @@ int CCTK_InterpGF (cGH *GH, } else - CCTK_WARN(3,"Interpolation operation is not registered and cannot be called"); + CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Interpolation operation is not registered and cannot be called"); } return retcode; @@ -327,7 +328,7 @@ void FMODIFIER FORTRAN_NAME(CCTK_InterpGF)(int *fortranreturn, if (*operation_handle < 0) - CCTK_WARN(3,"Invalid handle passed to CCTK_Interp"); + CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Invalid handle passed to CCTK_Interp"); else { @@ -356,7 +357,7 @@ void FMODIFIER FORTRAN_NAME(CCTK_InterpGF)(int *fortranreturn, timelevel = CCTK_NumTimeLevelsFromVarI (index); retcode = 0; if (timelevel < 0) { - CCTK_WARN (1, "Invalid variable index in CCTK_InterpGF()"); + CCTK_Warn (1,__LINE__,__FILE__,"Cactus", "Invalid variable index in CCTK_InterpGF()"); retcode = -1; } else { if (--timelevel > 0) @@ -392,7 +393,7 @@ void FMODIFIER FORTRAN_NAME(CCTK_InterpGF)(int *fortranreturn, } else - CCTK_WARN(3,"Interpolation operation is not registered and cannot be called"); + CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Interpolation operation is not registered and cannot be called"); } *fortranreturn = retcode; @@ -510,7 +511,7 @@ int CCTK_Interp (cGH *GH, /* Get the pointer to the interpolation operator */ if (operation_handle < 0) - CCTK_WARN(3,"Invalid handle passed to CCTK_Interp"); + CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Invalid handle passed to CCTK_Interp"); else { @@ -565,7 +566,7 @@ int CCTK_Interp (cGH *GH, break; default: - CCTK_WARN (1, "Invalid variable type for coordinates"); + CCTK_Warn(1,__LINE__,__FILE__,"Cactus", "Invalid variable type for coordinates"); retcode = -1; break; } @@ -597,7 +598,7 @@ int CCTK_Interp (cGH *GH, break; default: - CCTK_WARN (1, "Invalid variable type for coordinates"); + CCTK_Warn (1,__LINE__,__FILE__,"Cactus", "Invalid variable type for coordinates"); retcode = -1; break; } @@ -629,7 +630,7 @@ int CCTK_Interp (cGH *GH, } else - CCTK_WARN(3,"Interpolation operation is not registered and cannot be called"); + CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Interpolation operation is not registered and cannot be called"); } return retcode; @@ -661,7 +662,7 @@ void FMODIFIER FORTRAN_NAME(CCTK_Interp)(int *fortranreturn, if (*operation_handle < 0) - CCTK_WARN(3,"Invalid handle passed to CCTK_Interp"); + CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Invalid handle passed to CCTK_Interp"); else { @@ -748,7 +749,7 @@ void FMODIFIER FORTRAN_NAME(CCTK_Interp)(int *fortranreturn, break; default: - CCTK_WARN (1, "Invalid variable type for coordinates"); + CCTK_Warn (1,__LINE__,__FILE__,"Cactus", "Invalid variable type for coordinates"); retcode = -1; break; } @@ -779,7 +780,7 @@ void FMODIFIER FORTRAN_NAME(CCTK_Interp)(int *fortranreturn, free (dims); } else - CCTK_WARN(3,"Interpolation operation is not registered and cannot be called"); + CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Interpolation operation is not registered and cannot be called"); } *fortranreturn = retcode; diff --git a/src/comm/Reduction.c b/src/comm/Reduction.c index c38e863c..ddbb411a 100644 --- a/src/comm/Reduction.c +++ b/src/comm/Reduction.c @@ -74,7 +74,7 @@ int CCTK_RegisterReductionOperator( else { /* Reduction operator with this name already exists. */ - CCTK_WARN(1,"Reduction operator with this name already exists"); + CCTK_Warn(1,__LINE__,__FILE__,"Cactus","Reduction operator with this name already exists"); handle = -1; } @@ -123,7 +123,7 @@ int CCTK_ReductionHandle(const char *reduction) #endif if (handle < 0) - CCTK_WARN(1,"No handle found for this reduction operator"); + CCTK_Warn(1,__LINE__,__FILE__,"Cactus","No handle found for this reduction operator"); return handle; @@ -206,7 +206,7 @@ int CCTK_Reduce( cGH *GH, /* Get the pointer to the reduction operator */ if (operation_handle < 0) { - CCTK_WARN(3,"Invalid handle passed to CCTK_Reduce"); + CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Invalid handle passed to CCTK_Reduce"); return (-1); } @@ -215,7 +215,7 @@ int CCTK_Reduce( cGH *GH, if (! function) { - CCTK_WARN(3,"Reduction operation is not registered and cannot be called"); + CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Reduction operation is not registered and cannot be called"); return (-1); } @@ -255,7 +255,7 @@ void FMODIFIER FORTRAN_NAME(CCTK_Reduce)(int *fortranreturn, if (*operation_handle < 0) { - CCTK_WARN(3,"Invalid handle passed to CCTK_Reduce"); + CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Invalid handle passed to CCTK_Reduce"); return; } @@ -265,7 +265,7 @@ void FMODIFIER FORTRAN_NAME(CCTK_Reduce)(int *fortranreturn, if (! function) { - CCTK_WARN(3,"Reduction operation is not registered and cannot be called"); + CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Reduction operation is not registered and cannot be called"); return; } @@ -326,7 +326,7 @@ int CCTK_RegisterReductionArrayOperator else { /* Reduction operator with this name already exists. */ - CCTK_WARN(1,"Array reduction operator with this name already exists"); + CCTK_Warn(1,__LINE__,__FILE__,"Cactus","Array reduction operator with this name already exists"); handle = -1; } @@ -375,7 +375,7 @@ int CCTK_ReductionArrayHandle(const char *reduction) #endif if (handle < 0) - CCTK_WARN(1,"No handle found for this array reduction operator"); + CCTK_Warn(1,__LINE__,__FILE__,"Cactus","No handle found for this array reduction operator"); return handle; @@ -478,7 +478,7 @@ int CCTK_ReduceArray( cGH *GH, /* Get the pointer to the reduction operator */ if (operation_handle < 0) { - CCTK_WARN(3,"Invalid handle passed to CCTK_ReduceArray"); + CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Invalid handle passed to CCTK_ReduceArray"); return (-1); } @@ -487,7 +487,7 @@ int CCTK_ReduceArray( cGH *GH, if (! function) { - CCTK_WARN(3, "Array reduction operation is not registered " + CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Array reduction operation is not registered " "and cannot be called"); return (-1); } @@ -544,7 +544,7 @@ void FMODIFIER FORTRAN_NAME(CCTK_ReduceArray)(int *fortran_return, /* Get the pointer to the reduction operator */ if (*operation_handle < 0) { - CCTK_WARN (3,"Invalid handle passed to CCTK_ReduceArray"); + CCTK_Warn (3,__LINE__,__FILE__,"Cactus","Invalid handle passed to CCTK_ReduceArray"); return; } @@ -553,7 +553,7 @@ void FMODIFIER FORTRAN_NAME(CCTK_ReduceArray)(int *fortran_return, if (! function) { - CCTK_WARN (3, "Array reduction operation is not registered " + CCTK_Warn (3,__LINE__,__FILE__,"Cactus", "Array reduction operation is not registered " "and cannot be called"); return; } -- cgit v1.2.3