117     const Descriptor &source, int rank, const SubscriptValue extent[],  in AllocateResult()  argument
121   result.Establish(source.type(), elementLen, nullptr, rank, extent,  in AllocateResult()
127     result.GetDimension(j).SetBounds(1, extent[j]);  in AllocateResult()
150   SubscriptValue extent[maxRank];  in RTNAME()  local
151   source.GetShape(extent);  in RTNAME()
152   AllocateResult(result, source, rank, extent, terminator, "CSHIFT");  in RTNAME()
159   SubscriptValue dimExtent{extent[dim - 1]};  in RTNAME()
189   SubscriptValue extent{sourceDim.Extent()};  in RTNAME()  local
190   AllocateResult(result, source, 1, &extent, terminator, "CSHIFT");  in RTNAME()
192   for (SubscriptValue j{0}; j < extent; ++j) {  in RTNAME()
194     SubscriptValue sourceAt{lb + (j + shift) % extent};  in RTNAME()
196       sourceAt += extent;  in RTNAME()
207   SubscriptValue extent[maxRank];  in RTNAME()  local
208   int rank{source.GetShape(extent)};  in RTNAME()
215       AllocateResult(result, source, rank, extent, terminator, "EOSHIFT")};  in RTNAME()
230           if (boundary->GetDimension(k).Extent() != extent[j]) {  in RTNAME()
234                 k + 1, static_cast<std::intmax_t>(extent[j]));  in RTNAME()
256   SubscriptValue dimExtent{extent[dim - 1]};  in RTNAME()
288   SubscriptValue extent{source.GetDimension(0).Extent()};  in RTNAME()  local
290       AllocateResult(result, source, 1, &extent, terminator, "EOSHIFT")};  in RTNAME()
304   for (SubscriptValue j{1}; j <= extent; ++j) {  in RTNAME()
306     if (sourceAt >= lb && sourceAt < lb + extent) {  in RTNAME()
338   SubscriptValue extent{trues};  in RTNAME()  local
347     extent = vector->GetDimension(0).Extent();  in RTNAME()
348     if (extent < trues) {  in RTNAME()
351           static_cast<std::intmax_t>(extent),  in RTNAME()
355   AllocateResult(result, source, 1, &extent, terminator, "PACK");  in RTNAME()
381     for (; resultAt <= extent; ++resultAt, ++vectorAt) {  in RTNAME()
507   SubscriptValue extent[maxRank];  in RTNAME()  local
510     extent[j] = j == dim - 1 ? ncopies : source.GetDimension(k++).Extent();  in RTNAME()
512   AllocateResult(result, source, rank, extent, terminator, "SPREAD");  in RTNAME()
534   SubscriptValue extent[2]{  in RTNAME()  local
536   AllocateResult(result, matrix, 2, extent, terminator, "TRANSPOSE");  in RTNAME()
556   SubscriptValue extent[maxRank];  in RTNAME()  local
557   mask.GetShape(extent);  in RTNAME()
560       AllocateResult(result, field, rank, extent, terminator, "UNPACK")};  in RTNAME()