31 typedef GFC_FULL_ARRAY_DESCRIPTOR(1, index_type) shape_type;
49   index_type rcount[GFC_MAX_DIMENSIONS];  in reshape_c17()
50   index_type rextent[GFC_MAX_DIMENSIONS];  in reshape_c17()
51   index_type rstride[GFC_MAX_DIMENSIONS];  in reshape_c17()
52   index_type rstride0;  in reshape_c17()
53   index_type rdim;  in reshape_c17()
54   index_type rsize;  in reshape_c17()
55   index_type rs;  in reshape_c17()
56   index_type rex;  in reshape_c17()
59   index_type scount[GFC_MAX_DIMENSIONS];  in reshape_c17()
60   index_type sextent[GFC_MAX_DIMENSIONS];  in reshape_c17()
61   index_type sstride[GFC_MAX_DIMENSIONS];  in reshape_c17()
62   index_type sstride0;  in reshape_c17()
63   index_type sdim;  in reshape_c17()
64   index_type ssize;  in reshape_c17()
67   index_type pcount[GFC_MAX_DIMENSIONS];  in reshape_c17()
68   index_type pextent[GFC_MAX_DIMENSIONS];  in reshape_c17()
69   index_type pstride[GFC_MAX_DIMENSIONS];  in reshape_c17()
70   index_type pdim;  in reshape_c17()
71   index_type psize;  in reshape_c17()
76   index_type shape_data[GFC_MAX_DIMENSIONS];  in reshape_c17()
88   for (index_type n = 0; n < rdim; n++)  in reshape_c17()
100       index_type alloc_size;  in reshape_c17()
103       for (index_type n = 0; n < rdim; n++)  in reshape_c17()
130       for (index_type n = 0; n < pdim; n++)  in reshape_c17()
158       index_type ret_extent, source_extent;  in reshape_c17()
161       for (index_type n = 0; n < rdim; n++)  in reshape_c17()
174       for (index_type n = 0; n < sdim; n++)  in reshape_c17()
176 	  index_type se;  in reshape_c17()
189 	  index_type v;  in reshape_c17()
191 	  for (index_type n = 0; n < rdim; n++)  in reshape_c17()
194 	  for (index_type n = 0; n < rdim; n++)  in reshape_c17()
212   for (index_type n = 0; n < rdim; n++)  in reshape_c17()
214       index_type dim;  in reshape_c17()
245   for (index_type n = 0; n < sdim; n++)  in reshape_c17()
285       for (index_type dim = 0; dim < pdim; dim++)  in reshape_c17()
305       index_type n = 0;  in reshape_c17()
345                   for (index_type dim = 0; dim < pdim; dim++)  in reshape_c17()