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