#if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1)
-extern void iall_i1 (gfc_array_i1 * const restrict,
+extern void iall_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict);
export_proto(iall_i1);
void
-iall_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+iall_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void miall_i1 (gfc_array_i1 * const restrict,
+extern void miall_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miall_i1);
void
-miall_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+miall_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void siall_i1 (gfc_array_i1 * const restrict,
+extern void siall_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siall_i1);
void
-siall_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+siall_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void iall_i16 (gfc_array_i16 * const restrict,
+extern void iall_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(iall_i16);
void
-iall_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+iall_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];
}
-extern void miall_i16 (gfc_array_i16 * const restrict,
+extern void miall_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miall_i16);
void
-miall_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+miall_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void siall_i16 (gfc_array_i16 * const restrict,
+extern void siall_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siall_i16);
void
-siall_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+siall_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2)
-extern void iall_i2 (gfc_array_i2 * const restrict,
+extern void iall_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict);
export_proto(iall_i2);
void
-iall_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+iall_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void miall_i2 (gfc_array_i2 * const restrict,
+extern void miall_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miall_i2);
void
-miall_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+miall_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void siall_i2 (gfc_array_i2 * const restrict,
+extern void siall_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siall_i2);
void
-siall_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+siall_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void iall_i4 (gfc_array_i4 * const restrict,
+extern void iall_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(iall_i4);
void
-iall_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+iall_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];
}
-extern void miall_i4 (gfc_array_i4 * const restrict,
+extern void miall_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miall_i4);
void
-miall_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+miall_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void siall_i4 (gfc_array_i4 * const restrict,
+extern void siall_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siall_i4);
void
-siall_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+siall_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void iall_i8 (gfc_array_i8 * const restrict,
+extern void iall_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(iall_i8);
void
-iall_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+iall_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];
}
-extern void miall_i8 (gfc_array_i8 * const restrict,
+extern void miall_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miall_i8);
void
-miall_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+miall_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void siall_i8 (gfc_array_i8 * const restrict,
+extern void siall_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siall_i8);
void
-siall_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+siall_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1)
-extern void iany_i1 (gfc_array_i1 * const restrict,
+extern void iany_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict);
export_proto(iany_i1);
void
-iany_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+iany_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void miany_i1 (gfc_array_i1 * const restrict,
+extern void miany_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miany_i1);
void
-miany_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+miany_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void siany_i1 (gfc_array_i1 * const restrict,
+extern void siany_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siany_i1);
void
-siany_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+siany_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void iany_i16 (gfc_array_i16 * const restrict,
+extern void iany_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(iany_i16);
void
-iany_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+iany_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];
}
-extern void miany_i16 (gfc_array_i16 * const restrict,
+extern void miany_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miany_i16);
void
-miany_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+miany_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void siany_i16 (gfc_array_i16 * const restrict,
+extern void siany_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siany_i16);
void
-siany_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+siany_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2)
-extern void iany_i2 (gfc_array_i2 * const restrict,
+extern void iany_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict);
export_proto(iany_i2);
void
-iany_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+iany_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void miany_i2 (gfc_array_i2 * const restrict,
+extern void miany_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miany_i2);
void
-miany_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+miany_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void siany_i2 (gfc_array_i2 * const restrict,
+extern void siany_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siany_i2);
void
-siany_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+siany_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void iany_i4 (gfc_array_i4 * const restrict,
+extern void iany_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(iany_i4);
void
-iany_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+iany_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];
}
-extern void miany_i4 (gfc_array_i4 * const restrict,
+extern void miany_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miany_i4);
void
-miany_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+miany_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void siany_i4 (gfc_array_i4 * const restrict,
+extern void siany_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siany_i4);
void
-siany_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+siany_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void iany_i8 (gfc_array_i8 * const restrict,
+extern void iany_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(iany_i8);
void
-iany_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+iany_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];
}
-extern void miany_i8 (gfc_array_i8 * const restrict,
+extern void miany_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miany_i8);
void
-miany_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+miany_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void siany_i8 (gfc_array_i8 * const restrict,
+extern void siany_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siany_i8);
void
-siany_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+siany_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1)
-extern void iparity_i1 (gfc_array_i1 * const restrict,
+extern void iparity_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict);
export_proto(iparity_i1);
void
-iparity_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+iparity_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void miparity_i1 (gfc_array_i1 * const restrict,
+extern void miparity_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miparity_i1);
void
-miparity_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+miparity_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void siparity_i1 (gfc_array_i1 * const restrict,
+extern void siparity_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siparity_i1);
void
-siparity_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+siparity_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void iparity_i16 (gfc_array_i16 * const restrict,
+extern void iparity_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(iparity_i16);
void
-iparity_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+iparity_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];
}
-extern void miparity_i16 (gfc_array_i16 * const restrict,
+extern void miparity_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miparity_i16);
void
-miparity_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+miparity_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void siparity_i16 (gfc_array_i16 * const restrict,
+extern void siparity_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siparity_i16);
void
-siparity_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+siparity_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2)
-extern void iparity_i2 (gfc_array_i2 * const restrict,
+extern void iparity_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict);
export_proto(iparity_i2);
void
-iparity_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+iparity_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void miparity_i2 (gfc_array_i2 * const restrict,
+extern void miparity_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miparity_i2);
void
-miparity_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+miparity_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void siparity_i2 (gfc_array_i2 * const restrict,
+extern void siparity_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siparity_i2);
void
-siparity_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+siparity_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void iparity_i4 (gfc_array_i4 * const restrict,
+extern void iparity_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(iparity_i4);
void
-iparity_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+iparity_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];
}
-extern void miparity_i4 (gfc_array_i4 * const restrict,
+extern void miparity_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miparity_i4);
void
-miparity_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+miparity_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void siparity_i4 (gfc_array_i4 * const restrict,
+extern void siparity_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siparity_i4);
void
-siparity_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+siparity_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void iparity_i8 (gfc_array_i8 * const restrict,
+extern void iparity_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(iparity_i8);
void
-iparity_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+iparity_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];
}
-extern void miparity_i8 (gfc_array_i8 * const restrict,
+extern void miparity_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miparity_i8);
void
-miparity_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+miparity_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void siparity_i8 (gfc_array_i8 * const restrict,
+extern void siparity_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siparity_i8);
void
-siparity_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+siparity_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_c10_avx128_fma3);
void
-matmul_c10_avx128_fma3 (gfc_array_c10 * const restrict retarray,
+matmul_c10_avx128_fma3 (gfc_array_c10 * const restrict retarray,
gfc_array_c10 * const restrict a, gfc_array_c10 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_c10_avx128_fma4);
void
-matmul_c10_avx128_fma4 (gfc_array_c10 * const restrict retarray,
+matmul_c10_avx128_fma4 (gfc_array_c10 * const restrict retarray,
gfc_array_c10 * const restrict a, gfc_array_c10 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_c16_avx128_fma3);
void
-matmul_c16_avx128_fma3 (gfc_array_c16 * const restrict retarray,
+matmul_c16_avx128_fma3 (gfc_array_c16 * const restrict retarray,
gfc_array_c16 * const restrict a, gfc_array_c16 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_c16_avx128_fma4);
void
-matmul_c16_avx128_fma4 (gfc_array_c16 * const restrict retarray,
+matmul_c16_avx128_fma4 (gfc_array_c16 * const restrict retarray,
gfc_array_c16 * const restrict a, gfc_array_c16 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_c17_avx128_fma3);
void
-matmul_c17_avx128_fma3 (gfc_array_c17 * const restrict retarray,
+matmul_c17_avx128_fma3 (gfc_array_c17 * const restrict retarray,
gfc_array_c17 * const restrict a, gfc_array_c17 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_c17_avx128_fma4);
void
-matmul_c17_avx128_fma4 (gfc_array_c17 * const restrict retarray,
+matmul_c17_avx128_fma4 (gfc_array_c17 * const restrict retarray,
gfc_array_c17 * const restrict a, gfc_array_c17 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_c4_avx128_fma3);
void
-matmul_c4_avx128_fma3 (gfc_array_c4 * const restrict retarray,
+matmul_c4_avx128_fma3 (gfc_array_c4 * const restrict retarray,
gfc_array_c4 * const restrict a, gfc_array_c4 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_c4_avx128_fma4);
void
-matmul_c4_avx128_fma4 (gfc_array_c4 * const restrict retarray,
+matmul_c4_avx128_fma4 (gfc_array_c4 * const restrict retarray,
gfc_array_c4 * const restrict a, gfc_array_c4 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_c8_avx128_fma3);
void
-matmul_c8_avx128_fma3 (gfc_array_c8 * const restrict retarray,
+matmul_c8_avx128_fma3 (gfc_array_c8 * const restrict retarray,
gfc_array_c8 * const restrict a, gfc_array_c8 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_c8_avx128_fma4);
void
-matmul_c8_avx128_fma4 (gfc_array_c8 * const restrict retarray,
+matmul_c8_avx128_fma4 (gfc_array_c8 * const restrict retarray,
gfc_array_c8 * const restrict a, gfc_array_c8 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_i1_avx128_fma3);
void
-matmul_i1_avx128_fma3 (gfc_array_i1 * const restrict retarray,
+matmul_i1_avx128_fma3 (gfc_array_i1 * const restrict retarray,
gfc_array_i1 * const restrict a, gfc_array_i1 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_i1_avx128_fma4);
void
-matmul_i1_avx128_fma4 (gfc_array_i1 * const restrict retarray,
+matmul_i1_avx128_fma4 (gfc_array_i1 * const restrict retarray,
gfc_array_i1 * const restrict a, gfc_array_i1 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_i16_avx128_fma3);
void
-matmul_i16_avx128_fma3 (gfc_array_i16 * const restrict retarray,
+matmul_i16_avx128_fma3 (gfc_array_i16 * const restrict retarray,
gfc_array_i16 * const restrict a, gfc_array_i16 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_i16_avx128_fma4);
void
-matmul_i16_avx128_fma4 (gfc_array_i16 * const restrict retarray,
+matmul_i16_avx128_fma4 (gfc_array_i16 * const restrict retarray,
gfc_array_i16 * const restrict a, gfc_array_i16 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_i2_avx128_fma3);
void
-matmul_i2_avx128_fma3 (gfc_array_i2 * const restrict retarray,
+matmul_i2_avx128_fma3 (gfc_array_i2 * const restrict retarray,
gfc_array_i2 * const restrict a, gfc_array_i2 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_i2_avx128_fma4);
void
-matmul_i2_avx128_fma4 (gfc_array_i2 * const restrict retarray,
+matmul_i2_avx128_fma4 (gfc_array_i2 * const restrict retarray,
gfc_array_i2 * const restrict a, gfc_array_i2 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_i4_avx128_fma3);
void
-matmul_i4_avx128_fma3 (gfc_array_i4 * const restrict retarray,
+matmul_i4_avx128_fma3 (gfc_array_i4 * const restrict retarray,
gfc_array_i4 * const restrict a, gfc_array_i4 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_i4_avx128_fma4);
void
-matmul_i4_avx128_fma4 (gfc_array_i4 * const restrict retarray,
+matmul_i4_avx128_fma4 (gfc_array_i4 * const restrict retarray,
gfc_array_i4 * const restrict a, gfc_array_i4 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_i8_avx128_fma3);
void
-matmul_i8_avx128_fma3 (gfc_array_i8 * const restrict retarray,
+matmul_i8_avx128_fma3 (gfc_array_i8 * const restrict retarray,
gfc_array_i8 * const restrict a, gfc_array_i8 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_i8_avx128_fma4);
void
-matmul_i8_avx128_fma4 (gfc_array_i8 * const restrict retarray,
+matmul_i8_avx128_fma4 (gfc_array_i8 * const restrict retarray,
gfc_array_i8 * const restrict a, gfc_array_i8 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_r10_avx128_fma3);
void
-matmul_r10_avx128_fma3 (gfc_array_r10 * const restrict retarray,
+matmul_r10_avx128_fma3 (gfc_array_r10 * const restrict retarray,
gfc_array_r10 * const restrict a, gfc_array_r10 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_r10_avx128_fma4);
void
-matmul_r10_avx128_fma4 (gfc_array_r10 * const restrict retarray,
+matmul_r10_avx128_fma4 (gfc_array_r10 * const restrict retarray,
gfc_array_r10 * const restrict a, gfc_array_r10 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_r16_avx128_fma3);
void
-matmul_r16_avx128_fma3 (gfc_array_r16 * const restrict retarray,
+matmul_r16_avx128_fma3 (gfc_array_r16 * const restrict retarray,
gfc_array_r16 * const restrict a, gfc_array_r16 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_r16_avx128_fma4);
void
-matmul_r16_avx128_fma4 (gfc_array_r16 * const restrict retarray,
+matmul_r16_avx128_fma4 (gfc_array_r16 * const restrict retarray,
gfc_array_r16 * const restrict a, gfc_array_r16 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_r17_avx128_fma3);
void
-matmul_r17_avx128_fma3 (gfc_array_r17 * const restrict retarray,
+matmul_r17_avx128_fma3 (gfc_array_r17 * const restrict retarray,
gfc_array_r17 * const restrict a, gfc_array_r17 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_r17_avx128_fma4);
void
-matmul_r17_avx128_fma4 (gfc_array_r17 * const restrict retarray,
+matmul_r17_avx128_fma4 (gfc_array_r17 * const restrict retarray,
gfc_array_r17 * const restrict a, gfc_array_r17 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_r4_avx128_fma3);
void
-matmul_r4_avx128_fma3 (gfc_array_r4 * const restrict retarray,
+matmul_r4_avx128_fma3 (gfc_array_r4 * const restrict retarray,
gfc_array_r4 * const restrict a, gfc_array_r4 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_r4_avx128_fma4);
void
-matmul_r4_avx128_fma4 (gfc_array_r4 * const restrict retarray,
+matmul_r4_avx128_fma4 (gfc_array_r4 * const restrict retarray,
gfc_array_r4 * const restrict a, gfc_array_r4 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_r8_avx128_fma3);
void
-matmul_r8_avx128_fma3 (gfc_array_r8 * const restrict retarray,
+matmul_r8_avx128_fma3 (gfc_array_r8 * const restrict retarray,
gfc_array_r8 * const restrict a, gfc_array_r8 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_r8_avx128_fma4);
void
-matmul_r8_avx128_fma4 (gfc_array_r8 * const restrict retarray,
+matmul_r8_avx128_fma4 (gfc_array_r8 * const restrict retarray,
gfc_array_r8 * const restrict a, gfc_array_r8 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_i1 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_i1 (gfc_array_i16 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_i1);
void
-maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_16_i1 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_i1 (gfc_array_i16 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_i1);
void
-mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_16_i1 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_i1 (gfc_array_i16 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_i1);
void
-smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_i16 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_i16);
void
-maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_16_i16 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_i16);
void
-mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_16_i16 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_i16);
void
-smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_i2 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_i2 (gfc_array_i16 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_i2);
void
-maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_16_i2 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_i2 (gfc_array_i16 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_i2);
void
-mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_16_i2 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_i2 (gfc_array_i16 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_i2);
void
-smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_i4 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_i4 (gfc_array_i16 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_i4);
void
-maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_16_i4 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_i4 (gfc_array_i16 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_i4);
void
-mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_16_i4 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_i4 (gfc_array_i16 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_i4);
void
-smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_i8 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_i8 (gfc_array_i16 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_i8);
void
-maxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+maxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_16_i8 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_i8 (gfc_array_i16 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_i8);
void
-mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_16_i8 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_i8 (gfc_array_i16 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_i8);
void
-smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_r10 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_r10 (gfc_array_i16 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_r10);
void
-maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
- gfc_array_r10 * const restrict array,
+maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_16_r10 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_r10 (gfc_array_i16 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_r10);
void
-mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_16_r10 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_r10 (gfc_array_i16 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_r10);
void
-smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_r16 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_r16 (gfc_array_i16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_r16);
void
-maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
+maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_16_r16 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_r16 (gfc_array_i16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_r16);
void
-mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_16_r16 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_r16 (gfc_array_i16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_r16);
void
-smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_r17 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_r17 (gfc_array_i16 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_r17);
void
-maxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
- gfc_array_r17 * const restrict array,
+maxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_16_r17 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_r17 (gfc_array_i16 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_r17);
void
-mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_16_r17 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_r17 (gfc_array_i16 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_r17);
void
-smaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_r4 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_r4 (gfc_array_i16 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_r4);
void
-maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
- gfc_array_r4 * const restrict array,
+maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_16_r4 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_r4 (gfc_array_i16 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_r4);
void
-mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_16_r4 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_r4 (gfc_array_i16 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_r4);
void
-smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_r8 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_r8 (gfc_array_i16 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_r8);
void
-maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
- gfc_array_r8 * const restrict array,
+maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_16_r8 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_r8 (gfc_array_i16 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_r8);
void
-mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_16_r8 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_r8 (gfc_array_i16 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_r8);
void
-smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_4_i1 (gfc_array_i4 * const restrict,
+extern void maxloc1_4_i1 (gfc_array_i4 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_4_i1);
void
-maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_4_i1 (gfc_array_i4 * const restrict,
+extern void mmaxloc1_4_i1 (gfc_array_i4 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_4_i1);
void
-mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_4_i1 (gfc_array_i4 * const restrict,
+extern void smaxloc1_4_i1 (gfc_array_i4 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_4_i1);
void
-smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_4_i16 (gfc_array_i4 * const restrict,
+extern void maxloc1_4_i16 (gfc_array_i4 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_4_i16);
void
-maxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+maxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_4_i16 (gfc_array_i4 * const restrict,
+extern void mmaxloc1_4_i16 (gfc_array_i4 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_4_i16);
void
-mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_4_i16 (gfc_array_i4 * const restrict,
+extern void smaxloc1_4_i16 (gfc_array_i4 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_4_i16);
void
-smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_4_i2 (gfc_array_i4 * const restrict,
+extern void maxloc1_4_i2 (gfc_array_i4 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_4_i2);
void
-maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_4_i2 (gfc_array_i4 * const restrict,
+extern void mmaxloc1_4_i2 (gfc_array_i4 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_4_i2);
void
-mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_4_i2 (gfc_array_i4 * const restrict,
+extern void smaxloc1_4_i2 (gfc_array_i4 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_4_i2);
void
-smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_4_i4 (gfc_array_i4 * const restrict,
+extern void maxloc1_4_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_4_i4);
void
-maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_4_i4 (gfc_array_i4 * const restrict,
+extern void mmaxloc1_4_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_4_i4);
void
-mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_4_i4 (gfc_array_i4 * const restrict,
+extern void smaxloc1_4_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_4_i4);
void
-smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_4_i8 (gfc_array_i4 * const restrict,
+extern void maxloc1_4_i8 (gfc_array_i4 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_4_i8);
void
-maxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+maxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_4_i8 (gfc_array_i4 * const restrict,
+extern void mmaxloc1_4_i8 (gfc_array_i4 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_4_i8);
void
-mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_4_i8 (gfc_array_i4 * const restrict,
+extern void smaxloc1_4_i8 (gfc_array_i4 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_4_i8);
void
-smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_4_r10 (gfc_array_i4 * const restrict,
+extern void maxloc1_4_r10 (gfc_array_i4 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_4_r10);
void
-maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
- gfc_array_r10 * const restrict array,
+maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_4_r10 (gfc_array_i4 * const restrict,
+extern void mmaxloc1_4_r10 (gfc_array_i4 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_4_r10);
void
-mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_4_r10 (gfc_array_i4 * const restrict,
+extern void smaxloc1_4_r10 (gfc_array_i4 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_4_r10);
void
-smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_4_r16 (gfc_array_i4 * const restrict,
+extern void maxloc1_4_r16 (gfc_array_i4 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_4_r16);
void
-maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
- gfc_array_r16 * const restrict array,
+maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_4_r16 (gfc_array_i4 * const restrict,
+extern void mmaxloc1_4_r16 (gfc_array_i4 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_4_r16);
void
-mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_4_r16 (gfc_array_i4 * const restrict,
+extern void smaxloc1_4_r16 (gfc_array_i4 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_4_r16);
void
-smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_4_r17 (gfc_array_i4 * const restrict,
+extern void maxloc1_4_r17 (gfc_array_i4 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_4_r17);
void
-maxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
- gfc_array_r17 * const restrict array,
+maxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_4_r17 (gfc_array_i4 * const restrict,
+extern void mmaxloc1_4_r17 (gfc_array_i4 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_4_r17);
void
-mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_4_r17 (gfc_array_i4 * const restrict,
+extern void smaxloc1_4_r17 (gfc_array_i4 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_4_r17);
void
-smaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_4_r4 (gfc_array_i4 * const restrict,
+extern void maxloc1_4_r4 (gfc_array_i4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_4_r4);
void
-maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
+maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_4_r4 (gfc_array_i4 * const restrict,
+extern void mmaxloc1_4_r4 (gfc_array_i4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_4_r4);
void
-mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_4_r4 (gfc_array_i4 * const restrict,
+extern void smaxloc1_4_r4 (gfc_array_i4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_4_r4);
void
-smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_4_r8 (gfc_array_i4 * const restrict,
+extern void maxloc1_4_r8 (gfc_array_i4 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_4_r8);
void
-maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
- gfc_array_r8 * const restrict array,
+maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_4_r8 (gfc_array_i4 * const restrict,
+extern void mmaxloc1_4_r8 (gfc_array_i4 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_4_r8);
void
-mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_4_r8 (gfc_array_i4 * const restrict,
+extern void smaxloc1_4_r8 (gfc_array_i4 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_4_r8);
void
-smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_8_i1 (gfc_array_i8 * const restrict,
+extern void maxloc1_8_i1 (gfc_array_i8 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_8_i1);
void
-maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_8_i1 (gfc_array_i8 * const restrict,
+extern void mmaxloc1_8_i1 (gfc_array_i8 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_8_i1);
void
-mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_8_i1 (gfc_array_i8 * const restrict,
+extern void smaxloc1_8_i1 (gfc_array_i8 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_8_i1);
void
-smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_8_i16 (gfc_array_i8 * const restrict,
+extern void maxloc1_8_i16 (gfc_array_i8 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_8_i16);
void
-maxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+maxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_8_i16 (gfc_array_i8 * const restrict,
+extern void mmaxloc1_8_i16 (gfc_array_i8 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_8_i16);
void
-mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_8_i16 (gfc_array_i8 * const restrict,
+extern void smaxloc1_8_i16 (gfc_array_i8 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_8_i16);
void
-smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_8_i2 (gfc_array_i8 * const restrict,
+extern void maxloc1_8_i2 (gfc_array_i8 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_8_i2);
void
-maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_8_i2 (gfc_array_i8 * const restrict,
+extern void mmaxloc1_8_i2 (gfc_array_i8 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_8_i2);
void
-mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_8_i2 (gfc_array_i8 * const restrict,
+extern void smaxloc1_8_i2 (gfc_array_i8 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_8_i2);
void
-smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_8_i4 (gfc_array_i8 * const restrict,
+extern void maxloc1_8_i4 (gfc_array_i8 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_8_i4);
void
-maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_8_i4 (gfc_array_i8 * const restrict,
+extern void mmaxloc1_8_i4 (gfc_array_i8 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_8_i4);
void
-mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_8_i4 (gfc_array_i8 * const restrict,
+extern void smaxloc1_8_i4 (gfc_array_i8 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_8_i4);
void
-smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_8_i8 (gfc_array_i8 * const restrict,
+extern void maxloc1_8_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_8_i8);
void
-maxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+maxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_8_i8 (gfc_array_i8 * const restrict,
+extern void mmaxloc1_8_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_8_i8);
void
-mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_8_i8 (gfc_array_i8 * const restrict,
+extern void smaxloc1_8_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_8_i8);
void
-smaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_8_r10 (gfc_array_i8 * const restrict,
+extern void maxloc1_8_r10 (gfc_array_i8 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_8_r10);
void
-maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
- gfc_array_r10 * const restrict array,
+maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_8_r10 (gfc_array_i8 * const restrict,
+extern void mmaxloc1_8_r10 (gfc_array_i8 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_8_r10);
void
-mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_8_r10 (gfc_array_i8 * const restrict,
+extern void smaxloc1_8_r10 (gfc_array_i8 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_8_r10);
void
-smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_8_r16 (gfc_array_i8 * const restrict,
+extern void maxloc1_8_r16 (gfc_array_i8 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_8_r16);
void
-maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
- gfc_array_r16 * const restrict array,
+maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_8_r16 (gfc_array_i8 * const restrict,
+extern void mmaxloc1_8_r16 (gfc_array_i8 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_8_r16);
void
-mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_8_r16 (gfc_array_i8 * const restrict,
+extern void smaxloc1_8_r16 (gfc_array_i8 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_8_r16);
void
-smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_8_r17 (gfc_array_i8 * const restrict,
+extern void maxloc1_8_r17 (gfc_array_i8 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_8_r17);
void
-maxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
- gfc_array_r17 * const restrict array,
+maxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_8_r17 (gfc_array_i8 * const restrict,
+extern void mmaxloc1_8_r17 (gfc_array_i8 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_8_r17);
void
-mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_8_r17 (gfc_array_i8 * const restrict,
+extern void smaxloc1_8_r17 (gfc_array_i8 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_8_r17);
void
-smaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_8_r4 (gfc_array_i8 * const restrict,
+extern void maxloc1_8_r4 (gfc_array_i8 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_8_r4);
void
-maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
- gfc_array_r4 * const restrict array,
+maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_8_r4 (gfc_array_i8 * const restrict,
+extern void mmaxloc1_8_r4 (gfc_array_i8 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_8_r4);
void
-mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_8_r4 (gfc_array_i8 * const restrict,
+extern void smaxloc1_8_r4 (gfc_array_i8 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_8_r4);
void
-smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void maxloc1_8_r8 (gfc_array_i8 * const restrict,
+extern void maxloc1_8_r8 (gfc_array_i8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_8_r8);
void
-maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
+maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxloc1_8_r8 (gfc_array_i8 * const restrict,
+extern void mmaxloc1_8_r8 (gfc_array_i8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_8_r8);
void
-mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxloc1_8_r8 (gfc_array_i8 * const restrict,
+extern void smaxloc1_8_r8 (gfc_array_i8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_8_r8);
void
-smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1)
-extern void maxval_i1 (gfc_array_i1 * const restrict,
+extern void maxval_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict);
export_proto(maxval_i1);
void
-maxval_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+maxval_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxval_i1 (gfc_array_i1 * const restrict,
+extern void mmaxval_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_i1);
void
-mmaxval_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxval_i1 (gfc_array_i1 * const restrict,
+extern void smaxval_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_i1);
void
-smaxval_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void maxval_i16 (gfc_array_i16 * const restrict,
+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 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+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];
}
-extern void mmaxval_i16 (gfc_array_i16 * const restrict,
+extern void mmaxval_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_i16);
void
-mmaxval_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxval_i16 (gfc_array_i16 * const restrict,
+extern void smaxval_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_i16);
void
-smaxval_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2)
-extern void maxval_i2 (gfc_array_i2 * const restrict,
+extern void maxval_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict);
export_proto(maxval_i2);
void
-maxval_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+maxval_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxval_i2 (gfc_array_i2 * const restrict,
+extern void mmaxval_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_i2);
void
-mmaxval_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxval_i2 (gfc_array_i2 * const restrict,
+extern void smaxval_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_i2);
void
-smaxval_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void maxval_i4 (gfc_array_i4 * const restrict,
+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 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+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];
}
-extern void mmaxval_i4 (gfc_array_i4 * const restrict,
+extern void mmaxval_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_i4);
void
-mmaxval_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxval_i4 (gfc_array_i4 * const restrict,
+extern void smaxval_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_i4);
void
-smaxval_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void maxval_i8 (gfc_array_i8 * const restrict,
+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 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+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];
}
-extern void mmaxval_i8 (gfc_array_i8 * const restrict,
+extern void mmaxval_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_i8);
void
-mmaxval_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxval_i8 (gfc_array_i8 * const restrict,
+extern void smaxval_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_i8);
void
-smaxval_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_REAL_10)
-extern void maxval_r10 (gfc_array_r10 * const restrict,
+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 * const restrict retarray,
- gfc_array_r10 * const restrict array,
+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];
}
-extern void mmaxval_r10 (gfc_array_r10 * const restrict,
+extern void mmaxval_r10 (gfc_array_r10 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_r10);
void
-mmaxval_r10 (gfc_array_r10 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_r10 (gfc_array_r10 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxval_r10 (gfc_array_r10 * const restrict,
+extern void smaxval_r10 (gfc_array_r10 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_r10);
void
-smaxval_r10 (gfc_array_r10 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_r10 (gfc_array_r10 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_REAL_16)
-extern void maxval_r16 (gfc_array_r16 * const restrict,
+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 * const restrict retarray,
- gfc_array_r16 * const restrict array,
+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];
}
-extern void mmaxval_r16 (gfc_array_r16 * const restrict,
+extern void mmaxval_r16 (gfc_array_r16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_r16);
void
-mmaxval_r16 (gfc_array_r16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_r16 (gfc_array_r16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxval_r16 (gfc_array_r16 * const restrict,
+extern void smaxval_r16 (gfc_array_r16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_r16);
void
-smaxval_r16 (gfc_array_r16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_r16 (gfc_array_r16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_REAL_17) && defined (HAVE_GFC_REAL_17)
-extern void maxval_r17 (gfc_array_r17 * const restrict,
+extern void maxval_r17 (gfc_array_r17 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict);
export_proto(maxval_r17);
void
-maxval_r17 (gfc_array_r17 * const restrict retarray,
- gfc_array_r17 * const restrict array,
+maxval_r17 (gfc_array_r17 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mmaxval_r17 (gfc_array_r17 * const restrict,
+extern void mmaxval_r17 (gfc_array_r17 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_r17);
void
-mmaxval_r17 (gfc_array_r17 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_r17 (gfc_array_r17 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxval_r17 (gfc_array_r17 * const restrict,
+extern void smaxval_r17 (gfc_array_r17 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_r17);
void
-smaxval_r17 (gfc_array_r17 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_r17 (gfc_array_r17 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4)
-extern void maxval_r4 (gfc_array_r4 * const restrict,
+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 * const restrict retarray,
- gfc_array_r4 * const restrict array,
+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];
}
-extern void mmaxval_r4 (gfc_array_r4 * const restrict,
+extern void mmaxval_r4 (gfc_array_r4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_r4);
void
-mmaxval_r4 (gfc_array_r4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_r4 (gfc_array_r4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxval_r4 (gfc_array_r4 * const restrict,
+extern void smaxval_r4 (gfc_array_r4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_r4);
void
-smaxval_r4 (gfc_array_r4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_r4 (gfc_array_r4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_REAL_8)
-extern void maxval_r8 (gfc_array_r8 * const restrict,
+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 * const restrict retarray,
- gfc_array_r8 * const restrict array,
+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];
}
-extern void mmaxval_r8 (gfc_array_r8 * const restrict,
+extern void mmaxval_r8 (gfc_array_r8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_r8);
void
-mmaxval_r8 (gfc_array_r8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_r8 (gfc_array_r8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void smaxval_r8 (gfc_array_r8 * const restrict,
+extern void smaxval_r8 (gfc_array_r8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_r8);
void
-smaxval_r8 (gfc_array_r8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_r8 (gfc_array_r8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_16_i1 (gfc_array_i16 * const restrict,
+extern void minloc1_16_i1 (gfc_array_i16 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_i1);
void
-minloc1_16_i1 (gfc_array_i16 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+minloc1_16_i1 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_16_i1 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_i1 (gfc_array_i16 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_i1);
void
-mminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_16_i1 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_i1 (gfc_array_i16 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_i1);
void
-sminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_16_i16 (gfc_array_i16 * const restrict,
+extern void minloc1_16_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_i16);
void
-minloc1_16_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+minloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_16_i16 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_i16);
void
-mminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_16_i16 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_i16);
void
-sminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_16_i2 (gfc_array_i16 * const restrict,
+extern void minloc1_16_i2 (gfc_array_i16 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_i2);
void
-minloc1_16_i2 (gfc_array_i16 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+minloc1_16_i2 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_16_i2 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_i2 (gfc_array_i16 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_i2);
void
-mminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_16_i2 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_i2 (gfc_array_i16 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_i2);
void
-sminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_16_i4 (gfc_array_i16 * const restrict,
+extern void minloc1_16_i4 (gfc_array_i16 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_i4);
void
-minloc1_16_i4 (gfc_array_i16 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+minloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_16_i4 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_i4 (gfc_array_i16 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_i4);
void
-mminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_16_i4 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_i4 (gfc_array_i16 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_i4);
void
-sminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_16_i8 (gfc_array_i16 * const restrict,
+extern void minloc1_16_i8 (gfc_array_i16 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_i8);
void
-minloc1_16_i8 (gfc_array_i16 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+minloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_16_i8 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_i8 (gfc_array_i16 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_i8);
void
-mminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_16_i8 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_i8 (gfc_array_i16 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_i8);
void
-sminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_16_r10 (gfc_array_i16 * const restrict,
+extern void minloc1_16_r10 (gfc_array_i16 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_r10);
void
-minloc1_16_r10 (gfc_array_i16 * const restrict retarray,
- gfc_array_r10 * const restrict array,
+minloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_16_r10 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_r10 (gfc_array_i16 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_r10);
void
-mminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_16_r10 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_r10 (gfc_array_i16 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_r10);
void
-sminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_16_r16 (gfc_array_i16 * const restrict,
+extern void minloc1_16_r16 (gfc_array_i16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_r16);
void
-minloc1_16_r16 (gfc_array_i16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
+minloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_16_r16 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_r16 (gfc_array_i16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_r16);
void
-mminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_16_r16 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_r16 (gfc_array_i16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_r16);
void
-sminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_16_r17 (gfc_array_i16 * const restrict,
+extern void minloc1_16_r17 (gfc_array_i16 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_r17);
void
-minloc1_16_r17 (gfc_array_i16 * const restrict retarray,
- gfc_array_r17 * const restrict array,
+minloc1_16_r17 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_16_r17 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_r17 (gfc_array_i16 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_r17);
void
-mminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_16_r17 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_r17 (gfc_array_i16 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_r17);
void
-sminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_16_r4 (gfc_array_i16 * const restrict,
+extern void minloc1_16_r4 (gfc_array_i16 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_r4);
void
-minloc1_16_r4 (gfc_array_i16 * const restrict retarray,
- gfc_array_r4 * const restrict array,
+minloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_16_r4 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_r4 (gfc_array_i16 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_r4);
void
-mminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_16_r4 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_r4 (gfc_array_i16 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_r4);
void
-sminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_16_r8 (gfc_array_i16 * const restrict,
+extern void minloc1_16_r8 (gfc_array_i16 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_r8);
void
-minloc1_16_r8 (gfc_array_i16 * const restrict retarray,
- gfc_array_r8 * const restrict array,
+minloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_16_r8 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_r8 (gfc_array_i16 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_r8);
void
-mminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_16_r8 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_r8 (gfc_array_i16 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_r8);
void
-sminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_4_i1 (gfc_array_i4 * const restrict,
+extern void minloc1_4_i1 (gfc_array_i4 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_i1);
void
-minloc1_4_i1 (gfc_array_i4 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+minloc1_4_i1 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_4_i1 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_i1 (gfc_array_i4 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_i1);
void
-mminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_4_i1 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_i1 (gfc_array_i4 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_i1);
void
-sminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_4_i16 (gfc_array_i4 * const restrict,
+extern void minloc1_4_i16 (gfc_array_i4 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_i16);
void
-minloc1_4_i16 (gfc_array_i4 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+minloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_4_i16 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_i16 (gfc_array_i4 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_i16);
void
-mminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_4_i16 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_i16 (gfc_array_i4 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_i16);
void
-sminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_4_i2 (gfc_array_i4 * const restrict,
+extern void minloc1_4_i2 (gfc_array_i4 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_i2);
void
-minloc1_4_i2 (gfc_array_i4 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+minloc1_4_i2 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_4_i2 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_i2 (gfc_array_i4 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_i2);
void
-mminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_4_i2 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_i2 (gfc_array_i4 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_i2);
void
-sminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_4_i4 (gfc_array_i4 * const restrict,
+extern void minloc1_4_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_i4);
void
-minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_4_i4 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_i4);
void
-mminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_4_i4 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_i4);
void
-sminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_4_i8 (gfc_array_i4 * const restrict,
+extern void minloc1_4_i8 (gfc_array_i4 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_i8);
void
-minloc1_4_i8 (gfc_array_i4 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+minloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_4_i8 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_i8 (gfc_array_i4 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_i8);
void
-mminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_4_i8 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_i8 (gfc_array_i4 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_i8);
void
-sminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_4_r10 (gfc_array_i4 * const restrict,
+extern void minloc1_4_r10 (gfc_array_i4 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_r10);
void
-minloc1_4_r10 (gfc_array_i4 * const restrict retarray,
- gfc_array_r10 * const restrict array,
+minloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_4_r10 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_r10 (gfc_array_i4 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_r10);
void
-mminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_4_r10 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_r10 (gfc_array_i4 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_r10);
void
-sminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_4_r16 (gfc_array_i4 * const restrict,
+extern void minloc1_4_r16 (gfc_array_i4 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_r16);
void
-minloc1_4_r16 (gfc_array_i4 * const restrict retarray,
- gfc_array_r16 * const restrict array,
+minloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_4_r16 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_r16 (gfc_array_i4 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_r16);
void
-mminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_4_r16 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_r16 (gfc_array_i4 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_r16);
void
-sminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_4_r17 (gfc_array_i4 * const restrict,
+extern void minloc1_4_r17 (gfc_array_i4 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_r17);
void
-minloc1_4_r17 (gfc_array_i4 * const restrict retarray,
- gfc_array_r17 * const restrict array,
+minloc1_4_r17 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_4_r17 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_r17 (gfc_array_i4 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_r17);
void
-mminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_4_r17 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_r17 (gfc_array_i4 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_r17);
void
-sminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_4_r4 (gfc_array_i4 * const restrict,
+extern void minloc1_4_r4 (gfc_array_i4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_r4);
void
-minloc1_4_r4 (gfc_array_i4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
+minloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_4_r4 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_r4 (gfc_array_i4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_r4);
void
-mminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_4_r4 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_r4 (gfc_array_i4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_r4);
void
-sminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_4_r8 (gfc_array_i4 * const restrict,
+extern void minloc1_4_r8 (gfc_array_i4 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_r8);
void
-minloc1_4_r8 (gfc_array_i4 * const restrict retarray,
- gfc_array_r8 * const restrict array,
+minloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_4_r8 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_r8 (gfc_array_i4 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_r8);
void
-mminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_4_r8 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_r8 (gfc_array_i4 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_r8);
void
-sminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_8_i1 (gfc_array_i8 * const restrict,
+extern void minloc1_8_i1 (gfc_array_i8 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_i1);
void
-minloc1_8_i1 (gfc_array_i8 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+minloc1_8_i1 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_8_i1 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_i1 (gfc_array_i8 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_i1);
void
-mminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_8_i1 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_i1 (gfc_array_i8 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_i1);
void
-sminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_8_i16 (gfc_array_i8 * const restrict,
+extern void minloc1_8_i16 (gfc_array_i8 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_i16);
void
-minloc1_8_i16 (gfc_array_i8 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+minloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_8_i16 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_i16 (gfc_array_i8 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_i16);
void
-mminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_8_i16 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_i16 (gfc_array_i8 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_i16);
void
-sminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_8_i2 (gfc_array_i8 * const restrict,
+extern void minloc1_8_i2 (gfc_array_i8 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_i2);
void
-minloc1_8_i2 (gfc_array_i8 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+minloc1_8_i2 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_8_i2 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_i2 (gfc_array_i8 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_i2);
void
-mminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_8_i2 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_i2 (gfc_array_i8 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_i2);
void
-sminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_8_i4 (gfc_array_i8 * const restrict,
+extern void minloc1_8_i4 (gfc_array_i8 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_i4);
void
-minloc1_8_i4 (gfc_array_i8 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+minloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_8_i4 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_i4 (gfc_array_i8 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_i4);
void
-mminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_8_i4 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_i4 (gfc_array_i8 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_i4);
void
-sminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_8_i8 (gfc_array_i8 * const restrict,
+extern void minloc1_8_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_i8);
void
-minloc1_8_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+minloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_8_i8 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_i8);
void
-mminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_8_i8 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_i8);
void
-sminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_8_r10 (gfc_array_i8 * const restrict,
+extern void minloc1_8_r10 (gfc_array_i8 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_r10);
void
-minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
- gfc_array_r10 * const restrict array,
+minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_8_r10 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_r10 (gfc_array_i8 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_r10);
void
-mminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_8_r10 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_r10 (gfc_array_i8 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_r10);
void
-sminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_8_r16 (gfc_array_i8 * const restrict,
+extern void minloc1_8_r16 (gfc_array_i8 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_r16);
void
-minloc1_8_r16 (gfc_array_i8 * const restrict retarray,
- gfc_array_r16 * const restrict array,
+minloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_8_r16 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_r16 (gfc_array_i8 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_r16);
void
-mminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_8_r16 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_r16 (gfc_array_i8 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_r16);
void
-sminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_8_r17 (gfc_array_i8 * const restrict,
+extern void minloc1_8_r17 (gfc_array_i8 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_r17);
void
-minloc1_8_r17 (gfc_array_i8 * const restrict retarray,
- gfc_array_r17 * const restrict array,
+minloc1_8_r17 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_8_r17 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_r17 (gfc_array_i8 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_r17);
void
-mminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_8_r17 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_r17 (gfc_array_i8 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_r17);
void
-sminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_8_r4 (gfc_array_i8 * const restrict,
+extern void minloc1_8_r4 (gfc_array_i8 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_r4);
void
-minloc1_8_r4 (gfc_array_i8 * const restrict retarray,
- gfc_array_r4 * const restrict array,
+minloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_8_r4 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_r4 (gfc_array_i8 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_r4);
void
-mminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_8_r4 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_r4 (gfc_array_i8 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_r4);
void
-sminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#define HAVE_BACK_ARG 1
-extern void minloc1_8_r8 (gfc_array_i8 * const restrict,
+extern void minloc1_8_r8 (gfc_array_i8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_r8);
void
-minloc1_8_r8 (gfc_array_i8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
+minloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminloc1_8_r8 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_r8 (gfc_array_i8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_r8);
void
-mminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminloc1_8_r8 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_r8 (gfc_array_i8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_r8);
void
-sminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1)
-extern void minval_i1 (gfc_array_i1 * const restrict,
+extern void minval_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict);
export_proto(minval_i1);
void
-minval_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+minval_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminval_i1 (gfc_array_i1 * const restrict,
+extern void mminval_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_i1);
void
-mminval_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+mminval_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminval_i1 (gfc_array_i1 * const restrict,
+extern void sminval_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_i1);
void
-sminval_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+sminval_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void minval_i16 (gfc_array_i16 * const restrict,
+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 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+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];
}
-extern void mminval_i16 (gfc_array_i16 * const restrict,
+extern void mminval_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_i16);
void
-mminval_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+mminval_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminval_i16 (gfc_array_i16 * const restrict,
+extern void sminval_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_i16);
void
-sminval_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+sminval_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2)
-extern void minval_i2 (gfc_array_i2 * const restrict,
+extern void minval_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict);
export_proto(minval_i2);
void
-minval_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+minval_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminval_i2 (gfc_array_i2 * const restrict,
+extern void mminval_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_i2);
void
-mminval_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+mminval_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminval_i2 (gfc_array_i2 * const restrict,
+extern void sminval_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_i2);
void
-sminval_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+sminval_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void minval_i4 (gfc_array_i4 * const restrict,
+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 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+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];
}
-extern void mminval_i4 (gfc_array_i4 * const restrict,
+extern void mminval_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_i4);
void
-mminval_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+mminval_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminval_i4 (gfc_array_i4 * const restrict,
+extern void sminval_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_i4);
void
-sminval_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+sminval_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void minval_i8 (gfc_array_i8 * const restrict,
+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 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+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];
}
-extern void mminval_i8 (gfc_array_i8 * const restrict,
+extern void mminval_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_i8);
void
-mminval_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+mminval_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminval_i8 (gfc_array_i8 * const restrict,
+extern void sminval_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_i8);
void
-sminval_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+sminval_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_REAL_10)
-extern void minval_r10 (gfc_array_r10 * const restrict,
+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 * const restrict retarray,
- gfc_array_r10 * const restrict array,
+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];
}
-extern void mminval_r10 (gfc_array_r10 * const restrict,
+extern void mminval_r10 (gfc_array_r10 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_r10);
void
-mminval_r10 (gfc_array_r10 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+mminval_r10 (gfc_array_r10 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminval_r10 (gfc_array_r10 * const restrict,
+extern void sminval_r10 (gfc_array_r10 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_r10);
void
-sminval_r10 (gfc_array_r10 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+sminval_r10 (gfc_array_r10 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_REAL_16)
-extern void minval_r16 (gfc_array_r16 * const restrict,
+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 * const restrict retarray,
- gfc_array_r16 * const restrict array,
+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];
}
-extern void mminval_r16 (gfc_array_r16 * const restrict,
+extern void mminval_r16 (gfc_array_r16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_r16);
void
-mminval_r16 (gfc_array_r16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+mminval_r16 (gfc_array_r16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminval_r16 (gfc_array_r16 * const restrict,
+extern void sminval_r16 (gfc_array_r16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_r16);
void
-sminval_r16 (gfc_array_r16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+sminval_r16 (gfc_array_r16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_REAL_17) && defined (HAVE_GFC_REAL_17)
-extern void minval_r17 (gfc_array_r17 * const restrict,
+extern void minval_r17 (gfc_array_r17 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict);
export_proto(minval_r17);
void
-minval_r17 (gfc_array_r17 * const restrict retarray,
- gfc_array_r17 * const restrict array,
+minval_r17 (gfc_array_r17 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void mminval_r17 (gfc_array_r17 * const restrict,
+extern void mminval_r17 (gfc_array_r17 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_r17);
void
-mminval_r17 (gfc_array_r17 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+mminval_r17 (gfc_array_r17 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminval_r17 (gfc_array_r17 * const restrict,
+extern void sminval_r17 (gfc_array_r17 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_r17);
void
-sminval_r17 (gfc_array_r17 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+sminval_r17 (gfc_array_r17 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4)
-extern void minval_r4 (gfc_array_r4 * const restrict,
+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 * const restrict retarray,
- gfc_array_r4 * const restrict array,
+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];
}
-extern void mminval_r4 (gfc_array_r4 * const restrict,
+extern void mminval_r4 (gfc_array_r4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_r4);
void
-mminval_r4 (gfc_array_r4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+mminval_r4 (gfc_array_r4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminval_r4 (gfc_array_r4 * const restrict,
+extern void sminval_r4 (gfc_array_r4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_r4);
void
-sminval_r4 (gfc_array_r4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+sminval_r4 (gfc_array_r4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_REAL_8)
-extern void minval_r8 (gfc_array_r8 * const restrict,
+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 * const restrict retarray,
- gfc_array_r8 * const restrict array,
+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];
}
-extern void mminval_r8 (gfc_array_r8 * const restrict,
+extern void mminval_r8 (gfc_array_r8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_r8);
void
-mminval_r8 (gfc_array_r8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+mminval_r8 (gfc_array_r8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
}
-extern void sminval_r8 (gfc_array_r8 * const restrict,
+extern void sminval_r8 (gfc_array_r8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_r8);
void
-sminval_r8 (gfc_array_r8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+sminval_r8 (gfc_array_r8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
#define MATHFUNC(funcname) funcname ## l
-extern void norm2_r10 (gfc_array_r10 * const restrict,
+extern void norm2_r10 (gfc_array_r10 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(norm2_r10);
void
-norm2_r10 (gfc_array_r10 * const restrict retarray,
- gfc_array_r10 * const restrict array,
+norm2_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];
#endif
-extern void norm2_r16 (gfc_array_r16 * const restrict,
+extern void norm2_r16 (gfc_array_r16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(norm2_r16);
void
-norm2_r16 (gfc_array_r16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
+norm2_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];
#endif
-extern void norm2_r17 (gfc_array_r17 * const restrict,
+extern void norm2_r17 (gfc_array_r17 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict);
export_proto(norm2_r17);
void
-norm2_r17 (gfc_array_r17 * const restrict retarray,
- gfc_array_r17 * const restrict array,
+norm2_r17 (gfc_array_r17 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
#define MATHFUNC(funcname) funcname ## f
-extern void norm2_r4 (gfc_array_r4 * const restrict,
+extern void norm2_r4 (gfc_array_r4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(norm2_r4);
void
-norm2_r4 (gfc_array_r4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
+norm2_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];
#define MATHFUNC(funcname) funcname
-extern void norm2_r8 (gfc_array_r8 * const restrict,
+extern void norm2_r8 (gfc_array_r8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(norm2_r8);
void
-norm2_r8 (gfc_array_r8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
+norm2_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];
#if defined (HAVE_GFC_LOGICAL_1) && defined (HAVE_GFC_LOGICAL_1)
-extern void parity_l1 (gfc_array_l1 * const restrict,
+extern void parity_l1 (gfc_array_l1 * const restrict,
gfc_array_l1 * const restrict, const index_type * const restrict);
export_proto(parity_l1);
void
-parity_l1 (gfc_array_l1 * const restrict retarray,
- gfc_array_l1 * const restrict array,
+parity_l1 (gfc_array_l1 * const restrict retarray,
+ gfc_array_l1 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_LOGICAL_16)
-extern void parity_l16 (gfc_array_l16 * const restrict,
+extern void parity_l16 (gfc_array_l16 * const restrict,
gfc_array_l16 * const restrict, const index_type * const restrict);
export_proto(parity_l16);
void
-parity_l16 (gfc_array_l16 * const restrict retarray,
- gfc_array_l16 * const restrict array,
+parity_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];
#if defined (HAVE_GFC_LOGICAL_2) && defined (HAVE_GFC_LOGICAL_2)
-extern void parity_l2 (gfc_array_l2 * const restrict,
+extern void parity_l2 (gfc_array_l2 * const restrict,
gfc_array_l2 * const restrict, const index_type * const restrict);
export_proto(parity_l2);
void
-parity_l2 (gfc_array_l2 * const restrict retarray,
- gfc_array_l2 * const restrict array,
+parity_l2 (gfc_array_l2 * const restrict retarray,
+ gfc_array_l2 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
#if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_LOGICAL_4)
-extern void parity_l4 (gfc_array_l4 * const restrict,
+extern void parity_l4 (gfc_array_l4 * const restrict,
gfc_array_l4 * const restrict, const index_type * const restrict);
export_proto(parity_l4);
void
-parity_l4 (gfc_array_l4 * const restrict retarray,
- gfc_array_l4 * const restrict array,
+parity_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];
#if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_LOGICAL_8)
-extern void parity_l8 (gfc_array_l8 * const restrict,
+extern void parity_l8 (gfc_array_l8 * const restrict,
gfc_array_l8 * const restrict, const index_type * const restrict);
export_proto(parity_l8);
void
-parity_l8 (gfc_array_l8 * const restrict retarray,
- gfc_array_l8 * const restrict array,
+parity_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];