86   SubscriptValue ub[maxRank], xAt[maxRank], yAt[maxRank];  in Compare()  local
98       ub[j] = xUB;  in Compare()
100       ub[j] = (x.rank() ? x : y).GetDimension(j).Extent();  in Compare()
102     elements *= ub[j];  in Compare()
107       TypeCategory::Logical, 1, nullptr, rank, ub, CFI_attribute_allocatable);  in Compare()
109     result.GetDimension(j).SetBounds(1, ub[j]);  in Compare()
152   SubscriptValue ub[maxRank], stringAt[maxRank];  in AdjustLRHelper()  local
155     ub[j] = string.GetDimension(j).Extent();  in AdjustLRHelper()
156     elements *= ub[j];  in AdjustLRHelper()
161   result.Establish(string.type(), elementBytes, nullptr, rank, ub,  in AdjustLRHelper()
164     result.GetDimension(j).SetBounds(1, ub[j]);  in AdjustLRHelper()
208   SubscriptValue ub[maxRank], stringAt[maxRank];  in LenTrim()  local
211     ub[j] = string.GetDimension(j).Extent();  in LenTrim()
212     elements *= ub[j];  in LenTrim()
215   result.Establish(TypeCategory::Integer, sizeof(INT), nullptr, rank, ub,  in LenTrim()
218     result.GetDimension(j).SetBounds(1, ub[j]);  in LenTrim()
381   SubscriptValue ub[maxRank], stringAt[maxRank], argAt[maxRank],  in GeneralCharFunc()  local
385     ub[j] = string.rank() ? string.GetDimension(j).Extent()  in GeneralCharFunc()
389     elements *= ub[j];  in GeneralCharFunc()
396   result.Establish(TypeCategory::Integer, sizeof(INT), nullptr, rank, ub,  in GeneralCharFunc()
399     result.GetDimension(j).SetBounds(1, ub[j]);  in GeneralCharFunc()
488   SubscriptValue ub[maxRank], xAt[maxRank];  in MaxMinHelper()  local
498       ub[j] = x.GetDimension(j).Extent();  in MaxMinHelper()
501         if (accumExt != ub[j]) {  in MaxMinHelper()
505               static_cast<std::intmax_t>(ub[j]));  in MaxMinHelper()
509       ub[j] = accumulator.GetDimension(j).Extent();  in MaxMinHelper()
511     elements *= ub[j];  in MaxMinHelper()
521       accumulator.GetDimension(j).SetBounds(1, ub[j]);  in MaxMinHelper()
571   SubscriptValue ub[maxRank], fromAt[maxRank];  in RTNAME()  local
575       ub[j] = accumulator.GetDimension(j).Extent();  in RTNAME()
577       if (ub[j] != fromUB) {  in RTNAME()
580             j + 1, static_cast<std::intmax_t>(ub[j]),  in RTNAME()
584       ub[j] =  in RTNAME()
587     elements *= ub[j];  in RTNAME()
596     accumulator.GetDimension(j).SetBounds(1, ub[j]);  in RTNAME()
631   SubscriptValue ub[maxRank], lhsAt[maxRank], rhsAt[maxRank];  in RTNAME()  local
642       ub[j] = lhsAt[j] + rhsExt - 1;  in RTNAME()
655       ub[j] = lhs.GetDimension(j).UpperBound();  in RTNAME()
657     elements *= ub[j] - lhsAt[j] + 1;  in RTNAME()
668         ub[j] = rhs.GetDimension(j).UpperBound();  in RTNAME()
669         lhs.GetDimension(j).SetBounds(lhsAt[j], ub[j]);  in RTNAME()