Lines Matching refs:rank
373 if (count >= array->data.array.rank)
381 if (count < array->data.array.rank)
2617 long rank = 0, count = 1, offset, zero, c;
2636 rank = 1;
2642 for (rank = 0; CONSP(dim); rank++, dim = CDR(dim)) {
2651 rank = count = 0;
2686 if (rank) {
2731 if (rank == 0)
2733 else if (rank == 1) {
2750 dims = LispMalloc(sizeof(int) * rank);
2751 loop = LispCalloc(1, sizeof(int) * (rank - 1));
2757 for (obj = initial_contents, i = 0; i < rank - 1; i++) {
2774 for (k = 0; k < dims[rank - 1]; obj = CDR(obj), k++) {
2790 memset(loop, 0, sizeof(int) * (rank - 1));
2796 for (obj = initial_contents, i = 0; i < rank - 1; i++) {
2810 for (k = 0; k < dims[rank - 1]; obj = CDR(obj), k++) {
2844 obj->data.array.rank = rank;
5281 result->data.array.rank = sequence->data.array.rank;
6147 object->data.array.rank = 1;
6929 long rank, count, sequence, offset, accum;
6937 for (rank = 0, list = values;
6939 list = CDR(list), rank++) {
6943 if (rank == 0)
6947 if (STRINGP(array) && rank == 1) {
6968 if (rank != array->data.array.rank)
6970 rank < array->data.array.rank ? "few" : "many");