#if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_LOGICAL_16)
-extern void all_l16 (gfc_array_l16 *, gfc_array_l16 *, index_type *);
+extern void all_l16 (gfc_array_l16 * const restrict,
+ gfc_array_l16 * const restrict, const index_type * const restrict);
export_proto(all_l16);
void
-all_l16 (gfc_array_l16 *retarray, gfc_array_l16 *array, index_type *pdim)
+all_l16 (gfc_array_l16 * const restrict retarray,
+ gfc_array_l16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_LOGICAL_16 *base;
- GFC_LOGICAL_16 *dest;
+ const GFC_LOGICAL_16 * restrict base;
+ GFC_LOGICAL_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_LOGICAL_16 *src;
+ const GFC_LOGICAL_16 * restrict src;
GFC_LOGICAL_16 result;
src = base;
{
#if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_LOGICAL_4)
-extern void all_l4 (gfc_array_l4 *, gfc_array_l4 *, index_type *);
+extern void all_l4 (gfc_array_l4 * const restrict,
+ gfc_array_l4 * const restrict, const index_type * const restrict);
export_proto(all_l4);
void
-all_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim)
+all_l4 (gfc_array_l4 * const restrict retarray,
+ gfc_array_l4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_LOGICAL_4 *base;
- GFC_LOGICAL_4 *dest;
+ const GFC_LOGICAL_4 * restrict base;
+ GFC_LOGICAL_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_LOGICAL_4 *src;
+ const GFC_LOGICAL_4 * restrict src;
GFC_LOGICAL_4 result;
src = base;
{
#if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_LOGICAL_8)
-extern void all_l8 (gfc_array_l8 *, gfc_array_l8 *, index_type *);
+extern void all_l8 (gfc_array_l8 * const restrict,
+ gfc_array_l8 * const restrict, const index_type * const restrict);
export_proto(all_l8);
void
-all_l8 (gfc_array_l8 *retarray, gfc_array_l8 *array, index_type *pdim)
+all_l8 (gfc_array_l8 * const restrict retarray,
+ gfc_array_l8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_LOGICAL_8 *base;
- GFC_LOGICAL_8 *dest;
+ const GFC_LOGICAL_8 * restrict base;
+ GFC_LOGICAL_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_LOGICAL_8 *src;
+ const GFC_LOGICAL_8 * restrict src;
GFC_LOGICAL_8 result;
src = base;
{
#if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_LOGICAL_16)
-extern void any_l16 (gfc_array_l16 *, gfc_array_l16 *, index_type *);
+extern void any_l16 (gfc_array_l16 * const restrict,
+ gfc_array_l16 * const restrict, const index_type * const restrict);
export_proto(any_l16);
void
-any_l16 (gfc_array_l16 *retarray, gfc_array_l16 *array, index_type *pdim)
+any_l16 (gfc_array_l16 * const restrict retarray,
+ gfc_array_l16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_LOGICAL_16 *base;
- GFC_LOGICAL_16 *dest;
+ const GFC_LOGICAL_16 * restrict base;
+ GFC_LOGICAL_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_LOGICAL_16 *src;
+ const GFC_LOGICAL_16 * restrict src;
GFC_LOGICAL_16 result;
src = base;
{
#if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_LOGICAL_4)
-extern void any_l4 (gfc_array_l4 *, gfc_array_l4 *, index_type *);
+extern void any_l4 (gfc_array_l4 * const restrict,
+ gfc_array_l4 * const restrict, const index_type * const restrict);
export_proto(any_l4);
void
-any_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim)
+any_l4 (gfc_array_l4 * const restrict retarray,
+ gfc_array_l4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_LOGICAL_4 *base;
- GFC_LOGICAL_4 *dest;
+ const GFC_LOGICAL_4 * restrict base;
+ GFC_LOGICAL_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_LOGICAL_4 *src;
+ const GFC_LOGICAL_4 * restrict src;
GFC_LOGICAL_4 result;
src = base;
{
#if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_LOGICAL_8)
-extern void any_l8 (gfc_array_l8 *, gfc_array_l8 *, index_type *);
+extern void any_l8 (gfc_array_l8 * const restrict,
+ gfc_array_l8 * const restrict, const index_type * const restrict);
export_proto(any_l8);
void
-any_l8 (gfc_array_l8 *retarray, gfc_array_l8 *array, index_type *pdim)
+any_l8 (gfc_array_l8 * const restrict retarray,
+ gfc_array_l8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_LOGICAL_8 *base;
- GFC_LOGICAL_8 *dest;
+ const GFC_LOGICAL_8 * restrict base;
+ GFC_LOGICAL_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_LOGICAL_8 *src;
+ const GFC_LOGICAL_8 * restrict src;
GFC_LOGICAL_8 result;
src = base;
{
#if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_INTEGER_16)
-extern void count_16_l16 (gfc_array_i16 *, gfc_array_l16 *, index_type *);
+extern void count_16_l16 (gfc_array_i16 * const restrict,
+ gfc_array_l16 * const restrict, const index_type * const restrict);
export_proto(count_16_l16);
void
-count_16_l16 (gfc_array_i16 *retarray, gfc_array_l16 *array, index_type *pdim)
+count_16_l16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_l16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_LOGICAL_16 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_LOGICAL_16 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_LOGICAL_16 *src;
+ const GFC_LOGICAL_16 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
#if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_INTEGER_16)
-extern void count_16_l4 (gfc_array_i16 *, gfc_array_l4 *, index_type *);
+extern void count_16_l4 (gfc_array_i16 * const restrict,
+ gfc_array_l4 * const restrict, const index_type * const restrict);
export_proto(count_16_l4);
void
-count_16_l4 (gfc_array_i16 *retarray, gfc_array_l4 *array, index_type *pdim)
+count_16_l4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_l4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_LOGICAL_4 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_LOGICAL_4 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_LOGICAL_4 *src;
+ const GFC_LOGICAL_4 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
#if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_INTEGER_16)
-extern void count_16_l8 (gfc_array_i16 *, gfc_array_l8 *, index_type *);
+extern void count_16_l8 (gfc_array_i16 * const restrict,
+ gfc_array_l8 * const restrict, const index_type * const restrict);
export_proto(count_16_l8);
void
-count_16_l8 (gfc_array_i16 *retarray, gfc_array_l8 *array, index_type *pdim)
+count_16_l8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_l8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_LOGICAL_8 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_LOGICAL_8 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_LOGICAL_8 *src;
+ const GFC_LOGICAL_8 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
#if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_INTEGER_4)
-extern void count_4_l16 (gfc_array_i4 *, gfc_array_l16 *, index_type *);
+extern void count_4_l16 (gfc_array_i4 * const restrict,
+ gfc_array_l16 * const restrict, const index_type * const restrict);
export_proto(count_4_l16);
void
-count_4_l16 (gfc_array_i4 *retarray, gfc_array_l16 *array, index_type *pdim)
+count_4_l16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_l16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_LOGICAL_16 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_LOGICAL_16 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_LOGICAL_16 *src;
+ const GFC_LOGICAL_16 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
#if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_INTEGER_4)
-extern void count_4_l4 (gfc_array_i4 *, gfc_array_l4 *, index_type *);
+extern void count_4_l4 (gfc_array_i4 * const restrict,
+ gfc_array_l4 * const restrict, const index_type * const restrict);
export_proto(count_4_l4);
void
-count_4_l4 (gfc_array_i4 *retarray, gfc_array_l4 *array, index_type *pdim)
+count_4_l4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_l4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_LOGICAL_4 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_LOGICAL_4 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_LOGICAL_4 *src;
+ const GFC_LOGICAL_4 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
#if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_INTEGER_4)
-extern void count_4_l8 (gfc_array_i4 *, gfc_array_l8 *, index_type *);
+extern void count_4_l8 (gfc_array_i4 * const restrict,
+ gfc_array_l8 * const restrict, const index_type * const restrict);
export_proto(count_4_l8);
void
-count_4_l8 (gfc_array_i4 *retarray, gfc_array_l8 *array, index_type *pdim)
+count_4_l8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_l8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_LOGICAL_8 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_LOGICAL_8 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_LOGICAL_8 *src;
+ const GFC_LOGICAL_8 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
#if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_INTEGER_8)
-extern void count_8_l16 (gfc_array_i8 *, gfc_array_l16 *, index_type *);
+extern void count_8_l16 (gfc_array_i8 * const restrict,
+ gfc_array_l16 * const restrict, const index_type * const restrict);
export_proto(count_8_l16);
void
-count_8_l16 (gfc_array_i8 *retarray, gfc_array_l16 *array, index_type *pdim)
+count_8_l16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_l16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_LOGICAL_16 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_LOGICAL_16 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_LOGICAL_16 *src;
+ const GFC_LOGICAL_16 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
#if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_INTEGER_8)
-extern void count_8_l4 (gfc_array_i8 *, gfc_array_l4 *, index_type *);
+extern void count_8_l4 (gfc_array_i8 * const restrict,
+ gfc_array_l4 * const restrict, const index_type * const restrict);
export_proto(count_8_l4);
void
-count_8_l4 (gfc_array_i8 *retarray, gfc_array_l4 *array, index_type *pdim)
+count_8_l4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_l4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_LOGICAL_4 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_LOGICAL_4 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_LOGICAL_4 *src;
+ const GFC_LOGICAL_4 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
#if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_INTEGER_8)
-extern void count_8_l8 (gfc_array_i8 *, gfc_array_l8 *, index_type *);
+extern void count_8_l8 (gfc_array_i8 * const restrict,
+ gfc_array_l8 * const restrict, const index_type * const restrict);
export_proto(count_8_l8);
void
-count_8_l8 (gfc_array_i8 *retarray, gfc_array_l8 *array, index_type *pdim)
+count_8_l8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_l8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_LOGICAL_8 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_LOGICAL_8 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_LOGICAL_8 *src;
+ const GFC_LOGICAL_8 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
#if defined (HAVE_GFC_INTEGER_16)
static void
-cshift1 (gfc_array_char * ret, const gfc_array_char * array,
- const gfc_array_i16 * h, const GFC_INTEGER_16 * pwhich, index_type size)
+cshift1 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i16 * const restrict h,
+ const GFC_INTEGER_16 * const restrict pwhich,
+ index_type size)
{
/* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS];
}
}
-void cshift1_16 (gfc_array_char *, const gfc_array_char *,
- const gfc_array_i16 *, const GFC_INTEGER_16 *);
+void cshift1_16 (gfc_array_char * const restrict,
+ const gfc_array_char * const restrict,
+ const gfc_array_i16 * const restrict,
+ const GFC_INTEGER_16 * const restrict);
export_proto(cshift1_16);
void
-cshift1_16 (gfc_array_char * ret,
- const gfc_array_char * array,
- const gfc_array_i16 * h, const GFC_INTEGER_16 * pwhich)
+cshift1_16 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i16 * const restrict h,
+ const GFC_INTEGER_16 * const restrict pwhich)
{
cshift1 (ret, array, h, pwhich, GFC_DESCRIPTOR_SIZE (array));
}
-void cshift1_16_char (gfc_array_char * ret, GFC_INTEGER_4,
- const gfc_array_char * array,
- const gfc_array_i16 * h, const GFC_INTEGER_16 * pwhich,
- GFC_INTEGER_4);
+void cshift1_16_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i16 * const restrict h,
+ const GFC_INTEGER_16 * const restrict pwhich,
+ GFC_INTEGER_4);
export_proto(cshift1_16_char);
void
-cshift1_16_char (gfc_array_char * ret,
- GFC_INTEGER_4 ret_length __attribute__((unused)),
- const gfc_array_char * array,
- const gfc_array_i16 * h, const GFC_INTEGER_16 * pwhich,
- GFC_INTEGER_4 array_length)
+cshift1_16_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4 ret_length __attribute__((unused)),
+ const gfc_array_char * const restrict array,
+ const gfc_array_i16 * const restrict h,
+ const GFC_INTEGER_16 * const restrict pwhich,
+ GFC_INTEGER_4 array_length)
{
cshift1 (ret, array, h, pwhich, array_length);
}
#if defined (HAVE_GFC_INTEGER_4)
static void
-cshift1 (gfc_array_char * ret, const gfc_array_char * array,
- const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich, index_type size)
+cshift1 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i4 * const restrict h,
+ const GFC_INTEGER_4 * const restrict pwhich,
+ index_type size)
{
/* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS];
}
}
-void cshift1_4 (gfc_array_char *, const gfc_array_char *,
- const gfc_array_i4 *, const GFC_INTEGER_4 *);
+void cshift1_4 (gfc_array_char * const restrict,
+ const gfc_array_char * const restrict,
+ const gfc_array_i4 * const restrict,
+ const GFC_INTEGER_4 * const restrict);
export_proto(cshift1_4);
void
-cshift1_4 (gfc_array_char * ret,
- const gfc_array_char * array,
- const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich)
+cshift1_4 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i4 * const restrict h,
+ const GFC_INTEGER_4 * const restrict pwhich)
{
cshift1 (ret, array, h, pwhich, GFC_DESCRIPTOR_SIZE (array));
}
-void cshift1_4_char (gfc_array_char * ret, GFC_INTEGER_4,
- const gfc_array_char * array,
- const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich,
- GFC_INTEGER_4);
+void cshift1_4_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i4 * const restrict h,
+ const GFC_INTEGER_4 * const restrict pwhich,
+ GFC_INTEGER_4);
export_proto(cshift1_4_char);
void
-cshift1_4_char (gfc_array_char * ret,
- GFC_INTEGER_4 ret_length __attribute__((unused)),
- const gfc_array_char * array,
- const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich,
- GFC_INTEGER_4 array_length)
+cshift1_4_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4 ret_length __attribute__((unused)),
+ const gfc_array_char * const restrict array,
+ const gfc_array_i4 * const restrict h,
+ const GFC_INTEGER_4 * const restrict pwhich,
+ GFC_INTEGER_4 array_length)
{
cshift1 (ret, array, h, pwhich, array_length);
}
#if defined (HAVE_GFC_INTEGER_8)
static void
-cshift1 (gfc_array_char * ret, const gfc_array_char * array,
- const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich, index_type size)
+cshift1 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i8 * const restrict h,
+ const GFC_INTEGER_8 * const restrict pwhich,
+ index_type size)
{
/* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS];
}
}
-void cshift1_8 (gfc_array_char *, const gfc_array_char *,
- const gfc_array_i8 *, const GFC_INTEGER_8 *);
+void cshift1_8 (gfc_array_char * const restrict,
+ const gfc_array_char * const restrict,
+ const gfc_array_i8 * const restrict,
+ const GFC_INTEGER_8 * const restrict);
export_proto(cshift1_8);
void
-cshift1_8 (gfc_array_char * ret,
- const gfc_array_char * array,
- const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich)
+cshift1_8 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i8 * const restrict h,
+ const GFC_INTEGER_8 * const restrict pwhich)
{
cshift1 (ret, array, h, pwhich, GFC_DESCRIPTOR_SIZE (array));
}
-void cshift1_8_char (gfc_array_char * ret, GFC_INTEGER_4,
- const gfc_array_char * array,
- const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich,
- GFC_INTEGER_4);
+void cshift1_8_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i8 * const restrict h,
+ const GFC_INTEGER_8 * const restrict pwhich,
+ GFC_INTEGER_4);
export_proto(cshift1_8_char);
void
-cshift1_8_char (gfc_array_char * ret,
- GFC_INTEGER_4 ret_length __attribute__((unused)),
- const gfc_array_char * array,
- const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich,
- GFC_INTEGER_4 array_length)
+cshift1_8_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4 ret_length __attribute__((unused)),
+ const gfc_array_char * const restrict array,
+ const gfc_array_i8 * const restrict h,
+ const GFC_INTEGER_8 * const restrict pwhich,
+ GFC_INTEGER_4 array_length)
{
cshift1 (ret, array, h, pwhich, array_length);
}
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
-extern GFC_COMPLEX_10 dot_product_c10 (gfc_array_c10 * a, gfc_array_c10 * b);
+extern GFC_COMPLEX_10 dot_product_c10 (gfc_array_c10 * const restrict a,
+ gfc_array_c10 * const restrict b);
export_proto(dot_product_c10);
/* Both parameters will already have been converted to the result type. */
GFC_COMPLEX_10
-dot_product_c10 (gfc_array_c10 * a, gfc_array_c10 * b)
+dot_product_c10 (gfc_array_c10 * const restrict a, gfc_array_c10 * const restrict b)
{
- GFC_COMPLEX_10 *pa;
- GFC_COMPLEX_10 *pb;
+ const GFC_COMPLEX_10 * restrict pa;
+ const GFC_COMPLEX_10 * restrict pb;
GFC_COMPLEX_10 res;
GFC_COMPLEX_10 conjga;
index_type count;
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
-extern GFC_COMPLEX_16 dot_product_c16 (gfc_array_c16 * a, gfc_array_c16 * b);
+extern GFC_COMPLEX_16 dot_product_c16 (gfc_array_c16 * const restrict a,
+ gfc_array_c16 * const restrict b);
export_proto(dot_product_c16);
/* Both parameters will already have been converted to the result type. */
GFC_COMPLEX_16
-dot_product_c16 (gfc_array_c16 * a, gfc_array_c16 * b)
+dot_product_c16 (gfc_array_c16 * const restrict a, gfc_array_c16 * const restrict b)
{
- GFC_COMPLEX_16 *pa;
- GFC_COMPLEX_16 *pb;
+ const GFC_COMPLEX_16 * restrict pa;
+ const GFC_COMPLEX_16 * restrict pb;
GFC_COMPLEX_16 res;
GFC_COMPLEX_16 conjga;
index_type count;
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
-extern GFC_COMPLEX_4 dot_product_c4 (gfc_array_c4 * a, gfc_array_c4 * b);
+extern GFC_COMPLEX_4 dot_product_c4 (gfc_array_c4 * const restrict a,
+ gfc_array_c4 * const restrict b);
export_proto(dot_product_c4);
/* Both parameters will already have been converted to the result type. */
GFC_COMPLEX_4
-dot_product_c4 (gfc_array_c4 * a, gfc_array_c4 * b)
+dot_product_c4 (gfc_array_c4 * const restrict a, gfc_array_c4 * const restrict b)
{
- GFC_COMPLEX_4 *pa;
- GFC_COMPLEX_4 *pb;
+ const GFC_COMPLEX_4 * restrict pa;
+ const GFC_COMPLEX_4 * restrict pb;
GFC_COMPLEX_4 res;
GFC_COMPLEX_4 conjga;
index_type count;
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
-extern GFC_COMPLEX_8 dot_product_c8 (gfc_array_c8 * a, gfc_array_c8 * b);
+extern GFC_COMPLEX_8 dot_product_c8 (gfc_array_c8 * const restrict a,
+ gfc_array_c8 * const restrict b);
export_proto(dot_product_c8);
/* Both parameters will already have been converted to the result type. */
GFC_COMPLEX_8
-dot_product_c8 (gfc_array_c8 * a, gfc_array_c8 * b)
+dot_product_c8 (gfc_array_c8 * const restrict a, gfc_array_c8 * const restrict b)
{
- GFC_COMPLEX_8 *pa;
- GFC_COMPLEX_8 *pb;
+ const GFC_COMPLEX_8 * restrict pa;
+ const GFC_COMPLEX_8 * restrict pb;
GFC_COMPLEX_8 res;
GFC_COMPLEX_8 conjga;
index_type count;
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
-extern GFC_INTEGER_16 dot_product_i16 (gfc_array_i16 * a, gfc_array_i16 * b);
+extern GFC_INTEGER_16 dot_product_i16 (gfc_array_i16 * const restrict a,
+ gfc_array_i16 * const restrict b);
export_proto(dot_product_i16);
/* Both parameters will already have been converted to the result type. */
GFC_INTEGER_16
-dot_product_i16 (gfc_array_i16 * a, gfc_array_i16 * b)
+dot_product_i16 (gfc_array_i16 * const restrict a, gfc_array_i16 * const restrict b)
{
- GFC_INTEGER_16 *pa;
- GFC_INTEGER_16 *pb;
+ const GFC_INTEGER_16 * restrict pa;
+ const GFC_INTEGER_16 * restrict pb;
GFC_INTEGER_16 res;
index_type count;
index_type astride;
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
-extern GFC_INTEGER_4 dot_product_i4 (gfc_array_i4 * a, gfc_array_i4 * b);
+extern GFC_INTEGER_4 dot_product_i4 (gfc_array_i4 * const restrict a,
+ gfc_array_i4 * const restrict b);
export_proto(dot_product_i4);
/* Both parameters will already have been converted to the result type. */
GFC_INTEGER_4
-dot_product_i4 (gfc_array_i4 * a, gfc_array_i4 * b)
+dot_product_i4 (gfc_array_i4 * const restrict a, gfc_array_i4 * const restrict b)
{
- GFC_INTEGER_4 *pa;
- GFC_INTEGER_4 *pb;
+ const GFC_INTEGER_4 * restrict pa;
+ const GFC_INTEGER_4 * restrict pb;
GFC_INTEGER_4 res;
index_type count;
index_type astride;
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
-extern GFC_INTEGER_8 dot_product_i8 (gfc_array_i8 * a, gfc_array_i8 * b);
+extern GFC_INTEGER_8 dot_product_i8 (gfc_array_i8 * const restrict a,
+ gfc_array_i8 * const restrict b);
export_proto(dot_product_i8);
/* Both parameters will already have been converted to the result type. */
GFC_INTEGER_8
-dot_product_i8 (gfc_array_i8 * a, gfc_array_i8 * b)
+dot_product_i8 (gfc_array_i8 * const restrict a, gfc_array_i8 * const restrict b)
{
- GFC_INTEGER_8 *pa;
- GFC_INTEGER_8 *pb;
+ const GFC_INTEGER_8 * restrict pa;
+ const GFC_INTEGER_8 * restrict pb;
GFC_INTEGER_8 res;
index_type count;
index_type astride;
#if defined (HAVE_GFC_LOGICAL_16)
-extern GFC_LOGICAL_16 dot_product_l16 (gfc_array_l4 *, gfc_array_l4 *);
+extern GFC_LOGICAL_16 dot_product_l16 (gfc_array_l4 * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(dot_product_l16);
GFC_LOGICAL_16
-dot_product_l16 (gfc_array_l4 * a, gfc_array_l4 * b)
+dot_product_l16 (gfc_array_l4 * const restrict a,
+ gfc_array_l4 * const restrict b)
{
- GFC_LOGICAL_4 *pa;
- GFC_LOGICAL_4 *pb;
+ const GFC_LOGICAL_4 * restrict pa;
+ const GFC_LOGICAL_4 * restrict pb;
index_type count;
index_type astride;
index_type bstride;
#if defined (HAVE_GFC_LOGICAL_4)
-extern GFC_LOGICAL_4 dot_product_l4 (gfc_array_l4 *, gfc_array_l4 *);
+extern GFC_LOGICAL_4 dot_product_l4 (gfc_array_l4 * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(dot_product_l4);
GFC_LOGICAL_4
-dot_product_l4 (gfc_array_l4 * a, gfc_array_l4 * b)
+dot_product_l4 (gfc_array_l4 * const restrict a,
+ gfc_array_l4 * const restrict b)
{
- GFC_LOGICAL_4 *pa;
- GFC_LOGICAL_4 *pb;
+ const GFC_LOGICAL_4 * restrict pa;
+ const GFC_LOGICAL_4 * restrict pb;
index_type count;
index_type astride;
index_type bstride;
#if defined (HAVE_GFC_LOGICAL_8)
-extern GFC_LOGICAL_8 dot_product_l8 (gfc_array_l4 *, gfc_array_l4 *);
+extern GFC_LOGICAL_8 dot_product_l8 (gfc_array_l4 * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(dot_product_l8);
GFC_LOGICAL_8
-dot_product_l8 (gfc_array_l4 * a, gfc_array_l4 * b)
+dot_product_l8 (gfc_array_l4 * const restrict a,
+ gfc_array_l4 * const restrict b)
{
- GFC_LOGICAL_4 *pa;
- GFC_LOGICAL_4 *pb;
+ const GFC_LOGICAL_4 * restrict pa;
+ const GFC_LOGICAL_4 * restrict pb;
index_type count;
index_type astride;
index_type bstride;
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
-extern GFC_REAL_10 dot_product_r10 (gfc_array_r10 * a, gfc_array_r10 * b);
+extern GFC_REAL_10 dot_product_r10 (gfc_array_r10 * const restrict a,
+ gfc_array_r10 * const restrict b);
export_proto(dot_product_r10);
/* Both parameters will already have been converted to the result type. */
GFC_REAL_10
-dot_product_r10 (gfc_array_r10 * a, gfc_array_r10 * b)
+dot_product_r10 (gfc_array_r10 * const restrict a, gfc_array_r10 * const restrict b)
{
- GFC_REAL_10 *pa;
- GFC_REAL_10 *pb;
+ const GFC_REAL_10 * restrict pa;
+ const GFC_REAL_10 * restrict pb;
GFC_REAL_10 res;
index_type count;
index_type astride;
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
-extern GFC_REAL_16 dot_product_r16 (gfc_array_r16 * a, gfc_array_r16 * b);
+extern GFC_REAL_16 dot_product_r16 (gfc_array_r16 * const restrict a,
+ gfc_array_r16 * const restrict b);
export_proto(dot_product_r16);
/* Both parameters will already have been converted to the result type. */
GFC_REAL_16
-dot_product_r16 (gfc_array_r16 * a, gfc_array_r16 * b)
+dot_product_r16 (gfc_array_r16 * const restrict a, gfc_array_r16 * const restrict b)
{
- GFC_REAL_16 *pa;
- GFC_REAL_16 *pb;
+ const GFC_REAL_16 * restrict pa;
+ const GFC_REAL_16 * restrict pb;
GFC_REAL_16 res;
index_type count;
index_type astride;
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
-extern GFC_REAL_4 dot_product_r4 (gfc_array_r4 * a, gfc_array_r4 * b);
+extern GFC_REAL_4 dot_product_r4 (gfc_array_r4 * const restrict a,
+ gfc_array_r4 * const restrict b);
export_proto(dot_product_r4);
/* Both parameters will already have been converted to the result type. */
GFC_REAL_4
-dot_product_r4 (gfc_array_r4 * a, gfc_array_r4 * b)
+dot_product_r4 (gfc_array_r4 * const restrict a, gfc_array_r4 * const restrict b)
{
- GFC_REAL_4 *pa;
- GFC_REAL_4 *pb;
+ const GFC_REAL_4 * restrict pa;
+ const GFC_REAL_4 * restrict pb;
GFC_REAL_4 res;
index_type count;
index_type astride;
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
-extern GFC_REAL_8 dot_product_r8 (gfc_array_r8 * a, gfc_array_r8 * b);
+extern GFC_REAL_8 dot_product_r8 (gfc_array_r8 * const restrict a,
+ gfc_array_r8 * const restrict b);
export_proto(dot_product_r8);
/* Both parameters will already have been converted to the result type. */
GFC_REAL_8
-dot_product_r8 (gfc_array_r8 * a, gfc_array_r8 * b)
+dot_product_r8 (gfc_array_r8 * const restrict a, gfc_array_r8 * const restrict b)
{
- GFC_REAL_8 *pa;
- GFC_REAL_8 *pb;
+ const GFC_REAL_8 * restrict pa;
+ const GFC_REAL_8 * restrict pb;
GFC_REAL_8 res;
index_type count;
index_type astride;
#if defined (HAVE_GFC_INTEGER_16)
static void
-eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i16 *h,
- const char *pbound, const GFC_INTEGER_16 *pwhich, index_type size,
- char filler)
+eoshift1 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i16 * const restrict h,
+ const char * const restrict pbound,
+ const GFC_INTEGER_16 * const restrict pwhich,
+ index_type size, char filler)
{
/* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS];
}
}
-void eoshift1_16 (gfc_array_char *, const gfc_array_char *,
- const gfc_array_i16 *, const char *, const GFC_INTEGER_16 *);
+void eoshift1_16 (gfc_array_char * const restrict,
+ const gfc_array_char * const restrict,
+ const gfc_array_i16 * const restrict, const char * const restrict,
+ const GFC_INTEGER_16 * const restrict);
export_proto(eoshift1_16);
void
-eoshift1_16 (gfc_array_char *ret, const gfc_array_char *array,
- const gfc_array_i16 *h, const char *pbound,
- const GFC_INTEGER_16 *pwhich)
+eoshift1_16 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i16 * const restrict h,
+ const char * const restrict pbound,
+ const GFC_INTEGER_16 * const restrict pwhich)
{
eoshift1 (ret, array, h, pbound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
}
-void eoshift1_16_char (gfc_array_char *, GFC_INTEGER_4,
- const gfc_array_char *, const gfc_array_i16 *,
- const char *, const GFC_INTEGER_16 *,
- GFC_INTEGER_4, GFC_INTEGER_4);
+void eoshift1_16_char (gfc_array_char * const restrict,
+ GFC_INTEGER_4,
+ const gfc_array_char * const restrict,
+ const gfc_array_i16 * const restrict,
+ const char * const restrict,
+ const GFC_INTEGER_16 * const restrict,
+ GFC_INTEGER_4, GFC_INTEGER_4);
export_proto(eoshift1_16_char);
void
-eoshift1_16_char (gfc_array_char *ret,
- GFC_INTEGER_4 ret_length __attribute__((unused)),
- const gfc_array_char *array, const gfc_array_i16 *h,
- const char *pbound, const GFC_INTEGER_16 *pwhich,
- GFC_INTEGER_4 array_length,
- GFC_INTEGER_4 bound_length
- __attribute__((unused)))
+eoshift1_16_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4 ret_length __attribute__((unused)),
+ const gfc_array_char * const restrict array,
+ const gfc_array_i16 * const restrict h,
+ const char * const restrict pbound,
+ const GFC_INTEGER_16 * const restrict pwhich,
+ GFC_INTEGER_4 array_length,
+ GFC_INTEGER_4 bound_length __attribute__((unused)))
{
eoshift1 (ret, array, h, pbound, pwhich, array_length, ' ');
}
#if defined (HAVE_GFC_INTEGER_4)
static void
-eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i4 *h,
- const char *pbound, const GFC_INTEGER_4 *pwhich, index_type size,
- char filler)
+eoshift1 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i4 * const restrict h,
+ const char * const restrict pbound,
+ const GFC_INTEGER_4 * const restrict pwhich,
+ index_type size, char filler)
{
/* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS];
}
}
-void eoshift1_4 (gfc_array_char *, const gfc_array_char *,
- const gfc_array_i4 *, const char *, const GFC_INTEGER_4 *);
+void eoshift1_4 (gfc_array_char * const restrict,
+ const gfc_array_char * const restrict,
+ const gfc_array_i4 * const restrict, const char * const restrict,
+ const GFC_INTEGER_4 * const restrict);
export_proto(eoshift1_4);
void
-eoshift1_4 (gfc_array_char *ret, const gfc_array_char *array,
- const gfc_array_i4 *h, const char *pbound,
- const GFC_INTEGER_4 *pwhich)
+eoshift1_4 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i4 * const restrict h,
+ const char * const restrict pbound,
+ const GFC_INTEGER_4 * const restrict pwhich)
{
eoshift1 (ret, array, h, pbound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
}
-void eoshift1_4_char (gfc_array_char *, GFC_INTEGER_4,
- const gfc_array_char *, const gfc_array_i4 *,
- const char *, const GFC_INTEGER_4 *,
- GFC_INTEGER_4, GFC_INTEGER_4);
+void eoshift1_4_char (gfc_array_char * const restrict,
+ GFC_INTEGER_4,
+ const gfc_array_char * const restrict,
+ const gfc_array_i4 * const restrict,
+ const char * const restrict,
+ const GFC_INTEGER_4 * const restrict,
+ GFC_INTEGER_4, GFC_INTEGER_4);
export_proto(eoshift1_4_char);
void
-eoshift1_4_char (gfc_array_char *ret,
- GFC_INTEGER_4 ret_length __attribute__((unused)),
- const gfc_array_char *array, const gfc_array_i4 *h,
- const char *pbound, const GFC_INTEGER_4 *pwhich,
- GFC_INTEGER_4 array_length,
- GFC_INTEGER_4 bound_length
- __attribute__((unused)))
+eoshift1_4_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4 ret_length __attribute__((unused)),
+ const gfc_array_char * const restrict array,
+ const gfc_array_i4 * const restrict h,
+ const char * const restrict pbound,
+ const GFC_INTEGER_4 * const restrict pwhich,
+ GFC_INTEGER_4 array_length,
+ GFC_INTEGER_4 bound_length __attribute__((unused)))
{
eoshift1 (ret, array, h, pbound, pwhich, array_length, ' ');
}
#if defined (HAVE_GFC_INTEGER_8)
static void
-eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i8 *h,
- const char *pbound, const GFC_INTEGER_8 *pwhich, index_type size,
- char filler)
+eoshift1 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i8 * const restrict h,
+ const char * const restrict pbound,
+ const GFC_INTEGER_8 * const restrict pwhich,
+ index_type size, char filler)
{
/* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS];
}
}
-void eoshift1_8 (gfc_array_char *, const gfc_array_char *,
- const gfc_array_i8 *, const char *, const GFC_INTEGER_8 *);
+void eoshift1_8 (gfc_array_char * const restrict,
+ const gfc_array_char * const restrict,
+ const gfc_array_i8 * const restrict, const char * const restrict,
+ const GFC_INTEGER_8 * const restrict);
export_proto(eoshift1_8);
void
-eoshift1_8 (gfc_array_char *ret, const gfc_array_char *array,
- const gfc_array_i8 *h, const char *pbound,
- const GFC_INTEGER_8 *pwhich)
+eoshift1_8 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i8 * const restrict h,
+ const char * const restrict pbound,
+ const GFC_INTEGER_8 * const restrict pwhich)
{
eoshift1 (ret, array, h, pbound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
}
-void eoshift1_8_char (gfc_array_char *, GFC_INTEGER_4,
- const gfc_array_char *, const gfc_array_i8 *,
- const char *, const GFC_INTEGER_8 *,
- GFC_INTEGER_4, GFC_INTEGER_4);
+void eoshift1_8_char (gfc_array_char * const restrict,
+ GFC_INTEGER_4,
+ const gfc_array_char * const restrict,
+ const gfc_array_i8 * const restrict,
+ const char * const restrict,
+ const GFC_INTEGER_8 * const restrict,
+ GFC_INTEGER_4, GFC_INTEGER_4);
export_proto(eoshift1_8_char);
void
-eoshift1_8_char (gfc_array_char *ret,
- GFC_INTEGER_4 ret_length __attribute__((unused)),
- const gfc_array_char *array, const gfc_array_i8 *h,
- const char *pbound, const GFC_INTEGER_8 *pwhich,
- GFC_INTEGER_4 array_length,
- GFC_INTEGER_4 bound_length
- __attribute__((unused)))
+eoshift1_8_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4 ret_length __attribute__((unused)),
+ const gfc_array_char * const restrict array,
+ const gfc_array_i8 * const restrict h,
+ const char * const restrict pbound,
+ const GFC_INTEGER_8 * const restrict pwhich,
+ GFC_INTEGER_4 array_length,
+ GFC_INTEGER_4 bound_length __attribute__((unused)))
{
eoshift1 (ret, array, h, pbound, pwhich, array_length, ' ');
}
#if defined (HAVE_GFC_INTEGER_16)
static void
-eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i16 *h,
- const gfc_array_char *bound, const GFC_INTEGER_16 *pwhich,
- index_type size, char filler)
+eoshift3 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i16 * const restrict h,
+ const gfc_array_char * const restrict bound,
+ const GFC_INTEGER_16 * const restrict pwhich,
+ index_type size, char filler)
{
/* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS];
}
}
-extern void eoshift3_16 (gfc_array_char *, const gfc_array_char *,
- const gfc_array_i16 *, const gfc_array_char *,
- const GFC_INTEGER_16 *);
+extern void eoshift3_16 (gfc_array_char * const restrict,
+ const gfc_array_char * const restrict,
+ const gfc_array_i16 * const restrict,
+ const gfc_array_char * const restrict,
+ const GFC_INTEGER_16 *);
export_proto(eoshift3_16);
void
-eoshift3_16 (gfc_array_char *ret, const gfc_array_char *array,
- const gfc_array_i16 *h, const gfc_array_char *bound,
- const GFC_INTEGER_16 *pwhich)
+eoshift3_16 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i16 * const restrict h,
+ const gfc_array_char * const restrict bound,
+ const GFC_INTEGER_16 * const restrict pwhich)
{
eoshift3 (ret, array, h, bound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
}
-extern void eoshift3_16_char (gfc_array_char *, GFC_INTEGER_4,
- const gfc_array_char *,
- const gfc_array_i16 *,
- const gfc_array_char *,
- const GFC_INTEGER_16 *, GFC_INTEGER_4,
- GFC_INTEGER_4);
+extern void eoshift3_16_char (gfc_array_char * const restrict,
+ GFC_INTEGER_4,
+ const gfc_array_char * const restrict,
+ const gfc_array_i16 * const restrict,
+ const gfc_array_char * const restrict,
+ const GFC_INTEGER_16 * const restrict,
+ GFC_INTEGER_4, GFC_INTEGER_4);
export_proto(eoshift3_16_char);
void
-eoshift3_16_char (gfc_array_char *ret,
- GFC_INTEGER_4 ret_length __attribute__((unused)),
- const gfc_array_char *array, const gfc_array_i16 *h,
- const gfc_array_char *bound,
- const GFC_INTEGER_16 *pwhich,
- GFC_INTEGER_4 array_length,
- GFC_INTEGER_4 bound_length
- __attribute__((unused)))
+eoshift3_16_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4 ret_length __attribute__((unused)),
+ const gfc_array_char * const restrict array,
+ const gfc_array_i16 * const restrict h,
+ const gfc_array_char * const restrict bound,
+ const GFC_INTEGER_16 * const restrict pwhich,
+ GFC_INTEGER_4 array_length,
+ GFC_INTEGER_4 bound_length __attribute__((unused)))
{
eoshift3 (ret, array, h, bound, pwhich, array_length, ' ');
}
#if defined (HAVE_GFC_INTEGER_4)
static void
-eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i4 *h,
- const gfc_array_char *bound, const GFC_INTEGER_4 *pwhich,
- index_type size, char filler)
+eoshift3 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i4 * const restrict h,
+ const gfc_array_char * const restrict bound,
+ const GFC_INTEGER_4 * const restrict pwhich,
+ index_type size, char filler)
{
/* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS];
}
}
-extern void eoshift3_4 (gfc_array_char *, const gfc_array_char *,
- const gfc_array_i4 *, const gfc_array_char *,
- const GFC_INTEGER_4 *);
+extern void eoshift3_4 (gfc_array_char * const restrict,
+ const gfc_array_char * const restrict,
+ const gfc_array_i4 * const restrict,
+ const gfc_array_char * const restrict,
+ const GFC_INTEGER_4 *);
export_proto(eoshift3_4);
void
-eoshift3_4 (gfc_array_char *ret, const gfc_array_char *array,
- const gfc_array_i4 *h, const gfc_array_char *bound,
- const GFC_INTEGER_4 *pwhich)
+eoshift3_4 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i4 * const restrict h,
+ const gfc_array_char * const restrict bound,
+ const GFC_INTEGER_4 * const restrict pwhich)
{
eoshift3 (ret, array, h, bound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
}
-extern void eoshift3_4_char (gfc_array_char *, GFC_INTEGER_4,
- const gfc_array_char *,
- const gfc_array_i4 *,
- const gfc_array_char *,
- const GFC_INTEGER_4 *, GFC_INTEGER_4,
- GFC_INTEGER_4);
+extern void eoshift3_4_char (gfc_array_char * const restrict,
+ GFC_INTEGER_4,
+ const gfc_array_char * const restrict,
+ const gfc_array_i4 * const restrict,
+ const gfc_array_char * const restrict,
+ const GFC_INTEGER_4 * const restrict,
+ GFC_INTEGER_4, GFC_INTEGER_4);
export_proto(eoshift3_4_char);
void
-eoshift3_4_char (gfc_array_char *ret,
- GFC_INTEGER_4 ret_length __attribute__((unused)),
- const gfc_array_char *array, const gfc_array_i4 *h,
- const gfc_array_char *bound,
- const GFC_INTEGER_4 *pwhich,
- GFC_INTEGER_4 array_length,
- GFC_INTEGER_4 bound_length
- __attribute__((unused)))
+eoshift3_4_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4 ret_length __attribute__((unused)),
+ const gfc_array_char * const restrict array,
+ const gfc_array_i4 * const restrict h,
+ const gfc_array_char * const restrict bound,
+ const GFC_INTEGER_4 * const restrict pwhich,
+ GFC_INTEGER_4 array_length,
+ GFC_INTEGER_4 bound_length __attribute__((unused)))
{
eoshift3 (ret, array, h, bound, pwhich, array_length, ' ');
}
#if defined (HAVE_GFC_INTEGER_8)
static void
-eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i8 *h,
- const gfc_array_char *bound, const GFC_INTEGER_8 *pwhich,
- index_type size, char filler)
+eoshift3 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i8 * const restrict h,
+ const gfc_array_char * const restrict bound,
+ const GFC_INTEGER_8 * const restrict pwhich,
+ index_type size, char filler)
{
/* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS];
}
}
-extern void eoshift3_8 (gfc_array_char *, const gfc_array_char *,
- const gfc_array_i8 *, const gfc_array_char *,
- const GFC_INTEGER_8 *);
+extern void eoshift3_8 (gfc_array_char * const restrict,
+ const gfc_array_char * const restrict,
+ const gfc_array_i8 * const restrict,
+ const gfc_array_char * const restrict,
+ const GFC_INTEGER_8 *);
export_proto(eoshift3_8);
void
-eoshift3_8 (gfc_array_char *ret, const gfc_array_char *array,
- const gfc_array_i8 *h, const gfc_array_char *bound,
- const GFC_INTEGER_8 *pwhich)
+eoshift3_8 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const gfc_array_i8 * const restrict h,
+ const gfc_array_char * const restrict bound,
+ const GFC_INTEGER_8 * const restrict pwhich)
{
eoshift3 (ret, array, h, bound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
}
-extern void eoshift3_8_char (gfc_array_char *, GFC_INTEGER_4,
- const gfc_array_char *,
- const gfc_array_i8 *,
- const gfc_array_char *,
- const GFC_INTEGER_8 *, GFC_INTEGER_4,
- GFC_INTEGER_4);
+extern void eoshift3_8_char (gfc_array_char * const restrict,
+ GFC_INTEGER_4,
+ const gfc_array_char * const restrict,
+ const gfc_array_i8 * const restrict,
+ const gfc_array_char * const restrict,
+ const GFC_INTEGER_8 * const restrict,
+ GFC_INTEGER_4, GFC_INTEGER_4);
export_proto(eoshift3_8_char);
void
-eoshift3_8_char (gfc_array_char *ret,
- GFC_INTEGER_4 ret_length __attribute__((unused)),
- const gfc_array_char *array, const gfc_array_i8 *h,
- const gfc_array_char *bound,
- const GFC_INTEGER_8 *pwhich,
- GFC_INTEGER_4 array_length,
- GFC_INTEGER_4 bound_length
- __attribute__((unused)))
+eoshift3_8_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4 ret_length __attribute__((unused)),
+ const gfc_array_char * const restrict array,
+ const gfc_array_i8 * const restrict h,
+ const gfc_array_char * const restrict bound,
+ const GFC_INTEGER_8 * const restrict pwhich,
+ GFC_INTEGER_4 array_length,
+ GFC_INTEGER_4 bound_length __attribute__((unused)))
{
eoshift3 (ret, array, h, bound, pwhich, array_length, ' ');
}
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void maxloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array);
+extern void maxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array);
export_proto(maxloc0_16_i16);
void
-maxloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array)
+maxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_INTEGER_16 *base;
+ const GFC_INTEGER_16 *base;
GFC_INTEGER_16 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_16_i16 (gfc_array_i16 *, gfc_array_i16 *, gfc_array_l4 *);
+extern void mmaxloc0_16_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_16_i16);
void
-mmaxloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array,
- gfc_array_l4 * mask)
+mmaxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_16 *dest;
- GFC_INTEGER_16 *base;
+ const GFC_INTEGER_16 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_16)
-extern void maxloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array);
+extern void maxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array);
export_proto(maxloc0_16_i4);
void
-maxloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array)
+maxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_INTEGER_4 *base;
+ const GFC_INTEGER_4 *base;
GFC_INTEGER_16 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_16_i4 (gfc_array_i16 *, gfc_array_i4 *, gfc_array_l4 *);
+extern void mmaxloc0_16_i4 (gfc_array_i16 * const restrict,
+ gfc_array_i4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_16_i4);
void
-mmaxloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array,
- gfc_array_l4 * mask)
+mmaxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_16 *dest;
- GFC_INTEGER_4 *base;
+ const GFC_INTEGER_4 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_16)
-extern void maxloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array);
+extern void maxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array);
export_proto(maxloc0_16_i8);
void
-maxloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array)
+maxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_INTEGER_8 *base;
+ const GFC_INTEGER_8 *base;
GFC_INTEGER_16 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_16_i8 (gfc_array_i16 *, gfc_array_i8 *, gfc_array_l4 *);
+extern void mmaxloc0_16_i8 (gfc_array_i16 * const restrict,
+ gfc_array_i8 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_16_i8);
void
-mmaxloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array,
- gfc_array_l4 * mask)
+mmaxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_16 *dest;
- GFC_INTEGER_8 *base;
+ const GFC_INTEGER_8 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16)
-extern void maxloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array);
+extern void maxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array);
export_proto(maxloc0_16_r10);
void
-maxloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array)
+maxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_10 *base;
+ const GFC_REAL_10 *base;
GFC_INTEGER_16 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_16_r10 (gfc_array_i16 *, gfc_array_r10 *, gfc_array_l4 *);
+extern void mmaxloc0_16_r10 (gfc_array_i16 * const restrict,
+ gfc_array_r10 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_16_r10);
void
-mmaxloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array,
- gfc_array_l4 * mask)
+mmaxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_16 *dest;
- GFC_REAL_10 *base;
+ const GFC_REAL_10 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16)
-extern void maxloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array);
+extern void maxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array);
export_proto(maxloc0_16_r16);
void
-maxloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array)
+maxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_16 *base;
+ const GFC_REAL_16 *base;
GFC_INTEGER_16 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_16_r16 (gfc_array_i16 *, gfc_array_r16 *, gfc_array_l4 *);
+extern void mmaxloc0_16_r16 (gfc_array_i16 * const restrict,
+ gfc_array_r16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_16_r16);
void
-mmaxloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array,
- gfc_array_l4 * mask)
+mmaxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_16 *dest;
- GFC_REAL_16 *base;
+ const GFC_REAL_16 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16)
-extern void maxloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array);
+extern void maxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array);
export_proto(maxloc0_16_r4);
void
-maxloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array)
+maxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_4 *base;
+ const GFC_REAL_4 *base;
GFC_INTEGER_16 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_16_r4 (gfc_array_i16 *, gfc_array_r4 *, gfc_array_l4 *);
+extern void mmaxloc0_16_r4 (gfc_array_i16 * const restrict,
+ gfc_array_r4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_16_r4);
void
-mmaxloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array,
- gfc_array_l4 * mask)
+mmaxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_16 *dest;
- GFC_REAL_4 *base;
+ const GFC_REAL_4 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16)
-extern void maxloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array);
+extern void maxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array);
export_proto(maxloc0_16_r8);
void
-maxloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array)
+maxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_8 *base;
+ const GFC_REAL_8 *base;
GFC_INTEGER_16 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_16_r8 (gfc_array_i16 *, gfc_array_r8 *, gfc_array_l4 *);
+extern void mmaxloc0_16_r8 (gfc_array_i16 * const restrict,
+ gfc_array_r8 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_16_r8);
void
-mmaxloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array,
- gfc_array_l4 * mask)
+mmaxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_16 *dest;
- GFC_REAL_8 *base;
+ const GFC_REAL_8 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_4)
-extern void maxloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array);
+extern void maxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array);
export_proto(maxloc0_4_i16);
void
-maxloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array)
+maxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_INTEGER_16 *base;
+ const GFC_INTEGER_16 *base;
GFC_INTEGER_4 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_4_i16 (gfc_array_i4 *, gfc_array_i16 *, gfc_array_l4 *);
+extern void mmaxloc0_4_i16 (gfc_array_i4 * const restrict,
+ gfc_array_i16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_4_i16);
void
-mmaxloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array,
- gfc_array_l4 * mask)
+mmaxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_4 *dest;
- GFC_INTEGER_16 *base;
+ const GFC_INTEGER_16 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array);
+extern void maxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array);
export_proto(maxloc0_4_i4);
void
-maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array)
+maxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_INTEGER_4 *base;
+ const GFC_INTEGER_4 *base;
GFC_INTEGER_4 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_4_i4 (gfc_array_i4 *, gfc_array_i4 *, gfc_array_l4 *);
+extern void mmaxloc0_4_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_4_i4);
void
-mmaxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array,
- gfc_array_l4 * mask)
+mmaxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_4 *dest;
- GFC_INTEGER_4 *base;
+ const GFC_INTEGER_4 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_4)
-extern void maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array);
+extern void maxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array);
export_proto(maxloc0_4_i8);
void
-maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array)
+maxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_INTEGER_8 *base;
+ const GFC_INTEGER_8 *base;
GFC_INTEGER_4 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_4_i8 (gfc_array_i4 *, gfc_array_i8 *, gfc_array_l4 *);
+extern void mmaxloc0_4_i8 (gfc_array_i4 * const restrict,
+ gfc_array_i8 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_4_i8);
void
-mmaxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array,
- gfc_array_l4 * mask)
+mmaxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_4 *dest;
- GFC_INTEGER_8 *base;
+ const GFC_INTEGER_8 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4)
-extern void maxloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array);
+extern void maxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array);
export_proto(maxloc0_4_r10);
void
-maxloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array)
+maxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_10 *base;
+ const GFC_REAL_10 *base;
GFC_INTEGER_4 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_4_r10 (gfc_array_i4 *, gfc_array_r10 *, gfc_array_l4 *);
+extern void mmaxloc0_4_r10 (gfc_array_i4 * const restrict,
+ gfc_array_r10 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_4_r10);
void
-mmaxloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array,
- gfc_array_l4 * mask)
+mmaxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_4 *dest;
- GFC_REAL_10 *base;
+ const GFC_REAL_10 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4)
-extern void maxloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array);
+extern void maxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array);
export_proto(maxloc0_4_r16);
void
-maxloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array)
+maxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_16 *base;
+ const GFC_REAL_16 *base;
GFC_INTEGER_4 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_4_r16 (gfc_array_i4 *, gfc_array_r16 *, gfc_array_l4 *);
+extern void mmaxloc0_4_r16 (gfc_array_i4 * const restrict,
+ gfc_array_r16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_4_r16);
void
-mmaxloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array,
- gfc_array_l4 * mask)
+mmaxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_4 *dest;
- GFC_REAL_16 *base;
+ const GFC_REAL_16 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4)
-extern void maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array);
+extern void maxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array);
export_proto(maxloc0_4_r4);
void
-maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array)
+maxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_4 *base;
+ const GFC_REAL_4 *base;
GFC_INTEGER_4 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_4_r4 (gfc_array_i4 *, gfc_array_r4 *, gfc_array_l4 *);
+extern void mmaxloc0_4_r4 (gfc_array_i4 * const restrict,
+ gfc_array_r4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_4_r4);
void
-mmaxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array,
- gfc_array_l4 * mask)
+mmaxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_4 *dest;
- GFC_REAL_4 *base;
+ const GFC_REAL_4 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4)
-extern void maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array);
+extern void maxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array);
export_proto(maxloc0_4_r8);
void
-maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array)
+maxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_8 *base;
+ const GFC_REAL_8 *base;
GFC_INTEGER_4 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_4_r8 (gfc_array_i4 *, gfc_array_r8 *, gfc_array_l4 *);
+extern void mmaxloc0_4_r8 (gfc_array_i4 * const restrict,
+ gfc_array_r8 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_4_r8);
void
-mmaxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array,
- gfc_array_l4 * mask)
+mmaxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_4 *dest;
- GFC_REAL_8 *base;
+ const GFC_REAL_8 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_8)
-extern void maxloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array);
+extern void maxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array);
export_proto(maxloc0_8_i16);
void
-maxloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array)
+maxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_INTEGER_16 *base;
+ const GFC_INTEGER_16 *base;
GFC_INTEGER_8 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_8_i16 (gfc_array_i8 *, gfc_array_i16 *, gfc_array_l4 *);
+extern void mmaxloc0_8_i16 (gfc_array_i8 * const restrict,
+ gfc_array_i16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_8_i16);
void
-mmaxloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array,
- gfc_array_l4 * mask)
+mmaxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_8 *dest;
- GFC_INTEGER_16 *base;
+ const GFC_INTEGER_16 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_8)
-extern void maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array);
+extern void maxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array);
export_proto(maxloc0_8_i4);
void
-maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array)
+maxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_INTEGER_4 *base;
+ const GFC_INTEGER_4 *base;
GFC_INTEGER_8 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_8_i4 (gfc_array_i8 *, gfc_array_i4 *, gfc_array_l4 *);
+extern void mmaxloc0_8_i4 (gfc_array_i8 * const restrict,
+ gfc_array_i4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_8_i4);
void
-mmaxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array,
- gfc_array_l4 * mask)
+mmaxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_8 *dest;
- GFC_INTEGER_4 *base;
+ const GFC_INTEGER_4 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array);
+extern void maxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array);
export_proto(maxloc0_8_i8);
void
-maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array)
+maxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_INTEGER_8 *base;
+ const GFC_INTEGER_8 *base;
GFC_INTEGER_8 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_8_i8 (gfc_array_i8 *, gfc_array_i8 *, gfc_array_l4 *);
+extern void mmaxloc0_8_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_8_i8);
void
-mmaxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array,
- gfc_array_l4 * mask)
+mmaxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_8 *dest;
- GFC_INTEGER_8 *base;
+ const GFC_INTEGER_8 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8)
-extern void maxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array);
+extern void maxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array);
export_proto(maxloc0_8_r10);
void
-maxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array)
+maxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_10 *base;
+ const GFC_REAL_10 *base;
GFC_INTEGER_8 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_8_r10 (gfc_array_i8 *, gfc_array_r10 *, gfc_array_l4 *);
+extern void mmaxloc0_8_r10 (gfc_array_i8 * const restrict,
+ gfc_array_r10 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_8_r10);
void
-mmaxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array,
- gfc_array_l4 * mask)
+mmaxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_8 *dest;
- GFC_REAL_10 *base;
+ const GFC_REAL_10 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8)
-extern void maxloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array);
+extern void maxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array);
export_proto(maxloc0_8_r16);
void
-maxloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array)
+maxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_16 *base;
+ const GFC_REAL_16 *base;
GFC_INTEGER_8 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_8_r16 (gfc_array_i8 *, gfc_array_r16 *, gfc_array_l4 *);
+extern void mmaxloc0_8_r16 (gfc_array_i8 * const restrict,
+ gfc_array_r16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_8_r16);
void
-mmaxloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array,
- gfc_array_l4 * mask)
+mmaxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_8 *dest;
- GFC_REAL_16 *base;
+ const GFC_REAL_16 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8)
-extern void maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array);
+extern void maxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array);
export_proto(maxloc0_8_r4);
void
-maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array)
+maxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_4 *base;
+ const GFC_REAL_4 *base;
GFC_INTEGER_8 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_8_r4 (gfc_array_i8 *, gfc_array_r4 *, gfc_array_l4 *);
+extern void mmaxloc0_8_r4 (gfc_array_i8 * const restrict,
+ gfc_array_r4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_8_r4);
void
-mmaxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array,
- gfc_array_l4 * mask)
+mmaxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_8 *dest;
- GFC_REAL_4 *base;
+ const GFC_REAL_4 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8)
-extern void maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array);
+extern void maxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array);
export_proto(maxloc0_8_r8);
void
-maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array)
+maxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_8 *base;
+ const GFC_REAL_8 *base;
GFC_INTEGER_8 *dest;
index_type rank;
index_type n;
}
-extern void mmaxloc0_8_r8 (gfc_array_i8 *, gfc_array_r8 *, gfc_array_l4 *);
+extern void mmaxloc0_8_r8 (gfc_array_i8 * const restrict,
+ gfc_array_r8 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_8_r8);
void
-mmaxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array,
- gfc_array_l4 * mask)
+mmaxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_8 *dest;
- GFC_REAL_8 *base;
+ const GFC_REAL_8 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void maxloc1_16_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *);
+extern void maxloc1_16_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(maxloc1_16_i16);
void
-maxloc1_16_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
+maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_INTEGER_16 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_16 *src;
+ const GFC_INTEGER_16 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
}
-extern void mmaxloc1_16_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_16_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_16_i16);
void
-mmaxloc1_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *dest;
- GFC_INTEGER_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_16 * restrict dest;
+ const GFC_INTEGER_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_16)
-extern void maxloc1_16_i4 (gfc_array_i16 *, gfc_array_i4 *, index_type *);
+extern void maxloc1_16_i4 (gfc_array_i16 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(maxloc1_16_i4);
void
-maxloc1_16_i4 (gfc_array_i16 *retarray, gfc_array_i4 *array, index_type *pdim)
+maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_INTEGER_4 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_4 *src;
+ const GFC_INTEGER_4 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
}
-extern void mmaxloc1_16_i4 (gfc_array_i16 *, gfc_array_i4 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_16_i4 (gfc_array_i16 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_16_i4);
void
-mmaxloc1_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *dest;
- GFC_INTEGER_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_16 * restrict dest;
+ const GFC_INTEGER_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_16)
-extern void maxloc1_16_i8 (gfc_array_i16 *, gfc_array_i8 *, index_type *);
+extern void maxloc1_16_i8 (gfc_array_i16 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(maxloc1_16_i8);
void
-maxloc1_16_i8 (gfc_array_i16 *retarray, gfc_array_i8 *array, index_type *pdim)
+maxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_INTEGER_8 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_8 *src;
+ const GFC_INTEGER_8 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
}
-extern void mmaxloc1_16_i8 (gfc_array_i16 *, gfc_array_i8 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_16_i8 (gfc_array_i16 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_16_i8);
void
-mmaxloc1_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *dest;
- GFC_INTEGER_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_16 * restrict dest;
+ const GFC_INTEGER_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16)
-extern void maxloc1_16_r10 (gfc_array_i16 *, gfc_array_r10 *, index_type *);
+extern void maxloc1_16_r10 (gfc_array_i16 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(maxloc1_16_r10);
void
-maxloc1_16_r10 (gfc_array_i16 *retarray, gfc_array_r10 *array, index_type *pdim)
+maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_10 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_REAL_10 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_10 *src;
+ const GFC_REAL_10 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
}
-extern void mmaxloc1_16_r10 (gfc_array_i16 *, gfc_array_r10 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_16_r10 (gfc_array_i16 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_16_r10);
void
-mmaxloc1_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *dest;
- GFC_REAL_10 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_16 * restrict dest;
+ const GFC_REAL_10 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_10 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_10 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16)
-extern void maxloc1_16_r16 (gfc_array_i16 *, gfc_array_r16 *, index_type *);
+extern void maxloc1_16_r16 (gfc_array_i16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(maxloc1_16_r16);
void
-maxloc1_16_r16 (gfc_array_i16 *retarray, gfc_array_r16 *array, index_type *pdim)
+maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_16 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_REAL_16 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_16 *src;
+ const GFC_REAL_16 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
}
-extern void mmaxloc1_16_r16 (gfc_array_i16 *, gfc_array_r16 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_16_r16 (gfc_array_i16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_16_r16);
void
-mmaxloc1_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *dest;
- GFC_REAL_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_16 * restrict dest;
+ const GFC_REAL_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16)
-extern void maxloc1_16_r4 (gfc_array_i16 *, gfc_array_r4 *, index_type *);
+extern void maxloc1_16_r4 (gfc_array_i16 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(maxloc1_16_r4);
void
-maxloc1_16_r4 (gfc_array_i16 *retarray, gfc_array_r4 *array, index_type *pdim)
+maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_4 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_REAL_4 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_4 *src;
+ const GFC_REAL_4 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
}
-extern void mmaxloc1_16_r4 (gfc_array_i16 *, gfc_array_r4 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_16_r4 (gfc_array_i16 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_16_r4);
void
-mmaxloc1_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *dest;
- GFC_REAL_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_16 * restrict dest;
+ const GFC_REAL_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16)
-extern void maxloc1_16_r8 (gfc_array_i16 *, gfc_array_r8 *, index_type *);
+extern void maxloc1_16_r8 (gfc_array_i16 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(maxloc1_16_r8);
void
-maxloc1_16_r8 (gfc_array_i16 *retarray, gfc_array_r8 *array, index_type *pdim)
+maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_8 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_REAL_8 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_8 *src;
+ const GFC_REAL_8 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
}
-extern void mmaxloc1_16_r8 (gfc_array_i16 *, gfc_array_r8 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_16_r8 (gfc_array_i16 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_16_r8);
void
-mmaxloc1_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *dest;
- GFC_REAL_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_16 * restrict dest;
+ const GFC_REAL_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_4)
-extern void maxloc1_4_i16 (gfc_array_i4 *, gfc_array_i16 *, index_type *);
+extern void maxloc1_4_i16 (gfc_array_i4 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(maxloc1_4_i16);
void
-maxloc1_4_i16 (gfc_array_i4 *retarray, gfc_array_i16 *array, index_type *pdim)
+maxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_INTEGER_16 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_16 *src;
+ const GFC_INTEGER_16 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
}
-extern void mmaxloc1_4_i16 (gfc_array_i4 *, gfc_array_i16 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_4_i16 (gfc_array_i4 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_4_i16);
void
-mmaxloc1_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *dest;
- GFC_INTEGER_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_4 * restrict dest;
+ const GFC_INTEGER_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void maxloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *);
+extern void maxloc1_4_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(maxloc1_4_i4);
void
-maxloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
+maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_INTEGER_4 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_4 *src;
+ const GFC_INTEGER_4 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
}
-extern void mmaxloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_4_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_4_i4);
void
-mmaxloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *dest;
- GFC_INTEGER_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_4 * restrict dest;
+ const GFC_INTEGER_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_4)
-extern void maxloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *);
+extern void maxloc1_4_i8 (gfc_array_i4 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(maxloc1_4_i8);
void
-maxloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim)
+maxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_INTEGER_8 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_8 *src;
+ const GFC_INTEGER_8 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
}
-extern void mmaxloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_4_i8 (gfc_array_i4 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_4_i8);
void
-mmaxloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *dest;
- GFC_INTEGER_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_4 * restrict dest;
+ const GFC_INTEGER_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4)
-extern void maxloc1_4_r10 (gfc_array_i4 *, gfc_array_r10 *, index_type *);
+extern void maxloc1_4_r10 (gfc_array_i4 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(maxloc1_4_r10);
void
-maxloc1_4_r10 (gfc_array_i4 *retarray, gfc_array_r10 *array, index_type *pdim)
+maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_10 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_REAL_10 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_10 *src;
+ const GFC_REAL_10 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
}
-extern void mmaxloc1_4_r10 (gfc_array_i4 *, gfc_array_r10 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_4_r10 (gfc_array_i4 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_4_r10);
void
-mmaxloc1_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *dest;
- GFC_REAL_10 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_4 * restrict dest;
+ const GFC_REAL_10 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_10 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_10 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4)
-extern void maxloc1_4_r16 (gfc_array_i4 *, gfc_array_r16 *, index_type *);
+extern void maxloc1_4_r16 (gfc_array_i4 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(maxloc1_4_r16);
void
-maxloc1_4_r16 (gfc_array_i4 *retarray, gfc_array_r16 *array, index_type *pdim)
+maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_16 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_REAL_16 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_16 *src;
+ const GFC_REAL_16 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
}
-extern void mmaxloc1_4_r16 (gfc_array_i4 *, gfc_array_r16 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_4_r16 (gfc_array_i4 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_4_r16);
void
-mmaxloc1_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *dest;
- GFC_REAL_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_4 * restrict dest;
+ const GFC_REAL_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4)
-extern void maxloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *);
+extern void maxloc1_4_r4 (gfc_array_i4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(maxloc1_4_r4);
void
-maxloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim)
+maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_4 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_REAL_4 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_4 *src;
+ const GFC_REAL_4 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
}
-extern void mmaxloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_4_r4 (gfc_array_i4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_4_r4);
void
-mmaxloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *dest;
- GFC_REAL_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_4 * restrict dest;
+ const GFC_REAL_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4)
-extern void maxloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *);
+extern void maxloc1_4_r8 (gfc_array_i4 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(maxloc1_4_r8);
void
-maxloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim)
+maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_8 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_REAL_8 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_8 *src;
+ const GFC_REAL_8 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
}
-extern void mmaxloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_4_r8 (gfc_array_i4 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_4_r8);
void
-mmaxloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *dest;
- GFC_REAL_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_4 * restrict dest;
+ const GFC_REAL_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_8)
-extern void maxloc1_8_i16 (gfc_array_i8 *, gfc_array_i16 *, index_type *);
+extern void maxloc1_8_i16 (gfc_array_i8 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(maxloc1_8_i16);
void
-maxloc1_8_i16 (gfc_array_i8 *retarray, gfc_array_i16 *array, index_type *pdim)
+maxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_INTEGER_16 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_16 *src;
+ const GFC_INTEGER_16 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
}
-extern void mmaxloc1_8_i16 (gfc_array_i8 *, gfc_array_i16 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_8_i16 (gfc_array_i8 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_8_i16);
void
-mmaxloc1_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *dest;
- GFC_INTEGER_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_8 * restrict dest;
+ const GFC_INTEGER_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_8)
-extern void maxloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *);
+extern void maxloc1_8_i4 (gfc_array_i8 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(maxloc1_8_i4);
void
-maxloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim)
+maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_INTEGER_4 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_4 *src;
+ const GFC_INTEGER_4 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
}
-extern void mmaxloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_8_i4 (gfc_array_i8 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_8_i4);
void
-mmaxloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *dest;
- GFC_INTEGER_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_8 * restrict dest;
+ const GFC_INTEGER_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void maxloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *);
+extern void maxloc1_8_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(maxloc1_8_i8);
void
-maxloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
+maxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_INTEGER_8 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_8 *src;
+ const GFC_INTEGER_8 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
}
-extern void mmaxloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_8_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_8_i8);
void
-mmaxloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *dest;
- GFC_INTEGER_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_8 * restrict dest;
+ const GFC_INTEGER_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8)
-extern void maxloc1_8_r10 (gfc_array_i8 *, gfc_array_r10 *, index_type *);
+extern void maxloc1_8_r10 (gfc_array_i8 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(maxloc1_8_r10);
void
-maxloc1_8_r10 (gfc_array_i8 *retarray, gfc_array_r10 *array, index_type *pdim)
+maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_10 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_REAL_10 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_10 *src;
+ const GFC_REAL_10 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
}
-extern void mmaxloc1_8_r10 (gfc_array_i8 *, gfc_array_r10 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_8_r10 (gfc_array_i8 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_8_r10);
void
-mmaxloc1_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *dest;
- GFC_REAL_10 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_8 * restrict dest;
+ const GFC_REAL_10 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_10 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_10 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8)
-extern void maxloc1_8_r16 (gfc_array_i8 *, gfc_array_r16 *, index_type *);
+extern void maxloc1_8_r16 (gfc_array_i8 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(maxloc1_8_r16);
void
-maxloc1_8_r16 (gfc_array_i8 *retarray, gfc_array_r16 *array, index_type *pdim)
+maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_16 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_REAL_16 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_16 *src;
+ const GFC_REAL_16 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
}
-extern void mmaxloc1_8_r16 (gfc_array_i8 *, gfc_array_r16 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_8_r16 (gfc_array_i8 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_8_r16);
void
-mmaxloc1_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *dest;
- GFC_REAL_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_8 * restrict dest;
+ const GFC_REAL_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8)
-extern void maxloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *);
+extern void maxloc1_8_r4 (gfc_array_i8 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(maxloc1_8_r4);
void
-maxloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim)
+maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_4 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_REAL_4 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_4 *src;
+ const GFC_REAL_4 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
}
-extern void mmaxloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_8_r4 (gfc_array_i8 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_8_r4);
void
-mmaxloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *dest;
- GFC_REAL_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_8 * restrict dest;
+ const GFC_REAL_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8)
-extern void maxloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *);
+extern void maxloc1_8_r8 (gfc_array_i8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(maxloc1_8_r8);
void
-maxloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim)
+maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_8 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_REAL_8 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_8 *src;
+ const GFC_REAL_8 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
}
-extern void mmaxloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxloc1_8_r8 (gfc_array_i8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxloc1_8_r8);
void
-mmaxloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *dest;
- GFC_REAL_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_8 * restrict dest;
+ const GFC_REAL_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void maxval_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *);
+extern void maxval_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(maxval_i16);
void
-maxval_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
+maxval_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_INTEGER_16 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_16 *src;
+ const GFC_INTEGER_16 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
}
-extern void mmaxval_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxval_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxval_i16);
void
-mmaxval_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxval_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *dest;
- GFC_INTEGER_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_16 * restrict dest;
+ const GFC_INTEGER_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void maxval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *);
+extern void maxval_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(maxval_i4);
void
-maxval_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
+maxval_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_INTEGER_4 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_4 *src;
+ const GFC_INTEGER_4 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
}
-extern void mmaxval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxval_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxval_i4);
void
-mmaxval_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxval_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *dest;
- GFC_INTEGER_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_4 * restrict dest;
+ const GFC_INTEGER_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void maxval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *);
+extern void maxval_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(maxval_i8);
void
-maxval_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
+maxval_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_INTEGER_8 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_8 *src;
+ const GFC_INTEGER_8 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
}
-extern void mmaxval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxval_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxval_i8);
void
-mmaxval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxval_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *dest;
- GFC_INTEGER_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_8 * restrict dest;
+ const GFC_INTEGER_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_REAL_10)
-extern void maxval_r10 (gfc_array_r10 *, gfc_array_r10 *, index_type *);
+extern void maxval_r10 (gfc_array_r10 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(maxval_r10);
void
-maxval_r10 (gfc_array_r10 *retarray, gfc_array_r10 *array, index_type *pdim)
+maxval_r10 (gfc_array_r10 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_10 *base;
- GFC_REAL_10 *dest;
+ const GFC_REAL_10 * restrict base;
+ GFC_REAL_10 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_10 *src;
+ const GFC_REAL_10 * restrict src;
GFC_REAL_10 result;
src = base;
{
}
-extern void mmaxval_r10 (gfc_array_r10 *, gfc_array_r10 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxval_r10 (gfc_array_r10 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxval_r10);
void
-mmaxval_r10 (gfc_array_r10 * retarray, gfc_array_r10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxval_r10 (gfc_array_r10 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_10 *dest;
- GFC_REAL_10 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_REAL_10 * restrict dest;
+ const GFC_REAL_10 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_10 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_10 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_10 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_REAL_16)
-extern void maxval_r16 (gfc_array_r16 *, gfc_array_r16 *, index_type *);
+extern void maxval_r16 (gfc_array_r16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(maxval_r16);
void
-maxval_r16 (gfc_array_r16 *retarray, gfc_array_r16 *array, index_type *pdim)
+maxval_r16 (gfc_array_r16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_16 *base;
- GFC_REAL_16 *dest;
+ const GFC_REAL_16 * restrict base;
+ GFC_REAL_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_16 *src;
+ const GFC_REAL_16 * restrict src;
GFC_REAL_16 result;
src = base;
{
}
-extern void mmaxval_r16 (gfc_array_r16 *, gfc_array_r16 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxval_r16 (gfc_array_r16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxval_r16);
void
-mmaxval_r16 (gfc_array_r16 * retarray, gfc_array_r16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxval_r16 (gfc_array_r16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_16 *dest;
- GFC_REAL_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_REAL_16 * restrict dest;
+ const GFC_REAL_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4)
-extern void maxval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *);
+extern void maxval_r4 (gfc_array_r4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(maxval_r4);
void
-maxval_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
+maxval_r4 (gfc_array_r4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_4 *base;
- GFC_REAL_4 *dest;
+ const GFC_REAL_4 * restrict base;
+ GFC_REAL_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_4 *src;
+ const GFC_REAL_4 * restrict src;
GFC_REAL_4 result;
src = base;
{
}
-extern void mmaxval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxval_r4 (gfc_array_r4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxval_r4);
void
-mmaxval_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxval_r4 (gfc_array_r4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_4 *dest;
- GFC_REAL_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_REAL_4 * restrict dest;
+ const GFC_REAL_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_REAL_8)
-extern void maxval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *);
+extern void maxval_r8 (gfc_array_r8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(maxval_r8);
void
-maxval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
+maxval_r8 (gfc_array_r8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_8 *base;
- GFC_REAL_8 *dest;
+ const GFC_REAL_8 * restrict base;
+ GFC_REAL_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_8 *src;
+ const GFC_REAL_8 * restrict src;
GFC_REAL_8 result;
src = base;
{
}
-extern void mmaxval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *,
- gfc_array_l4 *);
+extern void mmaxval_r8 (gfc_array_r8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mmaxval_r8);
void
-mmaxval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mmaxval_r8 (gfc_array_r8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_8 *dest;
- GFC_REAL_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_REAL_8 * restrict dest;
+ const GFC_REAL_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void minloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array);
+extern void minloc0_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array);
export_proto(minloc0_16_i16);
void
-minloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array)
+minloc0_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_INTEGER_16 *base;
+ const GFC_INTEGER_16 *base;
GFC_INTEGER_16 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_16_i16 (gfc_array_i16 *, gfc_array_i16 *, gfc_array_l4 *);
+extern void mminloc0_16_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_16_i16);
void
-mminloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array,
- gfc_array_l4 * mask)
+mminloc0_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_16 *dest;
- GFC_INTEGER_16 *base;
+ const GFC_INTEGER_16 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_16)
-extern void minloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array);
+extern void minloc0_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array);
export_proto(minloc0_16_i4);
void
-minloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array)
+minloc0_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_INTEGER_4 *base;
+ const GFC_INTEGER_4 *base;
GFC_INTEGER_16 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_16_i4 (gfc_array_i16 *, gfc_array_i4 *, gfc_array_l4 *);
+extern void mminloc0_16_i4 (gfc_array_i16 * const restrict,
+ gfc_array_i4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_16_i4);
void
-mminloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array,
- gfc_array_l4 * mask)
+mminloc0_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_16 *dest;
- GFC_INTEGER_4 *base;
+ const GFC_INTEGER_4 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_16)
-extern void minloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array);
+extern void minloc0_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array);
export_proto(minloc0_16_i8);
void
-minloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array)
+minloc0_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_INTEGER_8 *base;
+ const GFC_INTEGER_8 *base;
GFC_INTEGER_16 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_16_i8 (gfc_array_i16 *, gfc_array_i8 *, gfc_array_l4 *);
+extern void mminloc0_16_i8 (gfc_array_i16 * const restrict,
+ gfc_array_i8 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_16_i8);
void
-mminloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array,
- gfc_array_l4 * mask)
+mminloc0_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_16 *dest;
- GFC_INTEGER_8 *base;
+ const GFC_INTEGER_8 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16)
-extern void minloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array);
+extern void minloc0_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array);
export_proto(minloc0_16_r10);
void
-minloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array)
+minloc0_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_10 *base;
+ const GFC_REAL_10 *base;
GFC_INTEGER_16 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_16_r10 (gfc_array_i16 *, gfc_array_r10 *, gfc_array_l4 *);
+extern void mminloc0_16_r10 (gfc_array_i16 * const restrict,
+ gfc_array_r10 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_16_r10);
void
-mminloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array,
- gfc_array_l4 * mask)
+mminloc0_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_16 *dest;
- GFC_REAL_10 *base;
+ const GFC_REAL_10 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16)
-extern void minloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array);
+extern void minloc0_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array);
export_proto(minloc0_16_r16);
void
-minloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array)
+minloc0_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_16 *base;
+ const GFC_REAL_16 *base;
GFC_INTEGER_16 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_16_r16 (gfc_array_i16 *, gfc_array_r16 *, gfc_array_l4 *);
+extern void mminloc0_16_r16 (gfc_array_i16 * const restrict,
+ gfc_array_r16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_16_r16);
void
-mminloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array,
- gfc_array_l4 * mask)
+mminloc0_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_16 *dest;
- GFC_REAL_16 *base;
+ const GFC_REAL_16 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16)
-extern void minloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array);
+extern void minloc0_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array);
export_proto(minloc0_16_r4);
void
-minloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array)
+minloc0_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_4 *base;
+ const GFC_REAL_4 *base;
GFC_INTEGER_16 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_16_r4 (gfc_array_i16 *, gfc_array_r4 *, gfc_array_l4 *);
+extern void mminloc0_16_r4 (gfc_array_i16 * const restrict,
+ gfc_array_r4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_16_r4);
void
-mminloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array,
- gfc_array_l4 * mask)
+mminloc0_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_16 *dest;
- GFC_REAL_4 *base;
+ const GFC_REAL_4 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16)
-extern void minloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array);
+extern void minloc0_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array);
export_proto(minloc0_16_r8);
void
-minloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array)
+minloc0_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_8 *base;
+ const GFC_REAL_8 *base;
GFC_INTEGER_16 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_16_r8 (gfc_array_i16 *, gfc_array_r8 *, gfc_array_l4 *);
+extern void mminloc0_16_r8 (gfc_array_i16 * const restrict,
+ gfc_array_r8 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_16_r8);
void
-mminloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array,
- gfc_array_l4 * mask)
+mminloc0_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_16 *dest;
- GFC_REAL_8 *base;
+ const GFC_REAL_8 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array);
+extern void minloc0_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array);
export_proto(minloc0_4_i16);
void
-minloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array)
+minloc0_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_INTEGER_16 *base;
+ const GFC_INTEGER_16 *base;
GFC_INTEGER_4 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_4_i16 (gfc_array_i4 *, gfc_array_i16 *, gfc_array_l4 *);
+extern void mminloc0_4_i16 (gfc_array_i4 * const restrict,
+ gfc_array_i16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_4_i16);
void
-mminloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array,
- gfc_array_l4 * mask)
+mminloc0_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_4 *dest;
- GFC_INTEGER_16 *base;
+ const GFC_INTEGER_16 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array);
+extern void minloc0_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array);
export_proto(minloc0_4_i4);
void
-minloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array)
+minloc0_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_INTEGER_4 *base;
+ const GFC_INTEGER_4 *base;
GFC_INTEGER_4 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_4_i4 (gfc_array_i4 *, gfc_array_i4 *, gfc_array_l4 *);
+extern void mminloc0_4_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_4_i4);
void
-mminloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array,
- gfc_array_l4 * mask)
+mminloc0_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_4 *dest;
- GFC_INTEGER_4 *base;
+ const GFC_INTEGER_4 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array);
+extern void minloc0_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array);
export_proto(minloc0_4_i8);
void
-minloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array)
+minloc0_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_INTEGER_8 *base;
+ const GFC_INTEGER_8 *base;
GFC_INTEGER_4 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_4_i8 (gfc_array_i4 *, gfc_array_i8 *, gfc_array_l4 *);
+extern void mminloc0_4_i8 (gfc_array_i4 * const restrict,
+ gfc_array_i8 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_4_i8);
void
-mminloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array,
- gfc_array_l4 * mask)
+mminloc0_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_4 *dest;
- GFC_INTEGER_8 *base;
+ const GFC_INTEGER_8 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array);
+extern void minloc0_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array);
export_proto(minloc0_4_r10);
void
-minloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array)
+minloc0_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_10 *base;
+ const GFC_REAL_10 *base;
GFC_INTEGER_4 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_4_r10 (gfc_array_i4 *, gfc_array_r10 *, gfc_array_l4 *);
+extern void mminloc0_4_r10 (gfc_array_i4 * const restrict,
+ gfc_array_r10 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_4_r10);
void
-mminloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array,
- gfc_array_l4 * mask)
+mminloc0_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_4 *dest;
- GFC_REAL_10 *base;
+ const GFC_REAL_10 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array);
+extern void minloc0_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array);
export_proto(minloc0_4_r16);
void
-minloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array)
+minloc0_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_16 *base;
+ const GFC_REAL_16 *base;
GFC_INTEGER_4 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_4_r16 (gfc_array_i4 *, gfc_array_r16 *, gfc_array_l4 *);
+extern void mminloc0_4_r16 (gfc_array_i4 * const restrict,
+ gfc_array_r16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_4_r16);
void
-mminloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array,
- gfc_array_l4 * mask)
+mminloc0_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_4 *dest;
- GFC_REAL_16 *base;
+ const GFC_REAL_16 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array);
+extern void minloc0_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array);
export_proto(minloc0_4_r4);
void
-minloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array)
+minloc0_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_4 *base;
+ const GFC_REAL_4 *base;
GFC_INTEGER_4 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_4_r4 (gfc_array_i4 *, gfc_array_r4 *, gfc_array_l4 *);
+extern void mminloc0_4_r4 (gfc_array_i4 * const restrict,
+ gfc_array_r4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_4_r4);
void
-mminloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array,
- gfc_array_l4 * mask)
+mminloc0_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_4 *dest;
- GFC_REAL_4 *base;
+ const GFC_REAL_4 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array);
+extern void minloc0_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array);
export_proto(minloc0_4_r8);
void
-minloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array)
+minloc0_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_8 *base;
+ const GFC_REAL_8 *base;
GFC_INTEGER_4 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_4_r8 (gfc_array_i4 *, gfc_array_r8 *, gfc_array_l4 *);
+extern void mminloc0_4_r8 (gfc_array_i4 * const restrict,
+ gfc_array_r8 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_4_r8);
void
-mminloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array,
- gfc_array_l4 * mask)
+mminloc0_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_4 *dest;
- GFC_REAL_8 *base;
+ const GFC_REAL_8 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array);
+extern void minloc0_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array);
export_proto(minloc0_8_i16);
void
-minloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array)
+minloc0_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_INTEGER_16 *base;
+ const GFC_INTEGER_16 *base;
GFC_INTEGER_8 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_8_i16 (gfc_array_i8 *, gfc_array_i16 *, gfc_array_l4 *);
+extern void mminloc0_8_i16 (gfc_array_i8 * const restrict,
+ gfc_array_i16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_8_i16);
void
-mminloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array,
- gfc_array_l4 * mask)
+mminloc0_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_8 *dest;
- GFC_INTEGER_16 *base;
+ const GFC_INTEGER_16 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array);
+extern void minloc0_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array);
export_proto(minloc0_8_i4);
void
-minloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array)
+minloc0_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_INTEGER_4 *base;
+ const GFC_INTEGER_4 *base;
GFC_INTEGER_8 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_8_i4 (gfc_array_i8 *, gfc_array_i4 *, gfc_array_l4 *);
+extern void mminloc0_8_i4 (gfc_array_i8 * const restrict,
+ gfc_array_i4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_8_i4);
void
-mminloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array,
- gfc_array_l4 * mask)
+mminloc0_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_8 *dest;
- GFC_INTEGER_4 *base;
+ const GFC_INTEGER_4 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array);
+extern void minloc0_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array);
export_proto(minloc0_8_i8);
void
-minloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array)
+minloc0_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_INTEGER_8 *base;
+ const GFC_INTEGER_8 *base;
GFC_INTEGER_8 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_8_i8 (gfc_array_i8 *, gfc_array_i8 *, gfc_array_l4 *);
+extern void mminloc0_8_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_8_i8);
void
-mminloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array,
- gfc_array_l4 * mask)
+mminloc0_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_8 *dest;
- GFC_INTEGER_8 *base;
+ const GFC_INTEGER_8 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array);
+extern void minloc0_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array);
export_proto(minloc0_8_r10);
void
-minloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array)
+minloc0_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_10 *base;
+ const GFC_REAL_10 *base;
GFC_INTEGER_8 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_8_r10 (gfc_array_i8 *, gfc_array_r10 *, gfc_array_l4 *);
+extern void mminloc0_8_r10 (gfc_array_i8 * const restrict,
+ gfc_array_r10 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_8_r10);
void
-mminloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array,
- gfc_array_l4 * mask)
+mminloc0_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_8 *dest;
- GFC_REAL_10 *base;
+ const GFC_REAL_10 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array);
+extern void minloc0_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array);
export_proto(minloc0_8_r16);
void
-minloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array)
+minloc0_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_16 *base;
+ const GFC_REAL_16 *base;
GFC_INTEGER_8 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_8_r16 (gfc_array_i8 *, gfc_array_r16 *, gfc_array_l4 *);
+extern void mminloc0_8_r16 (gfc_array_i8 * const restrict,
+ gfc_array_r16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_8_r16);
void
-mminloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array,
- gfc_array_l4 * mask)
+mminloc0_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_8 *dest;
- GFC_REAL_16 *base;
+ const GFC_REAL_16 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array);
+extern void minloc0_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array);
export_proto(minloc0_8_r4);
void
-minloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array)
+minloc0_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_4 *base;
+ const GFC_REAL_4 *base;
GFC_INTEGER_8 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_8_r4 (gfc_array_i8 *, gfc_array_r4 *, gfc_array_l4 *);
+extern void mminloc0_8_r4 (gfc_array_i8 * const restrict,
+ gfc_array_r4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_8_r4);
void
-mminloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array,
- gfc_array_l4 * mask)
+mminloc0_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_8 *dest;
- GFC_REAL_4 *base;
+ const GFC_REAL_4 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array);
+extern void minloc0_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array);
export_proto(minloc0_8_r8);
void
-minloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array)
+minloc0_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_8 *base;
+ const GFC_REAL_8 *base;
GFC_INTEGER_8 *dest;
index_type rank;
index_type n;
}
-extern void mminloc0_8_r8 (gfc_array_i8 *, gfc_array_r8 *, gfc_array_l4 *);
+extern void mminloc0_8_r8 (gfc_array_i8 * const restrict,
+ gfc_array_r8 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_8_r8);
void
-mminloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array,
- gfc_array_l4 * mask)
+mminloc0_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_8 *dest;
- GFC_REAL_8 *base;
+ const GFC_REAL_8 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void minloc1_16_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *);
+extern void minloc1_16_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(minloc1_16_i16);
void
-minloc1_16_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
+minloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_INTEGER_16 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_16 *src;
+ const GFC_INTEGER_16 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
}
-extern void mminloc1_16_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_16_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_16_i16);
void
-mminloc1_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *dest;
- GFC_INTEGER_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_16 * restrict dest;
+ const GFC_INTEGER_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_16)
-extern void minloc1_16_i4 (gfc_array_i16 *, gfc_array_i4 *, index_type *);
+extern void minloc1_16_i4 (gfc_array_i16 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(minloc1_16_i4);
void
-minloc1_16_i4 (gfc_array_i16 *retarray, gfc_array_i4 *array, index_type *pdim)
+minloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_INTEGER_4 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_4 *src;
+ const GFC_INTEGER_4 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
}
-extern void mminloc1_16_i4 (gfc_array_i16 *, gfc_array_i4 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_16_i4 (gfc_array_i16 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_16_i4);
void
-mminloc1_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *dest;
- GFC_INTEGER_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_16 * restrict dest;
+ const GFC_INTEGER_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_16)
-extern void minloc1_16_i8 (gfc_array_i16 *, gfc_array_i8 *, index_type *);
+extern void minloc1_16_i8 (gfc_array_i16 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(minloc1_16_i8);
void
-minloc1_16_i8 (gfc_array_i16 *retarray, gfc_array_i8 *array, index_type *pdim)
+minloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_INTEGER_8 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_8 *src;
+ const GFC_INTEGER_8 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
}
-extern void mminloc1_16_i8 (gfc_array_i16 *, gfc_array_i8 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_16_i8 (gfc_array_i16 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_16_i8);
void
-mminloc1_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *dest;
- GFC_INTEGER_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_16 * restrict dest;
+ const GFC_INTEGER_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16)
-extern void minloc1_16_r10 (gfc_array_i16 *, gfc_array_r10 *, index_type *);
+extern void minloc1_16_r10 (gfc_array_i16 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(minloc1_16_r10);
void
-minloc1_16_r10 (gfc_array_i16 *retarray, gfc_array_r10 *array, index_type *pdim)
+minloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_10 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_REAL_10 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_10 *src;
+ const GFC_REAL_10 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
}
-extern void mminloc1_16_r10 (gfc_array_i16 *, gfc_array_r10 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_16_r10 (gfc_array_i16 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_16_r10);
void
-mminloc1_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *dest;
- GFC_REAL_10 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_16 * restrict dest;
+ const GFC_REAL_10 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_10 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_10 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16)
-extern void minloc1_16_r16 (gfc_array_i16 *, gfc_array_r16 *, index_type *);
+extern void minloc1_16_r16 (gfc_array_i16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(minloc1_16_r16);
void
-minloc1_16_r16 (gfc_array_i16 *retarray, gfc_array_r16 *array, index_type *pdim)
+minloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_16 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_REAL_16 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_16 *src;
+ const GFC_REAL_16 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
}
-extern void mminloc1_16_r16 (gfc_array_i16 *, gfc_array_r16 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_16_r16 (gfc_array_i16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_16_r16);
void
-mminloc1_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *dest;
- GFC_REAL_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_16 * restrict dest;
+ const GFC_REAL_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16)
-extern void minloc1_16_r4 (gfc_array_i16 *, gfc_array_r4 *, index_type *);
+extern void minloc1_16_r4 (gfc_array_i16 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(minloc1_16_r4);
void
-minloc1_16_r4 (gfc_array_i16 *retarray, gfc_array_r4 *array, index_type *pdim)
+minloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_4 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_REAL_4 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_4 *src;
+ const GFC_REAL_4 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
}
-extern void mminloc1_16_r4 (gfc_array_i16 *, gfc_array_r4 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_16_r4 (gfc_array_i16 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_16_r4);
void
-mminloc1_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *dest;
- GFC_REAL_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_16 * restrict dest;
+ const GFC_REAL_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16)
-extern void minloc1_16_r8 (gfc_array_i16 *, gfc_array_r8 *, index_type *);
+extern void minloc1_16_r8 (gfc_array_i16 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(minloc1_16_r8);
void
-minloc1_16_r8 (gfc_array_i16 *retarray, gfc_array_r8 *array, index_type *pdim)
+minloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_8 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_REAL_8 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_8 *src;
+ const GFC_REAL_8 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
}
-extern void mminloc1_16_r8 (gfc_array_i16 *, gfc_array_r8 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_16_r8 (gfc_array_i16 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_16_r8);
void
-mminloc1_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *dest;
- GFC_REAL_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_16 * restrict dest;
+ const GFC_REAL_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc1_4_i16 (gfc_array_i4 *, gfc_array_i16 *, index_type *);
+extern void minloc1_4_i16 (gfc_array_i4 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(minloc1_4_i16);
void
-minloc1_4_i16 (gfc_array_i4 *retarray, gfc_array_i16 *array, index_type *pdim)
+minloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_INTEGER_16 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_16 *src;
+ const GFC_INTEGER_16 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
}
-extern void mminloc1_4_i16 (gfc_array_i4 *, gfc_array_i16 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_4_i16 (gfc_array_i4 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_4_i16);
void
-mminloc1_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *dest;
- GFC_INTEGER_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_4 * restrict dest;
+ const GFC_INTEGER_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *);
+extern void minloc1_4_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(minloc1_4_i4);
void
-minloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
+minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_INTEGER_4 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_4 *src;
+ const GFC_INTEGER_4 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
}
-extern void mminloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_4_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_4_i4);
void
-mminloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *dest;
- GFC_INTEGER_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_4 * restrict dest;
+ const GFC_INTEGER_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *);
+extern void minloc1_4_i8 (gfc_array_i4 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(minloc1_4_i8);
void
-minloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim)
+minloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_INTEGER_8 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_8 *src;
+ const GFC_INTEGER_8 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
}
-extern void mminloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_4_i8 (gfc_array_i4 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_4_i8);
void
-mminloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *dest;
- GFC_INTEGER_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_4 * restrict dest;
+ const GFC_INTEGER_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc1_4_r10 (gfc_array_i4 *, gfc_array_r10 *, index_type *);
+extern void minloc1_4_r10 (gfc_array_i4 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(minloc1_4_r10);
void
-minloc1_4_r10 (gfc_array_i4 *retarray, gfc_array_r10 *array, index_type *pdim)
+minloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_10 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_REAL_10 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_10 *src;
+ const GFC_REAL_10 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
}
-extern void mminloc1_4_r10 (gfc_array_i4 *, gfc_array_r10 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_4_r10 (gfc_array_i4 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_4_r10);
void
-mminloc1_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *dest;
- GFC_REAL_10 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_4 * restrict dest;
+ const GFC_REAL_10 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_10 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_10 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc1_4_r16 (gfc_array_i4 *, gfc_array_r16 *, index_type *);
+extern void minloc1_4_r16 (gfc_array_i4 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(minloc1_4_r16);
void
-minloc1_4_r16 (gfc_array_i4 *retarray, gfc_array_r16 *array, index_type *pdim)
+minloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_16 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_REAL_16 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_16 *src;
+ const GFC_REAL_16 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
}
-extern void mminloc1_4_r16 (gfc_array_i4 *, gfc_array_r16 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_4_r16 (gfc_array_i4 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_4_r16);
void
-mminloc1_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *dest;
- GFC_REAL_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_4 * restrict dest;
+ const GFC_REAL_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *);
+extern void minloc1_4_r4 (gfc_array_i4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(minloc1_4_r4);
void
-minloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim)
+minloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_4 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_REAL_4 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_4 *src;
+ const GFC_REAL_4 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
}
-extern void mminloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_4_r4 (gfc_array_i4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_4_r4);
void
-mminloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *dest;
- GFC_REAL_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_4 * restrict dest;
+ const GFC_REAL_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *);
+extern void minloc1_4_r8 (gfc_array_i4 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(minloc1_4_r8);
void
-minloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim)
+minloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_8 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_REAL_8 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_8 *src;
+ const GFC_REAL_8 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
}
-extern void mminloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_4_r8 (gfc_array_i4 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_4_r8);
void
-mminloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *dest;
- GFC_REAL_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_4 * restrict dest;
+ const GFC_REAL_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc1_8_i16 (gfc_array_i8 *, gfc_array_i16 *, index_type *);
+extern void minloc1_8_i16 (gfc_array_i8 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(minloc1_8_i16);
void
-minloc1_8_i16 (gfc_array_i8 *retarray, gfc_array_i16 *array, index_type *pdim)
+minloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_INTEGER_16 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_16 *src;
+ const GFC_INTEGER_16 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
}
-extern void mminloc1_8_i16 (gfc_array_i8 *, gfc_array_i16 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_8_i16 (gfc_array_i8 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_8_i16);
void
-mminloc1_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *dest;
- GFC_INTEGER_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_8 * restrict dest;
+ const GFC_INTEGER_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *);
+extern void minloc1_8_i4 (gfc_array_i8 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(minloc1_8_i4);
void
-minloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim)
+minloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_INTEGER_4 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_4 *src;
+ const GFC_INTEGER_4 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
}
-extern void mminloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_8_i4 (gfc_array_i8 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_8_i4);
void
-mminloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *dest;
- GFC_INTEGER_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_8 * restrict dest;
+ const GFC_INTEGER_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *);
+extern void minloc1_8_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(minloc1_8_i8);
void
-minloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
+minloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_INTEGER_8 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_8 *src;
+ const GFC_INTEGER_8 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
}
-extern void mminloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_8_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_8_i8);
void
-mminloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *dest;
- GFC_INTEGER_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_8 * restrict dest;
+ const GFC_INTEGER_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc1_8_r10 (gfc_array_i8 *, gfc_array_r10 *, index_type *);
+extern void minloc1_8_r10 (gfc_array_i8 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(minloc1_8_r10);
void
-minloc1_8_r10 (gfc_array_i8 *retarray, gfc_array_r10 *array, index_type *pdim)
+minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_10 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_REAL_10 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_10 *src;
+ const GFC_REAL_10 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
}
-extern void mminloc1_8_r10 (gfc_array_i8 *, gfc_array_r10 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_8_r10 (gfc_array_i8 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_8_r10);
void
-mminloc1_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *dest;
- GFC_REAL_10 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_8 * restrict dest;
+ const GFC_REAL_10 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_10 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_10 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc1_8_r16 (gfc_array_i8 *, gfc_array_r16 *, index_type *);
+extern void minloc1_8_r16 (gfc_array_i8 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(minloc1_8_r16);
void
-minloc1_8_r16 (gfc_array_i8 *retarray, gfc_array_r16 *array, index_type *pdim)
+minloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_16 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_REAL_16 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_16 *src;
+ const GFC_REAL_16 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
}
-extern void mminloc1_8_r16 (gfc_array_i8 *, gfc_array_r16 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_8_r16 (gfc_array_i8 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_8_r16);
void
-mminloc1_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *dest;
- GFC_REAL_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_8 * restrict dest;
+ const GFC_REAL_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *);
+extern void minloc1_8_r4 (gfc_array_i8 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(minloc1_8_r4);
void
-minloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim)
+minloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_4 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_REAL_4 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_4 *src;
+ const GFC_REAL_4 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
}
-extern void mminloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_8_r4 (gfc_array_i8 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_8_r4);
void
-mminloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *dest;
- GFC_REAL_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_8 * restrict dest;
+ const GFC_REAL_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *);
+extern void minloc1_8_r8 (gfc_array_i8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(minloc1_8_r8);
void
-minloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim)
+minloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_8 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_REAL_8 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_8 *src;
+ const GFC_REAL_8 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
}
-extern void mminloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_8_r8 (gfc_array_i8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_8_r8);
void
-mminloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *dest;
- GFC_REAL_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_8 * restrict dest;
+ const GFC_REAL_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void minval_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *);
+extern void minval_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(minval_i16);
void
-minval_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
+minval_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_INTEGER_16 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_16 *src;
+ const GFC_INTEGER_16 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
}
-extern void mminval_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *,
- gfc_array_l4 *);
+extern void mminval_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminval_i16);
void
-mminval_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminval_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *dest;
- GFC_INTEGER_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_16 * restrict dest;
+ const GFC_INTEGER_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void minval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *);
+extern void minval_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(minval_i4);
void
-minval_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
+minval_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_INTEGER_4 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_4 *src;
+ const GFC_INTEGER_4 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
}
-extern void mminval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *,
- gfc_array_l4 *);
+extern void mminval_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminval_i4);
void
-mminval_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminval_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *dest;
- GFC_INTEGER_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_4 * restrict dest;
+ const GFC_INTEGER_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void minval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *);
+extern void minval_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(minval_i8);
void
-minval_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
+minval_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_INTEGER_8 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_8 *src;
+ const GFC_INTEGER_8 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
}
-extern void mminval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *,
- gfc_array_l4 *);
+extern void mminval_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminval_i8);
void
-mminval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminval_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *dest;
- GFC_INTEGER_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_8 * restrict dest;
+ const GFC_INTEGER_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_REAL_10)
-extern void minval_r10 (gfc_array_r10 *, gfc_array_r10 *, index_type *);
+extern void minval_r10 (gfc_array_r10 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(minval_r10);
void
-minval_r10 (gfc_array_r10 *retarray, gfc_array_r10 *array, index_type *pdim)
+minval_r10 (gfc_array_r10 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_10 *base;
- GFC_REAL_10 *dest;
+ const GFC_REAL_10 * restrict base;
+ GFC_REAL_10 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_10 *src;
+ const GFC_REAL_10 * restrict src;
GFC_REAL_10 result;
src = base;
{
}
-extern void mminval_r10 (gfc_array_r10 *, gfc_array_r10 *, index_type *,
- gfc_array_l4 *);
+extern void mminval_r10 (gfc_array_r10 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminval_r10);
void
-mminval_r10 (gfc_array_r10 * retarray, gfc_array_r10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminval_r10 (gfc_array_r10 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_10 *dest;
- GFC_REAL_10 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_REAL_10 * restrict dest;
+ const GFC_REAL_10 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_10 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_10 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_10 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_REAL_16)
-extern void minval_r16 (gfc_array_r16 *, gfc_array_r16 *, index_type *);
+extern void minval_r16 (gfc_array_r16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(minval_r16);
void
-minval_r16 (gfc_array_r16 *retarray, gfc_array_r16 *array, index_type *pdim)
+minval_r16 (gfc_array_r16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_16 *base;
- GFC_REAL_16 *dest;
+ const GFC_REAL_16 * restrict base;
+ GFC_REAL_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_16 *src;
+ const GFC_REAL_16 * restrict src;
GFC_REAL_16 result;
src = base;
{
}
-extern void mminval_r16 (gfc_array_r16 *, gfc_array_r16 *, index_type *,
- gfc_array_l4 *);
+extern void mminval_r16 (gfc_array_r16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminval_r16);
void
-mminval_r16 (gfc_array_r16 * retarray, gfc_array_r16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminval_r16 (gfc_array_r16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_16 *dest;
- GFC_REAL_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_REAL_16 * restrict dest;
+ const GFC_REAL_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4)
-extern void minval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *);
+extern void minval_r4 (gfc_array_r4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(minval_r4);
void
-minval_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
+minval_r4 (gfc_array_r4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_4 *base;
- GFC_REAL_4 *dest;
+ const GFC_REAL_4 * restrict base;
+ GFC_REAL_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_4 *src;
+ const GFC_REAL_4 * restrict src;
GFC_REAL_4 result;
src = base;
{
}
-extern void mminval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *,
- gfc_array_l4 *);
+extern void mminval_r4 (gfc_array_r4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminval_r4);
void
-mminval_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminval_r4 (gfc_array_r4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_4 *dest;
- GFC_REAL_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_REAL_4 * restrict dest;
+ const GFC_REAL_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_REAL_8)
-extern void minval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *);
+extern void minval_r8 (gfc_array_r8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(minval_r8);
void
-minval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
+minval_r8 (gfc_array_r8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_8 *base;
- GFC_REAL_8 *dest;
+ const GFC_REAL_8 * restrict base;
+ GFC_REAL_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_8 *src;
+ const GFC_REAL_8 * restrict src;
GFC_REAL_8 result;
src = base;
{
}
-extern void mminval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *,
- gfc_array_l4 *);
+extern void mminval_r8 (gfc_array_r8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminval_r8);
void
-mminval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminval_r8 (gfc_array_r8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_8 *dest;
- GFC_REAL_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_REAL_8 * restrict dest;
+ const GFC_REAL_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_COMPLEX_10) && defined (HAVE_GFC_COMPLEX_10)
-extern void product_c10 (gfc_array_c10 *, gfc_array_c10 *, index_type *);
+extern void product_c10 (gfc_array_c10 * const restrict,
+ gfc_array_c10 * const restrict, const index_type * const restrict);
export_proto(product_c10);
void
-product_c10 (gfc_array_c10 *retarray, gfc_array_c10 *array, index_type *pdim)
+product_c10 (gfc_array_c10 * const restrict retarray,
+ gfc_array_c10 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_COMPLEX_10 *base;
- GFC_COMPLEX_10 *dest;
+ const GFC_COMPLEX_10 * restrict base;
+ GFC_COMPLEX_10 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_COMPLEX_10 *src;
+ const GFC_COMPLEX_10 * restrict src;
GFC_COMPLEX_10 result;
src = base;
{
}
-extern void mproduct_c10 (gfc_array_c10 *, gfc_array_c10 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_c10 (gfc_array_c10 * const restrict,
+ gfc_array_c10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_c10);
void
-mproduct_c10 (gfc_array_c10 * retarray, gfc_array_c10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_c10 (gfc_array_c10 * const restrict retarray,
+ gfc_array_c10 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_COMPLEX_10 *dest;
- GFC_COMPLEX_10 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_COMPLEX_10 * restrict dest;
+ const GFC_COMPLEX_10 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_COMPLEX_10 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_COMPLEX_10 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_COMPLEX_10 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_COMPLEX_16) && defined (HAVE_GFC_COMPLEX_16)
-extern void product_c16 (gfc_array_c16 *, gfc_array_c16 *, index_type *);
+extern void product_c16 (gfc_array_c16 * const restrict,
+ gfc_array_c16 * const restrict, const index_type * const restrict);
export_proto(product_c16);
void
-product_c16 (gfc_array_c16 *retarray, gfc_array_c16 *array, index_type *pdim)
+product_c16 (gfc_array_c16 * const restrict retarray,
+ gfc_array_c16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_COMPLEX_16 *base;
- GFC_COMPLEX_16 *dest;
+ const GFC_COMPLEX_16 * restrict base;
+ GFC_COMPLEX_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_COMPLEX_16 *src;
+ const GFC_COMPLEX_16 * restrict src;
GFC_COMPLEX_16 result;
src = base;
{
}
-extern void mproduct_c16 (gfc_array_c16 *, gfc_array_c16 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_c16 (gfc_array_c16 * const restrict,
+ gfc_array_c16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_c16);
void
-mproduct_c16 (gfc_array_c16 * retarray, gfc_array_c16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_c16 (gfc_array_c16 * const restrict retarray,
+ gfc_array_c16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_COMPLEX_16 *dest;
- GFC_COMPLEX_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_COMPLEX_16 * restrict dest;
+ const GFC_COMPLEX_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_COMPLEX_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_COMPLEX_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_COMPLEX_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_COMPLEX_4) && defined (HAVE_GFC_COMPLEX_4)
-extern void product_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *);
+extern void product_c4 (gfc_array_c4 * const restrict,
+ gfc_array_c4 * const restrict, const index_type * const restrict);
export_proto(product_c4);
void
-product_c4 (gfc_array_c4 *retarray, gfc_array_c4 *array, index_type *pdim)
+product_c4 (gfc_array_c4 * const restrict retarray,
+ gfc_array_c4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_COMPLEX_4 *base;
- GFC_COMPLEX_4 *dest;
+ const GFC_COMPLEX_4 * restrict base;
+ GFC_COMPLEX_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_COMPLEX_4 *src;
+ const GFC_COMPLEX_4 * restrict src;
GFC_COMPLEX_4 result;
src = base;
{
}
-extern void mproduct_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_c4 (gfc_array_c4 * const restrict,
+ gfc_array_c4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_c4);
void
-mproduct_c4 (gfc_array_c4 * retarray, gfc_array_c4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_c4 (gfc_array_c4 * const restrict retarray,
+ gfc_array_c4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_COMPLEX_4 *dest;
- GFC_COMPLEX_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_COMPLEX_4 * restrict dest;
+ const GFC_COMPLEX_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_COMPLEX_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_COMPLEX_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_COMPLEX_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_COMPLEX_8) && defined (HAVE_GFC_COMPLEX_8)
-extern void product_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *);
+extern void product_c8 (gfc_array_c8 * const restrict,
+ gfc_array_c8 * const restrict, const index_type * const restrict);
export_proto(product_c8);
void
-product_c8 (gfc_array_c8 *retarray, gfc_array_c8 *array, index_type *pdim)
+product_c8 (gfc_array_c8 * const restrict retarray,
+ gfc_array_c8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_COMPLEX_8 *base;
- GFC_COMPLEX_8 *dest;
+ const GFC_COMPLEX_8 * restrict base;
+ GFC_COMPLEX_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_COMPLEX_8 *src;
+ const GFC_COMPLEX_8 * restrict src;
GFC_COMPLEX_8 result;
src = base;
{
}
-extern void mproduct_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_c8 (gfc_array_c8 * const restrict,
+ gfc_array_c8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_c8);
void
-mproduct_c8 (gfc_array_c8 * retarray, gfc_array_c8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_c8 (gfc_array_c8 * const restrict retarray,
+ gfc_array_c8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_COMPLEX_8 *dest;
- GFC_COMPLEX_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_COMPLEX_8 * restrict dest;
+ const GFC_COMPLEX_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_COMPLEX_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_COMPLEX_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_COMPLEX_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void product_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *);
+extern void product_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(product_i16);
void
-product_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
+product_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_INTEGER_16 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_16 *src;
+ const GFC_INTEGER_16 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
}
-extern void mproduct_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_i16);
void
-mproduct_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *dest;
- GFC_INTEGER_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_16 * restrict dest;
+ const GFC_INTEGER_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void product_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *);
+extern void product_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(product_i4);
void
-product_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
+product_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_INTEGER_4 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_4 *src;
+ const GFC_INTEGER_4 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
}
-extern void mproduct_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_i4);
void
-mproduct_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *dest;
- GFC_INTEGER_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_4 * restrict dest;
+ const GFC_INTEGER_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void product_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *);
+extern void product_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(product_i8);
void
-product_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
+product_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_INTEGER_8 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_8 *src;
+ const GFC_INTEGER_8 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
}
-extern void mproduct_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_i8);
void
-mproduct_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *dest;
- GFC_INTEGER_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_8 * restrict dest;
+ const GFC_INTEGER_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_REAL_10)
-extern void product_r10 (gfc_array_r10 *, gfc_array_r10 *, index_type *);
+extern void product_r10 (gfc_array_r10 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(product_r10);
void
-product_r10 (gfc_array_r10 *retarray, gfc_array_r10 *array, index_type *pdim)
+product_r10 (gfc_array_r10 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_10 *base;
- GFC_REAL_10 *dest;
+ const GFC_REAL_10 * restrict base;
+ GFC_REAL_10 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_10 *src;
+ const GFC_REAL_10 * restrict src;
GFC_REAL_10 result;
src = base;
{
}
-extern void mproduct_r10 (gfc_array_r10 *, gfc_array_r10 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_r10 (gfc_array_r10 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_r10);
void
-mproduct_r10 (gfc_array_r10 * retarray, gfc_array_r10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_r10 (gfc_array_r10 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_10 *dest;
- GFC_REAL_10 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_REAL_10 * restrict dest;
+ const GFC_REAL_10 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_10 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_10 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_10 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_REAL_16)
-extern void product_r16 (gfc_array_r16 *, gfc_array_r16 *, index_type *);
+extern void product_r16 (gfc_array_r16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(product_r16);
void
-product_r16 (gfc_array_r16 *retarray, gfc_array_r16 *array, index_type *pdim)
+product_r16 (gfc_array_r16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_16 *base;
- GFC_REAL_16 *dest;
+ const GFC_REAL_16 * restrict base;
+ GFC_REAL_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_16 *src;
+ const GFC_REAL_16 * restrict src;
GFC_REAL_16 result;
src = base;
{
}
-extern void mproduct_r16 (gfc_array_r16 *, gfc_array_r16 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_r16 (gfc_array_r16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_r16);
void
-mproduct_r16 (gfc_array_r16 * retarray, gfc_array_r16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_r16 (gfc_array_r16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_16 *dest;
- GFC_REAL_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_REAL_16 * restrict dest;
+ const GFC_REAL_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4)
-extern void product_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *);
+extern void product_r4 (gfc_array_r4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(product_r4);
void
-product_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
+product_r4 (gfc_array_r4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_4 *base;
- GFC_REAL_4 *dest;
+ const GFC_REAL_4 * restrict base;
+ GFC_REAL_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_4 *src;
+ const GFC_REAL_4 * restrict src;
GFC_REAL_4 result;
src = base;
{
}
-extern void mproduct_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_r4 (gfc_array_r4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_r4);
void
-mproduct_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_r4 (gfc_array_r4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_4 *dest;
- GFC_REAL_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_REAL_4 * restrict dest;
+ const GFC_REAL_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_REAL_8)
-extern void product_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *);
+extern void product_r8 (gfc_array_r8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(product_r8);
void
-product_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
+product_r8 (gfc_array_r8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_8 *base;
- GFC_REAL_8 *dest;
+ const GFC_REAL_8 * restrict base;
+ GFC_REAL_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_8 *src;
+ const GFC_REAL_8 * restrict src;
GFC_REAL_8 result;
src = base;
{
}
-extern void mproduct_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_r8 (gfc_array_r8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_r8);
void
-mproduct_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_r8 (gfc_array_r8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_8 *dest;
- GFC_REAL_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_REAL_8 * restrict dest;
+ const GFC_REAL_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_8 result;
src = base;
msrc = mbase;
/* The shape parameter is ignored. We can currently deduce the shape from the
return array. */
-extern void reshape_c10 (gfc_array_c10 *, gfc_array_c10 *, shape_type *,
- gfc_array_c10 *, shape_type *);
+extern void reshape_c10 (gfc_array_c10 * const restrict,
+ gfc_array_c10 * const restrict,
+ shape_type * const restrict,
+ gfc_array_c10 * const restrict,
+ shape_type * const restrict);
export_proto(reshape_c10);
void
-reshape_c10 (gfc_array_c10 * ret, gfc_array_c10 * source, shape_type * shape,
- gfc_array_c10 * pad, shape_type * order)
+reshape_c10 (gfc_array_c10 * const restrict ret,
+ gfc_array_c10 * const restrict source,
+ shape_type * const restrict shape,
+ gfc_array_c10 * const restrict pad,
+ shape_type * const restrict order)
{
/* r.* indicates the return array. */
index_type rcount[GFC_MAX_DIMENSIONS];
/* The shape parameter is ignored. We can currently deduce the shape from the
return array. */
-extern void reshape_c16 (gfc_array_c16 *, gfc_array_c16 *, shape_type *,
- gfc_array_c16 *, shape_type *);
+extern void reshape_c16 (gfc_array_c16 * const restrict,
+ gfc_array_c16 * const restrict,
+ shape_type * const restrict,
+ gfc_array_c16 * const restrict,
+ shape_type * const restrict);
export_proto(reshape_c16);
void
-reshape_c16 (gfc_array_c16 * ret, gfc_array_c16 * source, shape_type * shape,
- gfc_array_c16 * pad, shape_type * order)
+reshape_c16 (gfc_array_c16 * const restrict ret,
+ gfc_array_c16 * const restrict source,
+ shape_type * const restrict shape,
+ gfc_array_c16 * const restrict pad,
+ shape_type * const restrict order)
{
/* r.* indicates the return array. */
index_type rcount[GFC_MAX_DIMENSIONS];
/* The shape parameter is ignored. We can currently deduce the shape from the
return array. */
-extern void reshape_c4 (gfc_array_c4 *, gfc_array_c4 *, shape_type *,
- gfc_array_c4 *, shape_type *);
+extern void reshape_c4 (gfc_array_c4 * const restrict,
+ gfc_array_c4 * const restrict,
+ shape_type * const restrict,
+ gfc_array_c4 * const restrict,
+ shape_type * const restrict);
export_proto(reshape_c4);
void
-reshape_c4 (gfc_array_c4 * ret, gfc_array_c4 * source, shape_type * shape,
- gfc_array_c4 * pad, shape_type * order)
+reshape_c4 (gfc_array_c4 * const restrict ret,
+ gfc_array_c4 * const restrict source,
+ shape_type * const restrict shape,
+ gfc_array_c4 * const restrict pad,
+ shape_type * const restrict order)
{
/* r.* indicates the return array. */
index_type rcount[GFC_MAX_DIMENSIONS];
/* The shape parameter is ignored. We can currently deduce the shape from the
return array. */
-extern void reshape_c8 (gfc_array_c8 *, gfc_array_c8 *, shape_type *,
- gfc_array_c8 *, shape_type *);
+extern void reshape_c8 (gfc_array_c8 * const restrict,
+ gfc_array_c8 * const restrict,
+ shape_type * const restrict,
+ gfc_array_c8 * const restrict,
+ shape_type * const restrict);
export_proto(reshape_c8);
void
-reshape_c8 (gfc_array_c8 * ret, gfc_array_c8 * source, shape_type * shape,
- gfc_array_c8 * pad, shape_type * order)
+reshape_c8 (gfc_array_c8 * const restrict ret,
+ gfc_array_c8 * const restrict source,
+ shape_type * const restrict shape,
+ gfc_array_c8 * const restrict pad,
+ shape_type * const restrict order)
{
/* r.* indicates the return array. */
index_type rcount[GFC_MAX_DIMENSIONS];
/* The shape parameter is ignored. We can currently deduce the shape from the
return array. */
-extern void reshape_16 (gfc_array_i16 *, gfc_array_i16 *, shape_type *,
- gfc_array_i16 *, shape_type *);
+extern void reshape_16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict,
+ shape_type * const restrict,
+ gfc_array_i16 * const restrict,
+ shape_type * const restrict);
export_proto(reshape_16);
void
-reshape_16 (gfc_array_i16 * ret, gfc_array_i16 * source, shape_type * shape,
- gfc_array_i16 * pad, shape_type * order)
+reshape_16 (gfc_array_i16 * const restrict ret,
+ gfc_array_i16 * const restrict source,
+ shape_type * const restrict shape,
+ gfc_array_i16 * const restrict pad,
+ shape_type * const restrict order)
{
/* r.* indicates the return array. */
index_type rcount[GFC_MAX_DIMENSIONS];
/* The shape parameter is ignored. We can currently deduce the shape from the
return array. */
-extern void reshape_4 (gfc_array_i4 *, gfc_array_i4 *, shape_type *,
- gfc_array_i4 *, shape_type *);
+extern void reshape_4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict,
+ shape_type * const restrict,
+ gfc_array_i4 * const restrict,
+ shape_type * const restrict);
export_proto(reshape_4);
void
-reshape_4 (gfc_array_i4 * ret, gfc_array_i4 * source, shape_type * shape,
- gfc_array_i4 * pad, shape_type * order)
+reshape_4 (gfc_array_i4 * const restrict ret,
+ gfc_array_i4 * const restrict source,
+ shape_type * const restrict shape,
+ gfc_array_i4 * const restrict pad,
+ shape_type * const restrict order)
{
/* r.* indicates the return array. */
index_type rcount[GFC_MAX_DIMENSIONS];
/* The shape parameter is ignored. We can currently deduce the shape from the
return array. */
-extern void reshape_8 (gfc_array_i8 *, gfc_array_i8 *, shape_type *,
- gfc_array_i8 *, shape_type *);
+extern void reshape_8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict,
+ shape_type * const restrict,
+ gfc_array_i8 * const restrict,
+ shape_type * const restrict);
export_proto(reshape_8);
void
-reshape_8 (gfc_array_i8 * ret, gfc_array_i8 * source, shape_type * shape,
- gfc_array_i8 * pad, shape_type * order)
+reshape_8 (gfc_array_i8 * const restrict ret,
+ gfc_array_i8 * const restrict source,
+ shape_type * const restrict shape,
+ gfc_array_i8 * const restrict pad,
+ shape_type * const restrict order)
{
/* r.* indicates the return array. */
index_type rcount[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_16)
-extern void shape_16 (gfc_array_i16 * ret, const gfc_array_i16 * array);
+extern void shape_16 (gfc_array_i16 * const restrict ret,
+ const gfc_array_i16 * const restrict array);
export_proto(shape_16);
void
-shape_16 (gfc_array_i16 * ret, const gfc_array_i16 * array)
+shape_16 (gfc_array_i16 * const restrict ret,
+ const gfc_array_i16 * const restrict array)
{
int n;
index_type stride;
#if defined (HAVE_GFC_INTEGER_4)
-extern void shape_4 (gfc_array_i4 * ret, const gfc_array_i4 * array);
+extern void shape_4 (gfc_array_i4 * const restrict ret,
+ const gfc_array_i4 * const restrict array);
export_proto(shape_4);
void
-shape_4 (gfc_array_i4 * ret, const gfc_array_i4 * array)
+shape_4 (gfc_array_i4 * const restrict ret,
+ const gfc_array_i4 * const restrict array)
{
int n;
index_type stride;
#if defined (HAVE_GFC_INTEGER_8)
-extern void shape_8 (gfc_array_i8 * ret, const gfc_array_i8 * array);
+extern void shape_8 (gfc_array_i8 * const restrict ret,
+ const gfc_array_i8 * const restrict array);
export_proto(shape_8);
void
-shape_8 (gfc_array_i8 * ret, const gfc_array_i8 * array)
+shape_8 (gfc_array_i8 * const restrict ret,
+ const gfc_array_i8 * const restrict array)
{
int n;
index_type stride;
#if defined (HAVE_GFC_COMPLEX_10) && defined (HAVE_GFC_COMPLEX_10)
-extern void sum_c10 (gfc_array_c10 *, gfc_array_c10 *, index_type *);
+extern void sum_c10 (gfc_array_c10 * const restrict,
+ gfc_array_c10 * const restrict, const index_type * const restrict);
export_proto(sum_c10);
void
-sum_c10 (gfc_array_c10 *retarray, gfc_array_c10 *array, index_type *pdim)
+sum_c10 (gfc_array_c10 * const restrict retarray,
+ gfc_array_c10 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_COMPLEX_10 *base;
- GFC_COMPLEX_10 *dest;
+ const GFC_COMPLEX_10 * restrict base;
+ GFC_COMPLEX_10 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_COMPLEX_10 *src;
+ const GFC_COMPLEX_10 * restrict src;
GFC_COMPLEX_10 result;
src = base;
{
}
-extern void msum_c10 (gfc_array_c10 *, gfc_array_c10 *, index_type *,
- gfc_array_l4 *);
+extern void msum_c10 (gfc_array_c10 * const restrict,
+ gfc_array_c10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_c10);
void
-msum_c10 (gfc_array_c10 * retarray, gfc_array_c10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_c10 (gfc_array_c10 * const restrict retarray,
+ gfc_array_c10 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_COMPLEX_10 *dest;
- GFC_COMPLEX_10 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_COMPLEX_10 * restrict dest;
+ const GFC_COMPLEX_10 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_COMPLEX_10 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_COMPLEX_10 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_COMPLEX_10 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_COMPLEX_16) && defined (HAVE_GFC_COMPLEX_16)
-extern void sum_c16 (gfc_array_c16 *, gfc_array_c16 *, index_type *);
+extern void sum_c16 (gfc_array_c16 * const restrict,
+ gfc_array_c16 * const restrict, const index_type * const restrict);
export_proto(sum_c16);
void
-sum_c16 (gfc_array_c16 *retarray, gfc_array_c16 *array, index_type *pdim)
+sum_c16 (gfc_array_c16 * const restrict retarray,
+ gfc_array_c16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_COMPLEX_16 *base;
- GFC_COMPLEX_16 *dest;
+ const GFC_COMPLEX_16 * restrict base;
+ GFC_COMPLEX_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_COMPLEX_16 *src;
+ const GFC_COMPLEX_16 * restrict src;
GFC_COMPLEX_16 result;
src = base;
{
}
-extern void msum_c16 (gfc_array_c16 *, gfc_array_c16 *, index_type *,
- gfc_array_l4 *);
+extern void msum_c16 (gfc_array_c16 * const restrict,
+ gfc_array_c16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_c16);
void
-msum_c16 (gfc_array_c16 * retarray, gfc_array_c16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_c16 (gfc_array_c16 * const restrict retarray,
+ gfc_array_c16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_COMPLEX_16 *dest;
- GFC_COMPLEX_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_COMPLEX_16 * restrict dest;
+ const GFC_COMPLEX_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_COMPLEX_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_COMPLEX_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_COMPLEX_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_COMPLEX_4) && defined (HAVE_GFC_COMPLEX_4)
-extern void sum_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *);
+extern void sum_c4 (gfc_array_c4 * const restrict,
+ gfc_array_c4 * const restrict, const index_type * const restrict);
export_proto(sum_c4);
void
-sum_c4 (gfc_array_c4 *retarray, gfc_array_c4 *array, index_type *pdim)
+sum_c4 (gfc_array_c4 * const restrict retarray,
+ gfc_array_c4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_COMPLEX_4 *base;
- GFC_COMPLEX_4 *dest;
+ const GFC_COMPLEX_4 * restrict base;
+ GFC_COMPLEX_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_COMPLEX_4 *src;
+ const GFC_COMPLEX_4 * restrict src;
GFC_COMPLEX_4 result;
src = base;
{
}
-extern void msum_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *,
- gfc_array_l4 *);
+extern void msum_c4 (gfc_array_c4 * const restrict,
+ gfc_array_c4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_c4);
void
-msum_c4 (gfc_array_c4 * retarray, gfc_array_c4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_c4 (gfc_array_c4 * const restrict retarray,
+ gfc_array_c4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_COMPLEX_4 *dest;
- GFC_COMPLEX_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_COMPLEX_4 * restrict dest;
+ const GFC_COMPLEX_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_COMPLEX_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_COMPLEX_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_COMPLEX_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_COMPLEX_8) && defined (HAVE_GFC_COMPLEX_8)
-extern void sum_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *);
+extern void sum_c8 (gfc_array_c8 * const restrict,
+ gfc_array_c8 * const restrict, const index_type * const restrict);
export_proto(sum_c8);
void
-sum_c8 (gfc_array_c8 *retarray, gfc_array_c8 *array, index_type *pdim)
+sum_c8 (gfc_array_c8 * const restrict retarray,
+ gfc_array_c8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_COMPLEX_8 *base;
- GFC_COMPLEX_8 *dest;
+ const GFC_COMPLEX_8 * restrict base;
+ GFC_COMPLEX_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_COMPLEX_8 *src;
+ const GFC_COMPLEX_8 * restrict src;
GFC_COMPLEX_8 result;
src = base;
{
}
-extern void msum_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *,
- gfc_array_l4 *);
+extern void msum_c8 (gfc_array_c8 * const restrict,
+ gfc_array_c8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_c8);
void
-msum_c8 (gfc_array_c8 * retarray, gfc_array_c8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_c8 (gfc_array_c8 * const restrict retarray,
+ gfc_array_c8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_COMPLEX_8 *dest;
- GFC_COMPLEX_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_COMPLEX_8 * restrict dest;
+ const GFC_COMPLEX_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_COMPLEX_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_COMPLEX_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_COMPLEX_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void sum_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *);
+extern void sum_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(sum_i16);
void
-sum_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
+sum_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *base;
- GFC_INTEGER_16 *dest;
+ const GFC_INTEGER_16 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_16 *src;
+ const GFC_INTEGER_16 * restrict src;
GFC_INTEGER_16 result;
src = base;
{
}
-extern void msum_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *,
- gfc_array_l4 *);
+extern void msum_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_i16);
void
-msum_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_16 *dest;
- GFC_INTEGER_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_16 * restrict dest;
+ const GFC_INTEGER_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void sum_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *);
+extern void sum_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(sum_i4);
void
-sum_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
+sum_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *base;
- GFC_INTEGER_4 *dest;
+ const GFC_INTEGER_4 * restrict base;
+ GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_4 *src;
+ const GFC_INTEGER_4 * restrict src;
GFC_INTEGER_4 result;
src = base;
{
}
-extern void msum_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *,
- gfc_array_l4 *);
+extern void msum_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_i4);
void
-msum_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_4 *dest;
- GFC_INTEGER_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_4 * restrict dest;
+ const GFC_INTEGER_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void sum_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *);
+extern void sum_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(sum_i8);
void
-sum_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
+sum_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *base;
- GFC_INTEGER_8 *dest;
+ const GFC_INTEGER_8 * restrict base;
+ GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_INTEGER_8 *src;
+ const GFC_INTEGER_8 * restrict src;
GFC_INTEGER_8 result;
src = base;
{
}
-extern void msum_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *,
- gfc_array_l4 *);
+extern void msum_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_i8);
void
-msum_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_INTEGER_8 *dest;
- GFC_INTEGER_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_INTEGER_8 * restrict dest;
+ const GFC_INTEGER_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_INTEGER_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_INTEGER_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_REAL_10)
-extern void sum_r10 (gfc_array_r10 *, gfc_array_r10 *, index_type *);
+extern void sum_r10 (gfc_array_r10 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(sum_r10);
void
-sum_r10 (gfc_array_r10 *retarray, gfc_array_r10 *array, index_type *pdim)
+sum_r10 (gfc_array_r10 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_10 *base;
- GFC_REAL_10 *dest;
+ const GFC_REAL_10 * restrict base;
+ GFC_REAL_10 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_10 *src;
+ const GFC_REAL_10 * restrict src;
GFC_REAL_10 result;
src = base;
{
}
-extern void msum_r10 (gfc_array_r10 *, gfc_array_r10 *, index_type *,
- gfc_array_l4 *);
+extern void msum_r10 (gfc_array_r10 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_r10);
void
-msum_r10 (gfc_array_r10 * retarray, gfc_array_r10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_r10 (gfc_array_r10 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_10 *dest;
- GFC_REAL_10 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_REAL_10 * restrict dest;
+ const GFC_REAL_10 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_10 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_10 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_10 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_REAL_16)
-extern void sum_r16 (gfc_array_r16 *, gfc_array_r16 *, index_type *);
+extern void sum_r16 (gfc_array_r16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(sum_r16);
void
-sum_r16 (gfc_array_r16 *retarray, gfc_array_r16 *array, index_type *pdim)
+sum_r16 (gfc_array_r16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_16 *base;
- GFC_REAL_16 *dest;
+ const GFC_REAL_16 * restrict base;
+ GFC_REAL_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_16 *src;
+ const GFC_REAL_16 * restrict src;
GFC_REAL_16 result;
src = base;
{
}
-extern void msum_r16 (gfc_array_r16 *, gfc_array_r16 *, index_type *,
- gfc_array_l4 *);
+extern void msum_r16 (gfc_array_r16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_r16);
void
-msum_r16 (gfc_array_r16 * retarray, gfc_array_r16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_r16 (gfc_array_r16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_16 *dest;
- GFC_REAL_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_REAL_16 * restrict dest;
+ const GFC_REAL_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_16 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4)
-extern void sum_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *);
+extern void sum_r4 (gfc_array_r4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(sum_r4);
void
-sum_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
+sum_r4 (gfc_array_r4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_4 *base;
- GFC_REAL_4 *dest;
+ const GFC_REAL_4 * restrict base;
+ GFC_REAL_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_4 *src;
+ const GFC_REAL_4 * restrict src;
GFC_REAL_4 result;
src = base;
{
}
-extern void msum_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *,
- gfc_array_l4 *);
+extern void msum_r4 (gfc_array_r4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_r4);
void
-msum_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_r4 (gfc_array_r4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_4 *dest;
- GFC_REAL_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_REAL_4 * restrict dest;
+ const GFC_REAL_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_4 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_REAL_8)
-extern void sum_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *);
+extern void sum_r8 (gfc_array_r8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(sum_r8);
void
-sum_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
+sum_r8 (gfc_array_r8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_8 *base;
- GFC_REAL_8 *dest;
+ const GFC_REAL_8 * restrict base;
+ GFC_REAL_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- GFC_REAL_8 *src;
+ const GFC_REAL_8 * restrict src;
GFC_REAL_8 result;
src = base;
{
}
-extern void msum_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *,
- gfc_array_l4 *);
+extern void msum_r8 (gfc_array_r8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_r8);
void
-msum_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_r8 (gfc_array_r8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- GFC_REAL_8 *dest;
- GFC_REAL_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_REAL_8 * restrict dest;
+ const GFC_REAL_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- GFC_REAL_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_REAL_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_8 result;
src = base;
msrc = mbase;
#if defined (HAVE_GFC_COMPLEX_10)
-extern void transpose_c10 (gfc_array_c10 * ret, gfc_array_c10 * source);
+extern void transpose_c10 (gfc_array_c10 * const restrict ret,
+ gfc_array_c10 * const restrict source);
export_proto(transpose_c10);
void
-transpose_c10 (gfc_array_c10 * ret, gfc_array_c10 * source)
+transpose_c10 (gfc_array_c10 * const restrict ret,
+ gfc_array_c10 * const restrict source)
{
/* r.* indicates the return array. */
index_type rxstride, rystride;
#if defined (HAVE_GFC_COMPLEX_16)
-extern void transpose_c16 (gfc_array_c16 * ret, gfc_array_c16 * source);
+extern void transpose_c16 (gfc_array_c16 * const restrict ret,
+ gfc_array_c16 * const restrict source);
export_proto(transpose_c16);
void
-transpose_c16 (gfc_array_c16 * ret, gfc_array_c16 * source)
+transpose_c16 (gfc_array_c16 * const restrict ret,
+ gfc_array_c16 * const restrict source)
{
/* r.* indicates the return array. */
index_type rxstride, rystride;
#if defined (HAVE_GFC_COMPLEX_4)
-extern void transpose_c4 (gfc_array_c4 * ret, gfc_array_c4 * source);
+extern void transpose_c4 (gfc_array_c4 * const restrict ret,
+ gfc_array_c4 * const restrict source);
export_proto(transpose_c4);
void
-transpose_c4 (gfc_array_c4 * ret, gfc_array_c4 * source)
+transpose_c4 (gfc_array_c4 * const restrict ret,
+ gfc_array_c4 * const restrict source)
{
/* r.* indicates the return array. */
index_type rxstride, rystride;
#if defined (HAVE_GFC_COMPLEX_8)
-extern void transpose_c8 (gfc_array_c8 * ret, gfc_array_c8 * source);
+extern void transpose_c8 (gfc_array_c8 * const restrict ret,
+ gfc_array_c8 * const restrict source);
export_proto(transpose_c8);
void
-transpose_c8 (gfc_array_c8 * ret, gfc_array_c8 * source)
+transpose_c8 (gfc_array_c8 * const restrict ret,
+ gfc_array_c8 * const restrict source)
{
/* r.* indicates the return array. */
index_type rxstride, rystride;
#if defined (HAVE_GFC_INTEGER_16)
-extern void transpose_i16 (gfc_array_i16 * ret, gfc_array_i16 * source);
+extern void transpose_i16 (gfc_array_i16 * const restrict ret,
+ gfc_array_i16 * const restrict source);
export_proto(transpose_i16);
void
-transpose_i16 (gfc_array_i16 * ret, gfc_array_i16 * source)
+transpose_i16 (gfc_array_i16 * const restrict ret,
+ gfc_array_i16 * const restrict source)
{
/* r.* indicates the return array. */
index_type rxstride, rystride;
#if defined (HAVE_GFC_INTEGER_4)
-extern void transpose_i4 (gfc_array_i4 * ret, gfc_array_i4 * source);
+extern void transpose_i4 (gfc_array_i4 * const restrict ret,
+ gfc_array_i4 * const restrict source);
export_proto(transpose_i4);
void
-transpose_i4 (gfc_array_i4 * ret, gfc_array_i4 * source)
+transpose_i4 (gfc_array_i4 * const restrict ret,
+ gfc_array_i4 * const restrict source)
{
/* r.* indicates the return array. */
index_type rxstride, rystride;
#if defined (HAVE_GFC_INTEGER_8)
-extern void transpose_i8 (gfc_array_i8 * ret, gfc_array_i8 * source);
+extern void transpose_i8 (gfc_array_i8 * const restrict ret,
+ gfc_array_i8 * const restrict source);
export_proto(transpose_i8);
void
-transpose_i8 (gfc_array_i8 * ret, gfc_array_i8 * source)
+transpose_i8 (gfc_array_i8 * const restrict ret,
+ gfc_array_i8 * const restrict source)
{
/* r.* indicates the return array. */
index_type rxstride, rystride;
`#if defined (HAVE_'atype_name`)'
static void
-cshift1 (gfc_array_char * ret, const gfc_array_char * array,
- const atype * h, const atype_name * pwhich, index_type size)
+cshift1 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const atype_name * const restrict pwhich,
+ index_type size)
{
/* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS];
}
}
-void cshift1_`'atype_kind (gfc_array_char *, const gfc_array_char *,
- const atype *, const atype_name *);
+void cshift1_`'atype_kind (gfc_array_char * const restrict,
+ const gfc_array_char * const restrict,
+ const atype * const restrict,
+ const atype_name * const restrict);
export_proto(cshift1_`'atype_kind);
void
-cshift1_`'atype_kind (gfc_array_char * ret,
- const gfc_array_char * array,
- const atype * h, const atype_name * pwhich)
+cshift1_`'atype_kind (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const atype_name * const restrict pwhich)
{
cshift1 (ret, array, h, pwhich, GFC_DESCRIPTOR_SIZE (array));
}
-void cshift1_`'atype_kind`'_char (gfc_array_char * ret, GFC_INTEGER_4,
- const gfc_array_char * array,
- const atype * h, const atype_name * pwhich,
- GFC_INTEGER_4);
+void cshift1_`'atype_kind`'_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4,
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const atype_name * const restrict pwhich,
+ GFC_INTEGER_4);
export_proto(cshift1_`'atype_kind`'_char);
void
-cshift1_`'atype_kind`'_char (gfc_array_char * ret,
- GFC_INTEGER_4 ret_length __attribute__((unused)),
- const gfc_array_char * array,
- const atype * h, const atype_name * pwhich,
- GFC_INTEGER_4 array_length)
+cshift1_`'atype_kind`'_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4 ret_length __attribute__((unused)),
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const atype_name * const restrict pwhich,
+ GFC_INTEGER_4 array_length)
{
cshift1 (ret, array, h, pwhich, array_length);
}
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
-extern rtype_name dot_product_`'rtype_code (rtype * a, rtype * b);
+extern rtype_name dot_product_`'rtype_code (rtype * const restrict a,
+ rtype * const restrict b);
export_proto(dot_product_`'rtype_code);
/* Both parameters will already have been converted to the result type. */
rtype_name
-dot_product_`'rtype_code (rtype * a, rtype * b)
+dot_product_`'rtype_code (rtype * const restrict a, rtype * const restrict b)
{
- rtype_name *pa;
- rtype_name *pb;
+ const rtype_name * restrict pa;
+ const rtype_name * restrict pb;
rtype_name res;
index_type count;
index_type astride;
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
-extern rtype_name dot_product_`'rtype_code (rtype * a, rtype * b);
+extern rtype_name dot_product_`'rtype_code (rtype * const restrict a,
+ rtype * const restrict b);
export_proto(dot_product_`'rtype_code);
/* Both parameters will already have been converted to the result type. */
rtype_name
-dot_product_`'rtype_code (rtype * a, rtype * b)
+dot_product_`'rtype_code (rtype * const restrict a, rtype * const restrict b)
{
- rtype_name *pa;
- rtype_name *pb;
+ const rtype_name * restrict pa;
+ const rtype_name * restrict pb;
rtype_name res;
rtype_name conjga;
index_type count;
`#if defined (HAVE_'rtype_name`)'
-extern rtype_name dot_product_`'rtype_code (gfc_array_l4 *, gfc_array_l4 *);
+extern rtype_name dot_product_`'rtype_code (gfc_array_l4 * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(dot_product_`'rtype_code);
rtype_name
-dot_product_`'rtype_code (gfc_array_l4 * a, gfc_array_l4 * b)
+dot_product_`'rtype_code (gfc_array_l4 * const restrict a,
+ gfc_array_l4 * const restrict b)
{
- GFC_LOGICAL_4 *pa;
- GFC_LOGICAL_4 *pb;
+ const GFC_LOGICAL_4 * restrict pa;
+ const GFC_LOGICAL_4 * restrict pb;
index_type count;
index_type astride;
index_type bstride;
`#if defined (HAVE_'atype_name`)'
static void
-eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const atype *h,
- const char *pbound, const atype_name *pwhich, index_type size,
- char filler)
+eoshift1 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const char * const restrict pbound,
+ const atype_name * const restrict pwhich,
+ index_type size, char filler)
{
/* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS];
}
}
-void eoshift1_`'atype_kind (gfc_array_char *, const gfc_array_char *,
- const atype *, const char *, const atype_name *);
+void eoshift1_`'atype_kind (gfc_array_char * const restrict,
+ const gfc_array_char * const restrict,
+ const atype * const restrict, const char * const restrict,
+ const atype_name * const restrict);
export_proto(eoshift1_`'atype_kind);
void
-eoshift1_`'atype_kind (gfc_array_char *ret, const gfc_array_char *array,
- const atype *h, const char *pbound,
- const atype_name *pwhich)
+eoshift1_`'atype_kind (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const char * const restrict pbound,
+ const atype_name * const restrict pwhich)
{
eoshift1 (ret, array, h, pbound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
}
-void eoshift1_`'atype_kind`'_char (gfc_array_char *, GFC_INTEGER_4,
- const gfc_array_char *, const atype *,
- const char *, const atype_name *,
- GFC_INTEGER_4, GFC_INTEGER_4);
+void eoshift1_`'atype_kind`'_char (gfc_array_char * const restrict,
+ GFC_INTEGER_4,
+ const gfc_array_char * const restrict,
+ const atype * const restrict,
+ const char * const restrict,
+ const atype_name * const restrict,
+ GFC_INTEGER_4, GFC_INTEGER_4);
export_proto(eoshift1_`'atype_kind`'_char);
void
-eoshift1_`'atype_kind`'_char (gfc_array_char *ret,
- GFC_INTEGER_4 ret_length __attribute__((unused)),
- const gfc_array_char *array, const atype *h,
- const char *pbound, const atype_name *pwhich,
- GFC_INTEGER_4 array_length,
- GFC_INTEGER_4 bound_length
- __attribute__((unused)))
+eoshift1_`'atype_kind`'_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4 ret_length __attribute__((unused)),
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const char * const restrict pbound,
+ const atype_name * const restrict pwhich,
+ GFC_INTEGER_4 array_length,
+ GFC_INTEGER_4 bound_length __attribute__((unused)))
{
eoshift1 (ret, array, h, pbound, pwhich, array_length, ' ');
}
`#if defined (HAVE_'atype_name`)'
static void
-eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const atype *h,
- const gfc_array_char *bound, const atype_name *pwhich,
- index_type size, char filler)
+eoshift3 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const gfc_array_char * const restrict bound,
+ const atype_name * const restrict pwhich,
+ index_type size, char filler)
{
/* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS];
}
}
-extern void eoshift3_`'atype_kind (gfc_array_char *, const gfc_array_char *,
- const atype *, const gfc_array_char *,
- const atype_name *);
+extern void eoshift3_`'atype_kind (gfc_array_char * const restrict,
+ const gfc_array_char * const restrict,
+ const atype * const restrict,
+ const gfc_array_char * const restrict,
+ const atype_name *);
export_proto(eoshift3_`'atype_kind);
void
-eoshift3_`'atype_kind (gfc_array_char *ret, const gfc_array_char *array,
- const atype *h, const gfc_array_char *bound,
- const atype_name *pwhich)
+eoshift3_`'atype_kind (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const gfc_array_char * const restrict bound,
+ const atype_name * const restrict pwhich)
{
eoshift3 (ret, array, h, bound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
}
-extern void eoshift3_`'atype_kind`'_char (gfc_array_char *, GFC_INTEGER_4,
- const gfc_array_char *,
- const atype *,
- const gfc_array_char *,
- const atype_name *, GFC_INTEGER_4,
- GFC_INTEGER_4);
+extern void eoshift3_`'atype_kind`'_char (gfc_array_char * const restrict,
+ GFC_INTEGER_4,
+ const gfc_array_char * const restrict,
+ const atype * const restrict,
+ const gfc_array_char * const restrict,
+ const atype_name * const restrict,
+ GFC_INTEGER_4, GFC_INTEGER_4);
export_proto(eoshift3_`'atype_kind`'_char);
void
-eoshift3_`'atype_kind`'_char (gfc_array_char *ret,
- GFC_INTEGER_4 ret_length __attribute__((unused)),
- const gfc_array_char *array, const atype *h,
- const gfc_array_char *bound,
- const atype_name *pwhich,
- GFC_INTEGER_4 array_length,
- GFC_INTEGER_4 bound_length
- __attribute__((unused)))
+eoshift3_`'atype_kind`'_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4 ret_length __attribute__((unused)),
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const gfc_array_char * const restrict bound,
+ const atype_name * const restrict pwhich,
+ GFC_INTEGER_4 array_length,
+ GFC_INTEGER_4 bound_length __attribute__((unused)))
{
eoshift3 (ret, array, h, bound, pwhich, array_length, ' ');
}
dnl Distributed under the GNU GPL with exception. See COPYING for details.
define(START_FOREACH_FUNCTION,
`
-extern void name`'rtype_qual`_'atype_code (rtype * retarray, atype *array);
+extern void name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
+ atype * const restrict array);
export_proto(name`'rtype_qual`_'atype_code);
void
-name`'rtype_qual`_'atype_code (rtype * retarray, atype *array)
+name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
+ atype * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- atype_name *base;
+ const atype_name *base;
rtype_name *dest;
index_type rank;
index_type n;
}')dnl
define(START_MASKED_FOREACH_FUNCTION,
`
-extern void `m'name`'rtype_qual`_'atype_code (rtype *, atype *, gfc_array_l4 *);
+extern void `m'name`'rtype_qual`_'atype_code (rtype * const restrict,
+ atype * const restrict, gfc_array_l4 * const restrict);
export_proto(`m'name`'rtype_qual`_'atype_code);
void
-`m'name`'rtype_qual`_'atype_code (rtype * retarray, atype *array,
- gfc_array_l4 * mask)
+`m'name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
+ atype * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
rtype_name *dest;
- atype_name *base;
+ const atype_name *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
dnl Care should also be taken to avoid using the names defined in iparm.m4
define(START_ARRAY_FUNCTION,
`
-extern void name`'rtype_qual`_'atype_code (rtype *, atype *, index_type *);
+extern void name`'rtype_qual`_'atype_code (rtype * const restrict,
+ atype * const restrict, const index_type * const restrict);
export_proto(name`'rtype_qual`_'atype_code);
void
-name`'rtype_qual`_'atype_code (rtype *retarray, atype *array, index_type *pdim)
+name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
+ atype * const restrict array,
+ const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
- atype_name *base;
- rtype_name *dest;
+ const atype_name * restrict base;
+ rtype_name * restrict dest;
index_type rank;
index_type n;
index_type len;
while (base)
{
- atype_name *src;
+ const atype_name * restrict src;
rtype_name result;
src = base;
{
}')dnl
define(START_MASKED_ARRAY_FUNCTION,
`
-extern void `m'name`'rtype_qual`_'atype_code (rtype *, atype *, index_type *,
- gfc_array_l4 *);
+extern void `m'name`'rtype_qual`_'atype_code (rtype * const restrict,
+ atype * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(`m'name`'rtype_qual`_'atype_code);
void
-`m'name`'rtype_qual`_'atype_code (rtype * retarray, atype * array,
- index_type *pdim, gfc_array_l4 * mask)
+`m'name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
+ atype * const restrict array,
+ const index_type * const restrict pdim,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS];
- rtype_name *dest;
- atype_name *base;
- GFC_LOGICAL_4 *mbase;
+ rtype_name * restrict dest;
+ const atype_name * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
while (base)
{
- atype_name *src;
- GFC_LOGICAL_4 *msrc;
+ const atype_name * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
rtype_name result;
src = base;
msrc = mbase;
return array. */
dnl Only the kind (ie size) is used to name the function.
-extern void reshape_`'rtype_ccode (rtype *, rtype *, shape_type *,
- rtype *, shape_type *);
+extern void reshape_`'rtype_ccode (rtype * const restrict,
+ rtype * const restrict,
+ shape_type * const restrict,
+ rtype * const restrict,
+ shape_type * const restrict);
export_proto(reshape_`'rtype_ccode);
void
-reshape_`'rtype_ccode (rtype * ret, rtype * source, shape_type * shape,
- rtype * pad, shape_type * order)
+reshape_`'rtype_ccode (rtype * const restrict ret,
+ rtype * const restrict source,
+ shape_type * const restrict shape,
+ rtype * const restrict pad,
+ shape_type * const restrict order)
{
/* r.* indicates the return array. */
index_type rcount[GFC_MAX_DIMENSIONS];
`#if defined (HAVE_'rtype_name`)'
-extern void shape_`'rtype_kind (rtype * ret, const rtype * array);
+extern void shape_`'rtype_kind (rtype * const restrict ret,
+ const rtype * const restrict array);
export_proto(shape_`'rtype_kind);
void
-shape_`'rtype_kind (rtype * ret, const rtype * array)
+shape_`'rtype_kind (rtype * const restrict ret,
+ const rtype * const restrict array)
{
int n;
index_type stride;
`#if defined (HAVE_'rtype_name`)'
-extern void transpose_`'rtype_code (rtype * ret, rtype * source);
+extern void transpose_`'rtype_code (rtype * const restrict ret,
+ rtype * const restrict source);
export_proto(transpose_`'rtype_code);
void
-transpose_`'rtype_code (rtype * ret, rtype * source)
+transpose_`'rtype_code (rtype * const restrict ret,
+ rtype * const restrict source)
{
/* r.* indicates the return array. */
index_type rxstride, rystride;
projects / gcc.git / commitdiff