34 	const gfc_array_char * const restrict array,  in cshift1()  argument
71   if (which < 0 || (which + 1) > GFC_DESCRIPTOR_RANK (array))  in cshift1()
74   size = GFC_DESCRIPTOR_SIZE(array);  in cshift1()
76   arraysize = size0 ((array_t *)array);  in cshift1()
82       GFC_DTYPE_COPY(ret,array);  in cshift1()
83       for (index_type i = 0; i < GFC_DESCRIPTOR_RANK (array); i++)  in cshift1()
87           ub = GFC_DESCRIPTOR_EXTENT(array,i) - 1;  in cshift1()
100       bounds_equal_extents ((array_t *) ret, (array_t *) array,  in cshift1()
106       bounds_reduced_extents ((array_t *) h, (array_t *) array, which,  in cshift1()
115   type_size = GFC_DTYPE_TYPE_SIZE (array);  in cshift1()
121       cshift1_8_i1 ((gfc_array_i1 *)ret, (gfc_array_i1 *) array,  in cshift1()
127       cshift1_8_i2 ((gfc_array_i2 *)ret, (gfc_array_i2 *) array,  in cshift1()
133       cshift1_8_i4 ((gfc_array_i4 *)ret, (gfc_array_i4 *) array,  in cshift1()
139       cshift1_8_i8 ((gfc_array_i8 *)ret, (gfc_array_i8 *) array,  in cshift1()
146       cshift1_8_i16 ((gfc_array_i16 *)ret, (gfc_array_i16 *) array,  in cshift1()
152       cshift1_8_r4 ((gfc_array_r4 *)ret, (gfc_array_r4 *) array,  in cshift1()
157       cshift1_8_r8 ((gfc_array_r8 *)ret, (gfc_array_r8 *) array,  in cshift1()
163       cshift1_8_r10 ((gfc_array_r10 *)ret, (gfc_array_r10 *) array,  in cshift1()
170       cshift1_8_r16 ((gfc_array_r16 *)ret, (gfc_array_r16 *) array,  in cshift1()
176       cshift1_8_c4 ((gfc_array_c4 *)ret, (gfc_array_c4 *) array,  in cshift1()
181       cshift1_8_c8 ((gfc_array_c8 *)ret, (gfc_array_c8 *) array,  in cshift1()
187       cshift1_8_c10 ((gfc_array_c10 *)ret, (gfc_array_c10 *) array,  in cshift1()
194       cshift1_8_c16 ((gfc_array_c16 *)ret, (gfc_array_c16 *) array,  in cshift1()
213   for (dim = 0; dim < GFC_DESCRIPTOR_RANK (array); dim++)  in cshift1()
220           soffset = GFC_DESCRIPTOR_STRIDE_BYTES(array,dim);  in cshift1()
223           len = GFC_DESCRIPTOR_EXTENT(array,dim);  in cshift1()
228           extent[n] = GFC_DESCRIPTOR_EXTENT(array,dim);  in cshift1()
230           sstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(array,dim);  in cshift1()
243   dim = GFC_DESCRIPTOR_RANK (array);  in cshift1()
248   sptr = array->base_addr;  in cshift1()
333 	const gfc_array_char * const restrict array,  in cshift1_8()  argument
337   cshift1 (ret, array, h, pwhich);  in cshift1_8()
343 	const gfc_array_char * const restrict array,
352 	const gfc_array_char * const restrict array,  in cshift1_8_char()  argument
357   cshift1 (ret, array, h, pwhich);  in cshift1_8_char()
363 	const gfc_array_char * const restrict array,
372 	const gfc_array_char * const restrict array,  in cshift1_8_char4()  argument
377   cshift1 (ret, array, h, pwhich);  in cshift1_8_char4()