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++)
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++)
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;