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