Lines Matching defs:rank
47 index_type rank;
51 rank = GFC_DESCRIPTOR_RANK (array);
52 if (rank <= 0)
53 runtime_error ("Rank of array needs to be > 0");
57 GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
58 retarray->dtype.rank = 1;
60 retarray->base_addr = xmallocarray (rank, sizeof (index_type));
73 for (n = 0; n < rank; n++)
77 for (n = 0; n < rank; n++)
86 for (n = 0; n < rank; n++)
99 for (n = 0; n < rank; n++)
117 if (n >= rank)
136 for (n = 0; n < rank; n++)
154 if (n >= rank)
185 index_type rank;
190 rank = GFC_DESCRIPTOR_RANK (array);
191 if (rank <= 0)
192 runtime_error ("Rank of array needs to be > 0");
196 GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
197 retarray->dtype.rank = 1;
199 retarray->base_addr = xmallocarray (rank, sizeof (index_type));
229 for (n = 0; n < rank; n++)
233 for (n = 0; n < rank; n++)
243 for (n = 0; n < rank; n++)
256 for (n = 0; n < rank; n++)
276 if (n >= rank)
296 for (n = 0; n < rank; n++)
316 if (n >= rank)
340 index_type rank;
351 rank = GFC_DESCRIPTOR_RANK (array);
353 if (rank <= 0)
354 internal_error (NULL, "Rank of array needs to be > 0");
358 GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
359 retarray->dtype.rank = 1;
361 retarray->base_addr = xmallocarray (rank, sizeof (index_type));
371 for (n = 0; n<rank; n++)
Indexes created Sun Mar 01 05:31:48 UTC 2026