diff options
Diffstat (limited to 'src/SumFunctions.c')
-rw-r--r-- | src/SumFunctions.c | 28 |
1 files changed, 14 insertions, 14 deletions
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; |