Lines Matching refs:dim
78 const char *source, int line, int dim, const Descriptor *mask) { in RTNAME()
79 return GetTotalReduction<TypeCategory::Integer, 1>(x, source, line, dim, mask, in RTNAME()
83 const char *source, int line, int dim, const Descriptor *mask) { in RTNAME()
84 return GetTotalReduction<TypeCategory::Integer, 2>(x, source, line, dim, mask, in RTNAME()
88 const char *source, int line, int dim, const Descriptor *mask) { in RTNAME()
89 return GetTotalReduction<TypeCategory::Integer, 4>(x, source, line, dim, mask, in RTNAME()
93 const char *source, int line, int dim, const Descriptor *mask) { in RTNAME()
94 return GetTotalReduction<TypeCategory::Integer, 8>(x, source, line, dim, mask, in RTNAME()
99 const char *source, int line, int dim, const Descriptor *mask) { in RTNAME()
100 return GetTotalReduction<TypeCategory::Integer, 16>(x, source, line, dim, in RTNAME()
105 void RTNAME(IAllDim)(Descriptor &result, const Descriptor &x, int dim, in RTNAME()
112 result, x, dim, catKind->second, mask, "IALL", terminator); in RTNAME()
116 const char *source, int line, int dim, const Descriptor *mask) { in RTNAME()
117 return GetTotalReduction<TypeCategory::Integer, 1>(x, source, line, dim, mask, in RTNAME()
121 const char *source, int line, int dim, const Descriptor *mask) { in RTNAME()
122 return GetTotalReduction<TypeCategory::Integer, 2>(x, source, line, dim, mask, in RTNAME()
126 const char *source, int line, int dim, const Descriptor *mask) { in RTNAME()
127 return GetTotalReduction<TypeCategory::Integer, 4>(x, source, line, dim, mask, in RTNAME()
131 const char *source, int line, int dim, const Descriptor *mask) { in RTNAME()
132 return GetTotalReduction<TypeCategory::Integer, 8>(x, source, line, dim, mask, in RTNAME()
137 const char *source, int line, int dim, const Descriptor *mask) { in RTNAME()
138 return GetTotalReduction<TypeCategory::Integer, 16>(x, source, line, dim, in RTNAME()
143 void RTNAME(IAnyDim)(Descriptor &result, const Descriptor &x, int dim, in RTNAME()
150 result, x, dim, catKind->second, mask, "IANY", terminator); in RTNAME()
154 const char *source, int line, int dim, const Descriptor *mask) { in RTNAME()
155 return GetTotalReduction<TypeCategory::Integer, 1>(x, source, line, dim, mask, in RTNAME()
160 const char *source, int line, int dim, const Descriptor *mask) { in RTNAME()
161 return GetTotalReduction<TypeCategory::Integer, 2>(x, source, line, dim, mask, in RTNAME()
166 const char *source, int line, int dim, const Descriptor *mask) { in RTNAME()
167 return GetTotalReduction<TypeCategory::Integer, 4>(x, source, line, dim, mask, in RTNAME()
172 const char *source, int line, int dim, const Descriptor *mask) { in RTNAME()
173 return GetTotalReduction<TypeCategory::Integer, 8>(x, source, line, dim, mask, in RTNAME()
179 const char *source, int line, int dim, const Descriptor *mask) { in RTNAME()
180 return GetTotalReduction<TypeCategory::Integer, 16>(x, source, line, dim, in RTNAME()
185 void RTNAME(IParityDim)(Descriptor &result, const Descriptor &x, int dim, in RTNAME()
192 result, x, dim, catKind->second, mask, "IPARITY", terminator); in RTNAME()
227 int line, int dim, ACCUMULATOR &&accumulator, const char *intrinsic) -> in GetTotalLogicalReduction() argument
230 if (dim < 0 || dim > 1) { in GetTotalLogicalReduction()
231 terminator.Crash("%s: bad DIM=%d for ARRAY with rank=1", intrinsic, dim); in GetTotalLogicalReduction()
249 const auto &dim{x.GetDimension(zeroBasedDim)}; in ReduceLogicalDimToScalar() local
250 SubscriptValue at{dim.LowerBound()}; in ReduceLogicalDimToScalar()
251 for (auto n{dim.Extent()}; n-- > 0; ++at) { in ReduceLogicalDimToScalar()
262 void operator()(Descriptor &result, const Descriptor &x, int dim, in operator ()()
266 result, x, dim, terminator, intrinsic, x.type()); in operator ()()
274 x, dim - 1, at); in operator ()()
282 int dim, Terminator &terminator, const char *intrinsic) { in DoReduceLogicalDimension() argument
286 catKind->second, terminator, result, x, dim, terminator, intrinsic); in DoReduceLogicalDimension()
311 void operator()(Descriptor &result, const Descriptor &x, int dim, in operator ()()
313 CreatePartialReductionResult(result, x, dim, terminator, "COUNT", in operator ()()
321 ReduceLogicalDimToScalar<CountAccumulator>(x, dim - 1, at); in operator ()()
328 bool RTNAME(All)(const Descriptor &x, const char *source, int line, int dim) { in RTNAME()
329 return GetTotalLogicalReduction(x, source, line, dim, in RTNAME()
332 void RTNAME(AllDim)(Descriptor &result, const Descriptor &x, int dim, in RTNAME()
336 result, x, dim, terminator, "ALL"); in RTNAME()
339 bool RTNAME(Any)(const Descriptor &x, const char *source, int line, int dim) { in RTNAME()
340 return GetTotalLogicalReduction(x, source, line, dim, in RTNAME()
343 void RTNAME(AnyDim)(Descriptor &result, const Descriptor &x, int dim, in RTNAME()
347 result, x, dim, terminator, "ANY"); in RTNAME()
351 const Descriptor &x, const char *source, int line, int dim) { in RTNAME()
353 x, source, line, dim, CountAccumulator{x}, "COUNT"); in RTNAME()
356 void RTNAME(CountDim)(Descriptor &result, const Descriptor &x, int dim, in RTNAME()
360 kind, terminator, result, x, dim, terminator); in RTNAME()
364 const Descriptor &x, const char *source, int line, int dim) { in RTNAME()
365 return GetTotalLogicalReduction(x, source, line, dim, in RTNAME()
368 void RTNAME(ParityDim)(Descriptor &result, const Descriptor &x, int dim, in RTNAME()
372 result, x, dim, terminator, "PARITY"); in RTNAME()