aboutsummaryrefslogtreecommitdiff
path: root/src/Norm1Functions.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/Norm1Functions.c')
-rw-r--r--src/Norm1Functions.c84
1 files changed, 42 insertions, 42 deletions
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
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-18 17:08:29 +0000