if (retarray->dim[0].ubound + 1 - retarray->dim[0].lbound != rank)
runtime_error ("dimension of return array incorrect");
-
- if (retarray->dim[0].stride == 0)
- retarray->dim[0].stride = 1;
}
- /* TODO: It should be a front end job to correctly set the strides. */
-
- if (array->dim[0].stride == 0)
- array->dim[0].stride = 1;
-
dstride = retarray->dim[0].stride;
dest = retarray->data;
for (n = 0; n < rank; n++)
the next dimension. */
count[n] = 0;
/* We could precalculate these products, but this is a less
- frequently used path so proabably not worth it. */
+ frequently used path so probably not worth it. */
base -= sstride[n] * extent[n];
n++;
if (n == rank)
if (retarray->dim[0].ubound + 1 - retarray->dim[0].lbound != rank)
runtime_error ("dimension of return array incorrect");
-
- if (retarray->dim[0].stride == 0)
- retarray->dim[0].stride = 1;
}
- /* TODO: It should be a front end job to correctly set the strides. */
-
- if (array->dim[0].stride == 0)
- array->dim[0].stride = 1;
-
- if (mask->dim[0].stride == 0)
- mask->dim[0].stride = 1;
-
dstride = retarray->dim[0].stride;
dest = retarray->data;
for (n = 0; n < rank; n++)
the next dimension. */
count[n] = 0;
/* We could precalculate these products, but this is a less
- frequently used path so proabably not worth it. */
+ frequently used path so probably not worth it. */
base -= sstride[n] * extent[n];
mbase -= mstride[n] * extent[n];
n++;
if (retarray->dim[0].ubound + 1 - retarray->dim[0].lbound != rank)
runtime_error ("dimension of return array incorrect");
-
- if (retarray->dim[0].stride == 0)
- retarray->dim[0].stride = 1;
}
dstride = retarray->dim[0].stride;