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