168     SubscriptValue &sourceDim{sourceAt[dim - 1]};  in RTNAME()  local
169     sourceDim = dimLB + shiftCount % dimExtent;  in RTNAME()
170     if (sourceDim < dimLB) {  in RTNAME()
171       sourceDim += dimExtent;  in RTNAME()
175       if (++sourceDim == dimLB + dimExtent) {  in RTNAME()
176         sourceDim = dimLB;  in RTNAME()
188   const Dimension &sourceDim{source.GetDimension(0)};  in RTNAME()  local
189   SubscriptValue extent{sourceDim.Extent()};  in RTNAME()
191   SubscriptValue lb{sourceDim.LowerBound()};  in RTNAME()
265     SubscriptValue &sourceDim{sourceAt[dim - 1]};  in RTNAME()  local
266     sourceDim = dimLB + shiftCount;  in RTNAME()
268       if (sourceDim >= dimLB && sourceDim < dimLB + dimExtent) {  in RTNAME()
273       ++sourceDim;  in RTNAME()