30 extern void findloc1_i1 (gfc_array_index_type * const restrict retarray,
36 findloc1_i1 (gfc_array_index_type * const restrict retarray,  in findloc1_i1()  argument
86   if (retarray->base_addr == NULL)  in findloc1_i1()
95 	    str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1];  in findloc1_i1()
97 	  GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str);  in findloc1_i1()
101       retarray->offset = 0;  in findloc1_i1()
102       retarray->dtype.rank = rank;  in findloc1_i1()
104       alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];  in findloc1_i1()
106       retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));  in findloc1_i1()
110 	  GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);  in findloc1_i1()
116       if (rank != GFC_DESCRIPTOR_RANK (retarray))  in findloc1_i1()
119 		       (long int) (GFC_DESCRIPTOR_RANK (retarray)),  in findloc1_i1()
123 	bounds_ifunction_return ((array_t *) retarray, extent,  in findloc1_i1()
130       dstride[n] = GFC_DESCRIPTOR_STRIDE(retarray,n);  in findloc1_i1()
135   dest = retarray->base_addr;  in findloc1_i1()
195 extern void mfindloc1_i1 (gfc_array_index_type * const restrict retarray,
202 mfindloc1_i1 (gfc_array_index_type * const restrict retarray,  in mfindloc1_i1()  argument
274   if (retarray->base_addr == NULL)  in mfindloc1_i1()
283 	    str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1];  in mfindloc1_i1()
285 	  GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str);  in mfindloc1_i1()
289       retarray->offset = 0;  in mfindloc1_i1()
290       retarray->dtype.rank = rank;  in mfindloc1_i1()
292       alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];  in mfindloc1_i1()
294       retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));  in mfindloc1_i1()
298 	  GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);  in mfindloc1_i1()
304       if (rank != GFC_DESCRIPTOR_RANK (retarray))  in mfindloc1_i1()
307 		       (long int) (GFC_DESCRIPTOR_RANK (retarray)),  in mfindloc1_i1()
311 	bounds_ifunction_return ((array_t *) retarray, extent,  in mfindloc1_i1()
318       dstride[n] = GFC_DESCRIPTOR_STRIDE(retarray,n);  in mfindloc1_i1()
323   dest = retarray->base_addr;  in mfindloc1_i1()
388 extern void sfindloc1_i1 (gfc_array_index_type * const restrict retarray,
395 sfindloc1_i1 (gfc_array_index_type * const restrict retarray,  in sfindloc1_i1()  argument
412       findloc1_i1 (retarray, array, value, pdim, back);  in sfindloc1_i1()
448   if (retarray->base_addr == NULL)  in sfindloc1_i1()
457 	    str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1];  in sfindloc1_i1()
459 	  GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str);  in sfindloc1_i1()
462       retarray->offset = 0;  in sfindloc1_i1()
463       retarray->dtype.rank = rank;  in sfindloc1_i1()
465       alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];  in sfindloc1_i1()
467       retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));  in sfindloc1_i1()
471 	  GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1);  in sfindloc1_i1()
477       if (rank != GFC_DESCRIPTOR_RANK (retarray))  in sfindloc1_i1()
480 		       (long int) (GFC_DESCRIPTOR_RANK (retarray)),  in sfindloc1_i1()
484 	bounds_ifunction_return ((array_t *) retarray, extent,  in sfindloc1_i1()
491       dstride[n] = GFC_DESCRIPTOR_STRIDE(retarray,n);  in sfindloc1_i1()
495   dest = retarray->base_addr;  in sfindloc1_i1()