Lines Matching defs:extent

48             terminator_.Crash("%s: on dimension %d, SHIFT= has extent %jd but "
49                               "ARRAY= has extent %jd",
122     const Descriptor &source, int rank, const SubscriptValue extent[],
126   result.Establish(source.type(), elementLen, nullptr, rank, extent,
132     result.GetDimension(j).SetBounds(1, extent[j]);
145   SubscriptValue extent[maxRank];
147     extent[j] = 0;
150     extent[0] = n2 - n1 + 1;
154   result.Establish(TypeCode{CAT, KIND}, elementLen, nullptr, rank, extent,
157     result.GetDimension(j).SetBounds(1, extent[j]);
467   SubscriptValue extent[maxRank];
468   source.GetShape(extent);
469   AllocateResult(result, source, rank, extent, terminator, "CSHIFT");
476   SubscriptValue dimExtent{extent[dim - 1]};
506   SubscriptValue extent{sourceDim.Extent()};
507   AllocateResult(result, source, 1, &extent, terminator, "CSHIFT");
509   for (SubscriptValue j{0}; j < extent; ++j) {
512         lb + static_cast<SubscriptValue>(j + shift) % extent};
514       sourceAt += extent;
525   SubscriptValue extent[maxRank];
526   int rank{source.GetShape(extent)};
533       AllocateResult(result, source, rank, extent, terminator, "EOSHIFT")};
548           if (boundary->GetDimension(k).Extent() != extent[j]) {
549             terminator.Crash("EOSHIFT: BOUNDARY= has extent %jd on dimension "
550                              "%d but must conform with extent %jd of ARRAY=",
552                 k + 1, static_cast<std::intmax_t>(extent[j]));
574   SubscriptValue dimExtent{extent[dim - 1]};
606   SubscriptValue extent{source.GetDimension(0).Extent()};
608       AllocateResult(result, source, 1, &extent, terminator, "EOSHIFT")};
622   for (SubscriptValue j{1}; j <= extent; ++j) {
624     if (sourceAt >= lb && sourceAt < lb + extent) {
656   SubscriptValue extent{trues};
665     extent = vector->GetDimension(0).Extent();
666     if (extent < trues) {
667       terminator.Crash("PACK: VECTOR= has extent %jd but there are %jd MASK= "
669           static_cast<std::intmax_t>(extent),
673   AllocateResult(result, source, 1, &extent, terminator, "PACK");
699     for (; resultAt <= extent; ++resultAt, ++vectorAt) {
727     auto extent{GetInt64Safe(
729     if (!extent) {
731     } else if (*extent < 0) {
733           static_cast<std::intmax_t>(*extent));
735     resultExtent[j] = *extent;
764       terminator.Crash("RESHAPE: the extent of ORDER (%jd) must match the rank"
830   SubscriptValue extent[maxRank];
833     extent[j] = j == dim - 1 ? ncopies : source.GetDimension(k++).Extent();
835   AllocateResult(result, source, rank, extent, terminator, "SPREAD");
857   SubscriptValue extent[2]{
859   AllocateResult(result, matrix, 2, extent, terminator, "TRANSPOSE");
879   SubscriptValue extent[maxRank];
880   mask.GetShape(extent);
883       AllocateResult(result, field, rank, extent, terminator, "UNPACK")};