From a474b9f90260da6786cd586be3faa52bc3cd3f4c Mon Sep 17 00:00:00 2001 From: knarf Date: Thu, 6 Dec 2012 14:56:27 +0000 Subject: remove unused variables git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/LocalReduce/trunk@99 7daa882c-dc44-4453-834e-278d26b18e6a --- src/AvgFunctions.c | 84 +++++++++++++++++++++++++------------------------- src/CountFunctions.c | 28 ++++++++--------- src/MaxFunctions.c | 84 +++++++++++++++++++++++++------------------------- src/MinFunctions.c | 32 +++++++++---------- src/Norm1Functions.c | 84 +++++++++++++++++++++++++------------------------- src/Norm2Functions.c | 84 +++++++++++++++++++++++++------------------------- src/Norm3Functions.c | 84 +++++++++++++++++++++++++------------------------- src/Norm4Functions.c | 84 +++++++++++++++++++++++++------------------------- src/NormInfFunctions.c | 84 +++++++++++++++++++++++++------------------------- src/SumFunctions.c | 28 ++++++++--------- 10 files changed, 338 insertions(+), 338 deletions(-) diff --git a/src/AvgFunctions.c b/src/AvgFunctions.c index 9d7a89a..b2c892a 100644 --- a/src/AvgFunctions.c +++ b/src/AvgFunctions.c @@ -23,7 +23,7 @@ int LocalReduce_Avg_BYTE(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -255,8 +255,8 @@ int LocalReduce_Avg_BYTE(int i, int weight_on, const void * const weight, CCTK_I #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -264,7 +264,7 @@ int LocalReduce_Avg_INT(int i, int weight_on, const void * const weight, CCTK_IN { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -492,8 +492,8 @@ int LocalReduce_Avg_INT(int i, int weight_on, const void * const weight, CCTK_IN break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -502,7 +502,7 @@ int LocalReduce_Avg_INT1(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -732,8 +732,8 @@ int LocalReduce_Avg_INT1(int i, int weight_on, const void * const weight, CCTK_I break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -743,7 +743,7 @@ int LocalReduce_Avg_INT2(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -973,8 +973,8 @@ int LocalReduce_Avg_INT2(int i, int weight_on, const void * const weight, CCTK_I break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -984,7 +984,7 @@ int LocalReduce_Avg_INT4(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1214,8 +1214,8 @@ int LocalReduce_Avg_INT4(int i, int weight_on, const void * const weight, CCTK_I break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1225,7 +1225,7 @@ int LocalReduce_Avg_INT8(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1455,8 +1455,8 @@ int LocalReduce_Avg_INT8(int i, int weight_on, const void * const weight, CCTK_I break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1465,7 +1465,7 @@ int LocalReduce_Avg_REAL(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1695,8 +1695,8 @@ int LocalReduce_Avg_REAL(int i, int weight_on, const void * const weight, CCTK_I break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -1705,7 +1705,7 @@ int LocalReduce_Avg_REAL4(int i, int weight_on, const void * const weight, CCTK_ { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1935,8 +1935,8 @@ int LocalReduce_Avg_REAL4(int i, int weight_on, const void * const weight, CCTK_ break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1946,7 +1946,7 @@ int LocalReduce_Avg_REAL8(int i, int weight_on, const void * const weight, CCTK_ { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2177,8 +2177,8 @@ int LocalReduce_Avg_REAL8(int i, int weight_on, const void * const weight, CCTK_ break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2188,7 +2188,7 @@ int LocalReduce_Avg_REAL16(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2418,8 +2418,8 @@ int LocalReduce_Avg_REAL16(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2428,7 +2428,7 @@ int LocalReduce_Avg_COMPLEX(int i, int weight_on, const void * const weight, CCT { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2673,8 +2673,8 @@ int LocalReduce_Avg_COMPLEX(int i, int weight_on, const void * const weight, CCT break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -2684,7 +2684,7 @@ int LocalReduce_Avg_COMPLEX8(int i, int weight_on, const void * const weight, CC { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2929,8 +2929,8 @@ int LocalReduce_Avg_COMPLEX8(int i, int weight_on, const void * const weight, CC break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2940,7 +2940,7 @@ int LocalReduce_Avg_COMPLEX16(int i, int weight_on, const void * const weight, C { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3185,8 +3185,8 @@ int LocalReduce_Avg_COMPLEX16(int i, int weight_on, const void * const weight, C break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -3196,7 +3196,7 @@ int LocalReduce_Avg_COMPLEX32(int i, int weight_on, const void * const weight, C { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3441,8 +3441,8 @@ int LocalReduce_Avg_COMPLEX32(int i, int weight_on, const void * const weight, C break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif diff --git a/src/CountFunctions.c b/src/CountFunctions.c index 724d6db..8c10d0a 100644 --- a/src/CountFunctions.c +++ b/src/CountFunctions.c @@ -21,7 +21,7 @@ int LocalReduce_Count_BYTE(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -259,7 +259,7 @@ int LocalReduce_Count_INT(int i, int weight_on, const void * const weight, CCTK_ { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -495,7 +495,7 @@ int LocalReduce_Count_INT1(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -734,7 +734,7 @@ int LocalReduce_Count_INT2(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -973,7 +973,7 @@ int LocalReduce_Count_INT4(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1212,7 +1212,7 @@ int LocalReduce_Count_INT8(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1450,7 +1450,7 @@ int LocalReduce_Count_REAL(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1688,7 +1688,7 @@ int LocalReduce_Count_REAL4(int i, int weight_on, const void * const weight, CCT { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1927,7 +1927,7 @@ int LocalReduce_Count_REAL8(int i, int weight_on, const void * const weight, CCT { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2167,7 +2167,7 @@ int LocalReduce_Count_REAL16(int i, int weight_on, const void * const weight, CC { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2405,7 +2405,7 @@ int LocalReduce_Count_COMPLEX(int i, int weight_on, const void * const weight, C { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2659,7 +2659,7 @@ int LocalReduce_Count_COMPLEX8(int i, int weight_on, const void * const weight, { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2913,7 +2913,7 @@ int LocalReduce_Count_COMPLEX16(int i, int weight_on, const void * const weight, { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3167,7 +3167,7 @@ int LocalReduce_Count_COMPLEX32(int i, int weight_on, const void * const weight, { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; diff --git a/src/MaxFunctions.c b/src/MaxFunctions.c index 9fd7d57..726d6bd 100644 --- a/src/MaxFunctions.c +++ b/src/MaxFunctions.c @@ -23,7 +23,7 @@ int LocalReduce_Max_BYTE(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -255,8 +255,8 @@ int LocalReduce_Max_BYTE(int i, int weight_on, const void * const weight, CCTK_I #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -264,7 +264,7 @@ int LocalReduce_Max_INT(int i, int weight_on, const void * const weight, CCTK_IN { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -492,8 +492,8 @@ int LocalReduce_Max_INT(int i, int weight_on, const void * const weight, CCTK_IN break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -502,7 +502,7 @@ int LocalReduce_Max_INT1(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -732,8 +732,8 @@ int LocalReduce_Max_INT1(int i, int weight_on, const void * const weight, CCTK_I break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -743,7 +743,7 @@ int LocalReduce_Max_INT2(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -973,8 +973,8 @@ int LocalReduce_Max_INT2(int i, int weight_on, const void * const weight, CCTK_I break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -984,7 +984,7 @@ int LocalReduce_Max_INT4(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1214,8 +1214,8 @@ int LocalReduce_Max_INT4(int i, int weight_on, const void * const weight, CCTK_I break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1225,7 +1225,7 @@ int LocalReduce_Max_INT8(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1455,8 +1455,8 @@ int LocalReduce_Max_INT8(int i, int weight_on, const void * const weight, CCTK_I break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1465,7 +1465,7 @@ int LocalReduce_Max_REAL(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1695,8 +1695,8 @@ int LocalReduce_Max_REAL(int i, int weight_on, const void * const weight, CCTK_I break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -1705,7 +1705,7 @@ int LocalReduce_Max_REAL4(int i, int weight_on, const void * const weight, CCTK_ { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1935,8 +1935,8 @@ int LocalReduce_Max_REAL4(int i, int weight_on, const void * const weight, CCTK_ break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1946,7 +1946,7 @@ int LocalReduce_Max_REAL8(int i, int weight_on, const void * const weight, CCTK_ { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2177,8 +2177,8 @@ int LocalReduce_Max_REAL8(int i, int weight_on, const void * const weight, CCTK_ break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2188,7 +2188,7 @@ int LocalReduce_Max_REAL16(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2418,8 +2418,8 @@ int LocalReduce_Max_REAL16(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2428,7 +2428,7 @@ int LocalReduce_Max_COMPLEX(int i, int weight_on, const void * const weight, CCT { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2673,8 +2673,8 @@ int LocalReduce_Max_COMPLEX(int i, int weight_on, const void * const weight, CCT break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -2684,7 +2684,7 @@ int LocalReduce_Max_COMPLEX8(int i, int weight_on, const void * const weight, CC { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2929,8 +2929,8 @@ int LocalReduce_Max_COMPLEX8(int i, int weight_on, const void * const weight, CC break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2940,7 +2940,7 @@ int LocalReduce_Max_COMPLEX16(int i, int weight_on, const void * const weight, C { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3185,8 +3185,8 @@ int LocalReduce_Max_COMPLEX16(int i, int weight_on, const void * const weight, C break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -3196,7 +3196,7 @@ int LocalReduce_Max_COMPLEX32(int i, int weight_on, const void * const weight, C { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3441,8 +3441,8 @@ int LocalReduce_Max_COMPLEX32(int i, int weight_on, const void * const weight, C break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif diff --git a/src/MinFunctions.c b/src/MinFunctions.c index f3b8204..998d666 100644 --- a/src/MinFunctions.c +++ b/src/MinFunctions.c @@ -21,7 +21,7 @@ int LocalReduce_Min_BYTE(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -252,8 +252,8 @@ int LocalReduce_Min_BYTE(int i, int weight_on, const void * const weight, CCTK_I break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -261,7 +261,7 @@ int LocalReduce_Min_INT(int i, int weight_on, const void * const weight, CCTK_IN { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -497,7 +497,7 @@ int LocalReduce_Min_INT1(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -736,7 +736,7 @@ int LocalReduce_Min_INT2(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -975,7 +975,7 @@ int LocalReduce_Min_INT4(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1214,7 +1214,7 @@ int LocalReduce_Min_INT8(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1452,7 +1452,7 @@ int LocalReduce_Min_REAL(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1690,7 +1690,7 @@ int LocalReduce_Min_REAL4(int i, int weight_on, const void * const weight, CCTK_ { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1929,7 +1929,7 @@ int LocalReduce_Min_REAL8(int i, int weight_on, const void * const weight, CCTK_ { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2169,7 +2169,7 @@ int LocalReduce_Min_REAL16(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2407,7 +2407,7 @@ int LocalReduce_Min_COMPLEX(int i, int weight_on, const void * const weight, CCT { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2661,7 +2661,7 @@ int LocalReduce_Min_COMPLEX8(int i, int weight_on, const void * const weight, CC { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2915,7 +2915,7 @@ int LocalReduce_Min_COMPLEX16(int i, int weight_on, const void * const weight, C { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3169,7 +3169,7 @@ int LocalReduce_Min_COMPLEX32(int i, int weight_on, const void * const weight, C { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; diff --git a/src/Norm1Functions.c b/src/Norm1Functions.c index 8f2082d..aabd7b6 100644 --- a/src/Norm1Functions.c +++ b/src/Norm1Functions.c @@ -22,7 +22,7 @@ int LocalReduce_Norm1_BYTE(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -290,8 +290,8 @@ int LocalReduce_Norm1_BYTE(int i, int weight_on, const void * const weight, CCTK #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -299,7 +299,7 @@ int LocalReduce_Norm1_INT(int i, int weight_on, const void * const weight, CCTK_ { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -564,8 +564,8 @@ int LocalReduce_Norm1_INT(int i, int weight_on, const void * const weight, CCTK_ #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -574,7 +574,7 @@ int LocalReduce_Norm1_INT1(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -841,8 +841,8 @@ int LocalReduce_Norm1_INT1(int i, int weight_on, const void * const weight, CCTK #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -852,7 +852,7 @@ int LocalReduce_Norm1_INT2(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1119,8 +1119,8 @@ int LocalReduce_Norm1_INT2(int i, int weight_on, const void * const weight, CCTK #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1130,7 +1130,7 @@ int LocalReduce_Norm1_INT4(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1397,8 +1397,8 @@ int LocalReduce_Norm1_INT4(int i, int weight_on, const void * const weight, CCTK #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1408,7 +1408,7 @@ int LocalReduce_Norm1_INT8(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1675,8 +1675,8 @@ int LocalReduce_Norm1_INT8(int i, int weight_on, const void * const weight, CCTK #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1685,7 +1685,7 @@ int LocalReduce_Norm1_REAL(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1952,8 +1952,8 @@ int LocalReduce_Norm1_REAL(int i, int weight_on, const void * const weight, CCTK #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -1962,7 +1962,7 @@ int LocalReduce_Norm1_REAL4(int i, int weight_on, const void * const weight, CCT { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2229,8 +2229,8 @@ int LocalReduce_Norm1_REAL4(int i, int weight_on, const void * const weight, CCT #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2240,7 +2240,7 @@ int LocalReduce_Norm1_REAL8(int i, int weight_on, const void * const weight, CCT { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2508,8 +2508,8 @@ int LocalReduce_Norm1_REAL8(int i, int weight_on, const void * const weight, CCT #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2519,7 +2519,7 @@ int LocalReduce_Norm1_REAL16(int i, int weight_on, const void * const weight, CC { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2786,8 +2786,8 @@ int LocalReduce_Norm1_REAL16(int i, int weight_on, const void * const weight, CC #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2796,7 +2796,7 @@ int LocalReduce_Norm1_COMPLEX(int i, int weight_on, const void * const weight, C { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3058,8 +3058,8 @@ int LocalReduce_Norm1_COMPLEX(int i, int weight_on, const void * const weight, C #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -3069,7 +3069,7 @@ int LocalReduce_Norm1_COMPLEX8(int i, int weight_on, const void * const weight, { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3281,8 +3281,8 @@ int LocalReduce_Norm1_COMPLEX8(int i, int weight_on, const void * const weight, #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -3292,7 +3292,7 @@ int LocalReduce_Norm1_COMPLEX16(int i, int weight_on, const void * const weight, { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3554,8 +3554,8 @@ int LocalReduce_Norm1_COMPLEX16(int i, int weight_on, const void * const weight, #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -3565,7 +3565,7 @@ int LocalReduce_Norm1_COMPLEX32(int i, int weight_on, const void * const weight, { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3777,8 +3777,8 @@ int LocalReduce_Norm1_COMPLEX32(int i, int weight_on, const void * const weight, #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif diff --git a/src/Norm2Functions.c b/src/Norm2Functions.c index bcbd458..d395f0f 100644 --- a/src/Norm2Functions.c +++ b/src/Norm2Functions.c @@ -22,7 +22,7 @@ int LocalReduce_Norm2_BYTE(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -290,8 +290,8 @@ int LocalReduce_Norm2_BYTE(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -299,7 +299,7 @@ int LocalReduce_Norm2_INT(int i, int weight_on, const void * const weight, CCTK_ { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -564,8 +564,8 @@ int LocalReduce_Norm2_INT(int i, int weight_on, const void * const weight, CCTK_ break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -574,7 +574,7 @@ int LocalReduce_Norm2_INT1(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -841,8 +841,8 @@ int LocalReduce_Norm2_INT1(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -852,7 +852,7 @@ int LocalReduce_Norm2_INT2(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1119,8 +1119,8 @@ int LocalReduce_Norm2_INT2(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1130,7 +1130,7 @@ int LocalReduce_Norm2_INT4(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1397,8 +1397,8 @@ int LocalReduce_Norm2_INT4(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1408,7 +1408,7 @@ int LocalReduce_Norm2_INT8(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1675,8 +1675,8 @@ int LocalReduce_Norm2_INT8(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1685,7 +1685,7 @@ int LocalReduce_Norm2_REAL(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1952,8 +1952,8 @@ int LocalReduce_Norm2_REAL(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -1962,7 +1962,7 @@ int LocalReduce_Norm2_REAL4(int i, int weight_on, const void * const weight, CCT { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2229,8 +2229,8 @@ int LocalReduce_Norm2_REAL4(int i, int weight_on, const void * const weight, CCT break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2240,7 +2240,7 @@ int LocalReduce_Norm2_REAL8(int i, int weight_on, const void * const weight, CCT { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2508,8 +2508,8 @@ int LocalReduce_Norm2_REAL8(int i, int weight_on, const void * const weight, CCT break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2519,7 +2519,7 @@ int LocalReduce_Norm2_REAL16(int i, int weight_on, const void * const weight, CC { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2786,8 +2786,8 @@ int LocalReduce_Norm2_REAL16(int i, int weight_on, const void * const weight, CC break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2796,7 +2796,7 @@ int LocalReduce_Norm2_COMPLEX(int i, int weight_on, const void * const weight, C { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3077,8 +3077,8 @@ int LocalReduce_Norm2_COMPLEX(int i, int weight_on, const void * const weight, C break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -3088,7 +3088,7 @@ int LocalReduce_Norm2_COMPLEX8(int i, int weight_on, const void * const weight, { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3369,8 +3369,8 @@ int LocalReduce_Norm2_COMPLEX8(int i, int weight_on, const void * const weight, break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -3380,7 +3380,7 @@ int LocalReduce_Norm2_COMPLEX16(int i, int weight_on, const void * const weight, { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3661,8 +3661,8 @@ int LocalReduce_Norm2_COMPLEX16(int i, int weight_on, const void * const weight, break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -3672,7 +3672,7 @@ int LocalReduce_Norm2_COMPLEX32(int i, int weight_on, const void * const weight, { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3953,8 +3953,8 @@ int LocalReduce_Norm2_COMPLEX32(int i, int weight_on, const void * const weight, break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif diff --git a/src/Norm3Functions.c b/src/Norm3Functions.c index c6598a5..e644db8 100644 --- a/src/Norm3Functions.c +++ b/src/Norm3Functions.c @@ -27,7 +27,7 @@ int LocalReduce_Norm3_BYTE(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -294,8 +294,8 @@ int LocalReduce_Norm3_BYTE(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -303,7 +303,7 @@ int LocalReduce_Norm3_INT(int i, int weight_on, const void * const weight, CCTK_ { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -567,8 +567,8 @@ int LocalReduce_Norm3_INT(int i, int weight_on, const void * const weight, CCTK_ break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -577,7 +577,7 @@ int LocalReduce_Norm3_INT1(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -843,8 +843,8 @@ int LocalReduce_Norm3_INT1(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -854,7 +854,7 @@ int LocalReduce_Norm3_INT2(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1120,8 +1120,8 @@ int LocalReduce_Norm3_INT2(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1131,7 +1131,7 @@ int LocalReduce_Norm3_INT4(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1397,8 +1397,8 @@ int LocalReduce_Norm3_INT4(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1408,7 +1408,7 @@ int LocalReduce_Norm3_INT8(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1674,8 +1674,8 @@ int LocalReduce_Norm3_INT8(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1684,7 +1684,7 @@ int LocalReduce_Norm3_REAL(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1950,8 +1950,8 @@ int LocalReduce_Norm3_REAL(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -1960,7 +1960,7 @@ int LocalReduce_Norm3_REAL4(int i, int weight_on, const void * const weight, CCT { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2226,8 +2226,8 @@ int LocalReduce_Norm3_REAL4(int i, int weight_on, const void * const weight, CCT break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2237,7 +2237,7 @@ int LocalReduce_Norm3_REAL8(int i, int weight_on, const void * const weight, CCT { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2504,8 +2504,8 @@ int LocalReduce_Norm3_REAL8(int i, int weight_on, const void * const weight, CCT break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2515,7 +2515,7 @@ int LocalReduce_Norm3_REAL16(int i, int weight_on, const void * const weight, CC { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2781,8 +2781,8 @@ int LocalReduce_Norm3_REAL16(int i, int weight_on, const void * const weight, CC break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2791,7 +2791,7 @@ int LocalReduce_Norm3_COMPLEX(int i, int weight_on, const void * const weight, C { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3072,8 +3072,8 @@ int LocalReduce_Norm3_COMPLEX(int i, int weight_on, const void * const weight, C break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -3083,7 +3083,7 @@ int LocalReduce_Norm3_COMPLEX8(int i, int weight_on, const void * const weight, { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3364,8 +3364,8 @@ int LocalReduce_Norm3_COMPLEX8(int i, int weight_on, const void * const weight, break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -3375,7 +3375,7 @@ int LocalReduce_Norm3_COMPLEX16(int i, int weight_on, const void * const weight, { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3656,8 +3656,8 @@ int LocalReduce_Norm3_COMPLEX16(int i, int weight_on, const void * const weight, break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -3667,7 +3667,7 @@ int LocalReduce_Norm3_COMPLEX32(int i, int weight_on, const void * const weight, { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3948,8 +3948,8 @@ int LocalReduce_Norm3_COMPLEX32(int i, int weight_on, const void * const weight, break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif diff --git a/src/Norm4Functions.c b/src/Norm4Functions.c index 2114b41..17651da 100644 --- a/src/Norm4Functions.c +++ b/src/Norm4Functions.c @@ -22,7 +22,7 @@ int LocalReduce_Norm4_BYTE(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -289,8 +289,8 @@ int LocalReduce_Norm4_BYTE(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -298,7 +298,7 @@ int LocalReduce_Norm4_INT(int i, int weight_on, const void * const weight, CCTK_ { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -562,8 +562,8 @@ int LocalReduce_Norm4_INT(int i, int weight_on, const void * const weight, CCTK_ break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -572,7 +572,7 @@ int LocalReduce_Norm4_INT1(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -838,8 +838,8 @@ int LocalReduce_Norm4_INT1(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -849,7 +849,7 @@ int LocalReduce_Norm4_INT2(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1115,8 +1115,8 @@ int LocalReduce_Norm4_INT2(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1126,7 +1126,7 @@ int LocalReduce_Norm4_INT4(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1392,8 +1392,8 @@ int LocalReduce_Norm4_INT4(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1403,7 +1403,7 @@ int LocalReduce_Norm4_INT8(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1669,8 +1669,8 @@ int LocalReduce_Norm4_INT8(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1679,7 +1679,7 @@ int LocalReduce_Norm4_REAL(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1945,8 +1945,8 @@ int LocalReduce_Norm4_REAL(int i, int weight_on, const void * const weight, CCTK break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -1955,7 +1955,7 @@ int LocalReduce_Norm4_REAL4(int i, int weight_on, const void * const weight, CCT { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2221,8 +2221,8 @@ int LocalReduce_Norm4_REAL4(int i, int weight_on, const void * const weight, CCT break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2232,7 +2232,7 @@ int LocalReduce_Norm4_REAL8(int i, int weight_on, const void * const weight, CCT { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2499,8 +2499,8 @@ int LocalReduce_Norm4_REAL8(int i, int weight_on, const void * const weight, CCT break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2510,7 +2510,7 @@ int LocalReduce_Norm4_REAL16(int i, int weight_on, const void * const weight, CC { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2776,8 +2776,8 @@ int LocalReduce_Norm4_REAL16(int i, int weight_on, const void * const weight, CC break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2786,7 +2786,7 @@ int LocalReduce_Norm4_COMPLEX(int i, int weight_on, const void * const weight, C { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3097,8 +3097,8 @@ int LocalReduce_Norm4_COMPLEX(int i, int weight_on, const void * const weight, C break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -3108,7 +3108,7 @@ int LocalReduce_Norm4_COMPLEX8(int i, int weight_on, const void * const weight, { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3412,8 +3412,8 @@ int LocalReduce_Norm4_COMPLEX8(int i, int weight_on, const void * const weight, break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -3423,7 +3423,7 @@ int LocalReduce_Norm4_COMPLEX16(int i, int weight_on, const void * const weight, { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3727,8 +3727,8 @@ int LocalReduce_Norm4_COMPLEX16(int i, int weight_on, const void * const weight, break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -3738,7 +3738,7 @@ int LocalReduce_Norm4_COMPLEX32(int i, int weight_on, const void * const weight, { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -4039,8 +4039,8 @@ int LocalReduce_Norm4_COMPLEX32(int i, int weight_on, const void * const weight, break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif diff --git a/src/NormInfFunctions.c b/src/NormInfFunctions.c index 0c61247..2897c96 100644 --- a/src/NormInfFunctions.c +++ b/src/NormInfFunctions.c @@ -22,7 +22,7 @@ int LocalReduce_NormInf_BYTE(int i, int weight_on, const void * const weight, CC { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -325,8 +325,8 @@ int LocalReduce_NormInf_BYTE(int i, int weight_on, const void * const weight, CC break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -334,7 +334,7 @@ int LocalReduce_NormInf_INT(int i, int weight_on, const void * const weight, CCT { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -634,8 +634,8 @@ int LocalReduce_NormInf_INT(int i, int weight_on, const void * const weight, CCT break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -644,7 +644,7 @@ int LocalReduce_NormInf_INT1(int i, int weight_on, const void * const weight, CC { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -946,8 +946,8 @@ int LocalReduce_NormInf_INT1(int i, int weight_on, const void * const weight, CC break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -957,7 +957,7 @@ int LocalReduce_NormInf_INT2(int i, int weight_on, const void * const weight, CC { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1259,8 +1259,8 @@ int LocalReduce_NormInf_INT2(int i, int weight_on, const void * const weight, CC break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1270,7 +1270,7 @@ int LocalReduce_NormInf_INT4(int i, int weight_on, const void * const weight, CC { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1572,8 +1572,8 @@ int LocalReduce_NormInf_INT4(int i, int weight_on, const void * const weight, CC break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1583,7 +1583,7 @@ int LocalReduce_NormInf_INT8(int i, int weight_on, const void * const weight, CC { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1885,8 +1885,8 @@ int LocalReduce_NormInf_INT8(int i, int weight_on, const void * const weight, CC break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -1895,7 +1895,7 @@ int LocalReduce_NormInf_REAL(int i, int weight_on, const void * const weight, CC { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2197,8 +2197,8 @@ int LocalReduce_NormInf_REAL(int i, int weight_on, const void * const weight, CC break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -2207,7 +2207,7 @@ int LocalReduce_NormInf_REAL4(int i, int weight_on, const void * const weight, C { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2509,8 +2509,8 @@ int LocalReduce_NormInf_REAL4(int i, int weight_on, const void * const weight, C break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2520,7 +2520,7 @@ int LocalReduce_NormInf_REAL8(int i, int weight_on, const void * const weight, C { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2823,8 +2823,8 @@ int LocalReduce_NormInf_REAL8(int i, int weight_on, const void * const weight, C break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -2834,7 +2834,7 @@ int LocalReduce_NormInf_REAL16(int i, int weight_on, const void * const weight, { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3136,8 +3136,8 @@ int LocalReduce_NormInf_REAL16(int i, int weight_on, const void * const weight, break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -3146,7 +3146,7 @@ int LocalReduce_NormInf_COMPLEX(int i, int weight_on, const void * const weight, { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3423,8 +3423,8 @@ int LocalReduce_NormInf_COMPLEX(int i, int weight_on, const void * const weight, break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } @@ -3434,7 +3434,7 @@ int LocalReduce_NormInf_COMPLEX8(int i, int weight_on, const void * const weight { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3691,8 +3691,8 @@ int LocalReduce_NormInf_COMPLEX8(int i, int weight_on, const void * const weight break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -3702,7 +3702,7 @@ int LocalReduce_NormInf_COMPLEX16(int i, int weight_on, const void * const weigh { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3979,8 +3979,8 @@ int LocalReduce_NormInf_COMPLEX16(int i, int weight_on, const void * const weigh break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif @@ -3990,7 +3990,7 @@ int LocalReduce_NormInf_COMPLEX32(int i, int weight_on, const void * const weigh { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -4257,8 +4257,8 @@ int LocalReduce_NormInf_COMPLEX32(int i, int weight_on, const void * const weigh break; #endif } - ierr = Util_TableSetInt(param_table_handle, num_points, "num_points"); - ierr = Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); + Util_TableSetInt(param_table_handle, num_points, "num_points"); + Util_TableSetReal(param_table_handle, weight_sum, "weight_sum"); return 0; } #endif diff --git a/src/SumFunctions.c b/src/SumFunctions.c index a01a5ce..588b595 100644 --- a/src/SumFunctions.c +++ b/src/SumFunctions.c @@ -22,7 +22,7 @@ int LocalReduce_Sum_BYTE(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -260,7 +260,7 @@ int LocalReduce_Sum_INT(int i, int weight_on, const void * const weight, CCTK_IN { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -496,7 +496,7 @@ int LocalReduce_Sum_INT1(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -735,7 +735,7 @@ int LocalReduce_Sum_INT2(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -974,7 +974,7 @@ int LocalReduce_Sum_INT4(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1213,7 +1213,7 @@ int LocalReduce_Sum_INT8(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1451,7 +1451,7 @@ int LocalReduce_Sum_REAL(int i, int weight_on, const void * const weight, CCTK_I { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1689,7 +1689,7 @@ int LocalReduce_Sum_REAL4(int i, int weight_on, const void * const weight, CCTK_ { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -1928,7 +1928,7 @@ int LocalReduce_Sum_REAL8(int i, int weight_on, const void * const weight, CCTK_ { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2168,7 +2168,7 @@ int LocalReduce_Sum_REAL16(int i, int weight_on, const void * const weight, CCTK { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2406,7 +2406,7 @@ int LocalReduce_Sum_COMPLEX(int i, int weight_on, const void * const weight, CCT { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2660,7 +2660,7 @@ int LocalReduce_Sum_COMPLEX8(int i, int weight_on, const void * const weight, CC { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -2914,7 +2914,7 @@ int LocalReduce_Sum_COMPLEX16(int i, int weight_on, const void * const weight, C { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; @@ -3168,7 +3168,7 @@ int LocalReduce_Sum_COMPLEX32(int i, int weight_on, const void * const weight, C { int iter = 0; int sum_indices = 0; - int flag, product, j, k, ierr; + int flag, product, j, k; /* Weight variables */ CCTK_REAL weight_sum = 0.0; -- cgit v1.2.3