OpenGrok

50   index_type dim;
76       dim = GFC_DESCRIPTOR_RANK (array);
77       for (n = 0; n < dim; n ++)
113 	 we can used a more blocked algorithm for dim>1.  */
121       for (dim = which + 1; dim < GFC_DESCRIPTOR_RANK (array); dim++)
124 	  extent[n] = GFC_DESCRIPTOR_EXTENT(array,dim);
125 	  rstride[n] = GFC_DESCRIPTOR_STRIDE(ret,dim);
126 	  sstride[n] = GFC_DESCRIPTOR_STRIDE(array,dim);
129       dim = GFC_DESCRIPTOR_RANK (array) - which;
133       for (dim = 0; dim < GFC_DESCRIPTOR_RANK (array); dim++)
135 	  if (dim == which)
137 	      roffset = GFC_DESCRIPTOR_STRIDE(ret,dim);
140 	      soffset = GFC_DESCRIPTOR_STRIDE(array,dim);
143 	      len = GFC_DESCRIPTOR_EXTENT(array,dim);
148 	      extent[n] = GFC_DESCRIPTOR_EXTENT(array,dim);
149 	      rstride[n] = GFC_DESCRIPTOR_STRIDE(ret,dim);
150 	      sstride[n] = GFC_DESCRIPTOR_STRIDE(array,dim);
159       dim = GFC_DESCRIPTOR_RANK (array);
224           if (n >= dim - 1)

Indexes created Sun Sep 13 00:25:22 UTC 2026