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