mirror of git://gcc.gnu.org/git/gcc.git
libfortran: Regenerate files
In commit 5e918a4db9, regenerated files
were not included in the commit as they should have been. Therefore, a
whitespace fix was not propagated. Sync generated files now, as obtained
from a run with --enable-maintainer-mode.
2025-06-06 François-Xavier Coudert <fxcoudert@gcc.gnu.org>
libgfortran/ChangeLog:
PR libfortran/116400
* generated/iall_i1.c: Regenerate.
* generated/iall_i16.c: Regenerate.
* generated/iall_i2.c: Regenerate.
* generated/iall_i4.c: Regenerate.
* generated/iall_i8.c: Regenerate.
* generated/iany_i1.c: Regenerate.
* generated/iany_i16.c: Regenerate.
* generated/iany_i2.c: Regenerate.
* generated/iany_i4.c: Regenerate.
* generated/iany_i8.c: Regenerate.
* generated/iparity_i1.c: Regenerate.
* generated/iparity_i16.c: Regenerate.
* generated/iparity_i2.c: Regenerate.
* generated/iparity_i4.c: Regenerate.
* generated/iparity_i8.c: Regenerate.
* generated/matmulavx128_c10.c: Regenerate.
* generated/matmulavx128_c16.c: Regenerate.
* generated/matmulavx128_c17.c: Regenerate.
* generated/matmulavx128_c4.c: Regenerate.
* generated/matmulavx128_c8.c: Regenerate.
* generated/matmulavx128_i1.c: Regenerate.
* generated/matmulavx128_i16.c: Regenerate.
* generated/matmulavx128_i2.c: Regenerate.
* generated/matmulavx128_i4.c: Regenerate.
* generated/matmulavx128_i8.c: Regenerate.
* generated/matmulavx128_r10.c: Regenerate.
* generated/matmulavx128_r16.c: Regenerate.
* generated/matmulavx128_r17.c: Regenerate.
* generated/matmulavx128_r4.c: Regenerate.
* generated/matmulavx128_r8.c: Regenerate.
* generated/maxloc1_16_i1.c: Regenerate.
* generated/maxloc1_16_i16.c: Regenerate.
* generated/maxloc1_16_i2.c: Regenerate.
* generated/maxloc1_16_i4.c: Regenerate.
* generated/maxloc1_16_i8.c: Regenerate.
* generated/maxloc1_16_r10.c: Regenerate.
* generated/maxloc1_16_r16.c: Regenerate.
* generated/maxloc1_16_r17.c: Regenerate.
* generated/maxloc1_16_r4.c: Regenerate.
* generated/maxloc1_16_r8.c: Regenerate.
* generated/maxloc1_4_i1.c: Regenerate.
* generated/maxloc1_4_i16.c: Regenerate.
* generated/maxloc1_4_i2.c: Regenerate.
* generated/maxloc1_4_i4.c: Regenerate.
* generated/maxloc1_4_i8.c: Regenerate.
* generated/maxloc1_4_r10.c: Regenerate.
* generated/maxloc1_4_r16.c: Regenerate.
* generated/maxloc1_4_r17.c: Regenerate.
* generated/maxloc1_4_r4.c: Regenerate.
* generated/maxloc1_4_r8.c: Regenerate.
* generated/maxloc1_8_i1.c: Regenerate.
* generated/maxloc1_8_i16.c: Regenerate.
* generated/maxloc1_8_i2.c: Regenerate.
* generated/maxloc1_8_i4.c: Regenerate.
* generated/maxloc1_8_i8.c: Regenerate.
* generated/maxloc1_8_r10.c: Regenerate.
* generated/maxloc1_8_r16.c: Regenerate.
* generated/maxloc1_8_r17.c: Regenerate.
* generated/maxloc1_8_r4.c: Regenerate.
* generated/maxloc1_8_r8.c: Regenerate.
* generated/maxval_i1.c: Regenerate.
* generated/maxval_i16.c: Regenerate.
* generated/maxval_i2.c: Regenerate.
* generated/maxval_i4.c: Regenerate.
* generated/maxval_i8.c: Regenerate.
* generated/maxval_r10.c: Regenerate.
* generated/maxval_r16.c: Regenerate.
* generated/maxval_r17.c: Regenerate.
* generated/maxval_r4.c: Regenerate.
* generated/maxval_r8.c: Regenerate.
* generated/minloc1_16_i1.c: Regenerate.
* generated/minloc1_16_i16.c: Regenerate.
* generated/minloc1_16_i2.c: Regenerate.
* generated/minloc1_16_i4.c: Regenerate.
* generated/minloc1_16_i8.c: Regenerate.
* generated/minloc1_16_r10.c: Regenerate.
* generated/minloc1_16_r16.c: Regenerate.
* generated/minloc1_16_r17.c: Regenerate.
* generated/minloc1_16_r4.c: Regenerate.
* generated/minloc1_16_r8.c: Regenerate.
* generated/minloc1_4_i1.c: Regenerate.
* generated/minloc1_4_i16.c: Regenerate.
* generated/minloc1_4_i2.c: Regenerate.
* generated/minloc1_4_i4.c: Regenerate.
* generated/minloc1_4_i8.c: Regenerate.
* generated/minloc1_4_r10.c: Regenerate.
* generated/minloc1_4_r16.c: Regenerate.
* generated/minloc1_4_r17.c: Regenerate.
* generated/minloc1_4_r4.c: Regenerate.
* generated/minloc1_4_r8.c: Regenerate.
* generated/minloc1_8_i1.c: Regenerate.
* generated/minloc1_8_i16.c: Regenerate.
* generated/minloc1_8_i2.c: Regenerate.
* generated/minloc1_8_i4.c: Regenerate.
* generated/minloc1_8_i8.c: Regenerate.
* generated/minloc1_8_r10.c: Regenerate.
* generated/minloc1_8_r16.c: Regenerate.
* generated/minloc1_8_r17.c: Regenerate.
* generated/minloc1_8_r4.c: Regenerate.
* generated/minloc1_8_r8.c: Regenerate.
* generated/minval_i1.c: Regenerate.
* generated/minval_i16.c: Regenerate.
* generated/minval_i2.c: Regenerate.
* generated/minval_i4.c: Regenerate.
* generated/minval_i8.c: Regenerate.
* generated/minval_r10.c: Regenerate.
* generated/minval_r16.c: Regenerate.
* generated/minval_r17.c: Regenerate.
* generated/minval_r4.c: Regenerate.
* generated/minval_r8.c: Regenerate.
* generated/norm2_r10.c: Regenerate.
* generated/norm2_r16.c: Regenerate.
* generated/norm2_r17.c: Regenerate.
* generated/norm2_r4.c: Regenerate.
* generated/norm2_r8.c: Regenerate.
* generated/parity_l1.c: Regenerate.
* generated/parity_l16.c: Regenerate.
* generated/parity_l2.c: Regenerate.
* generated/parity_l4.c: Regenerate.
* generated/parity_l8.c: Regenerate.
This commit is contained in:
Francois-Xavier Coudert
parent
d1c3cfa329
commit
2829068850
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -188,15 +188,15 @@ iall_i1 (gfc_array_i1 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -378,15 +378,15 @@ miall_i1 (gfc_array_i1 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -188,15 +188,15 @@ iall_i16 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -378,15 +378,15 @@ miall_i16 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -188,15 +188,15 @@ iall_i2 (gfc_array_i2 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -378,15 +378,15 @@ miall_i2 (gfc_array_i2 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -188,15 +188,15 @@ iall_i4 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -378,15 +378,15 @@ miall_i4 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -188,15 +188,15 @@ iall_i8 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -378,15 +378,15 @@ miall_i8 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -188,15 +188,15 @@ iany_i1 (gfc_array_i1 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -378,15 +378,15 @@ miany_i1 (gfc_array_i1 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -188,15 +188,15 @@ iany_i16 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -378,15 +378,15 @@ miany_i16 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -188,15 +188,15 @@ iany_i2 (gfc_array_i2 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -378,15 +378,15 @@ miany_i2 (gfc_array_i2 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -188,15 +188,15 @@ iany_i4 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -378,15 +378,15 @@ miany_i4 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -188,15 +188,15 @@ iany_i8 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -378,15 +378,15 @@ miany_i8 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -188,15 +188,15 @@ iparity_i1 (gfc_array_i1 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -378,15 +378,15 @@ miparity_i1 (gfc_array_i1 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -188,15 +188,15 @@ iparity_i16 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -378,15 +378,15 @@ miparity_i16 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -188,15 +188,15 @@ iparity_i2 (gfc_array_i2 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -378,15 +378,15 @@ miparity_i2 (gfc_array_i2 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -188,15 +188,15 @@ iparity_i4 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -378,15 +378,15 @@ miparity_i4 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -188,15 +188,15 @@ iparity_i8 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -378,15 +378,15 @@ miparity_i8 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@ matmul_c10_avx128_fma3 (gfc_array_c10 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
@ -619,7 +619,7 @@ matmul_c10_avx128_fma4 (gfc_array_c10 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@ matmul_c16_avx128_fma3 (gfc_array_c16 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
@ -619,7 +619,7 @@ matmul_c16_avx128_fma4 (gfc_array_c16 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@ matmul_c17_avx128_fma3 (gfc_array_c17 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
@ -619,7 +619,7 @@ matmul_c17_avx128_fma4 (gfc_array_c17 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@ matmul_c4_avx128_fma3 (gfc_array_c4 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
@ -619,7 +619,7 @@ matmul_c4_avx128_fma4 (gfc_array_c4 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@ matmul_c8_avx128_fma3 (gfc_array_c8 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
@ -619,7 +619,7 @@ matmul_c8_avx128_fma4 (gfc_array_c8 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@ matmul_i1_avx128_fma3 (gfc_array_i1 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
@ -619,7 +619,7 @@ matmul_i1_avx128_fma4 (gfc_array_i1 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@ matmul_i16_avx128_fma3 (gfc_array_i16 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
@ -619,7 +619,7 @@ matmul_i16_avx128_fma4 (gfc_array_i16 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@ matmul_i2_avx128_fma3 (gfc_array_i2 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
@ -619,7 +619,7 @@ matmul_i2_avx128_fma4 (gfc_array_i2 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@ matmul_i4_avx128_fma3 (gfc_array_i4 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
@ -619,7 +619,7 @@ matmul_i4_avx128_fma4 (gfc_array_i4 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@ matmul_i8_avx128_fma3 (gfc_array_i8 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
@ -619,7 +619,7 @@ matmul_i8_avx128_fma4 (gfc_array_i8 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@ matmul_r10_avx128_fma3 (gfc_array_r10 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
@ -619,7 +619,7 @@ matmul_r10_avx128_fma4 (gfc_array_r10 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@ matmul_r16_avx128_fma3 (gfc_array_r16 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
@ -619,7 +619,7 @@ matmul_r16_avx128_fma4 (gfc_array_r16 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@ matmul_r17_avx128_fma3 (gfc_array_r17 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
@ -619,7 +619,7 @@ matmul_r17_avx128_fma4 (gfc_array_r17 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@ matmul_r4_avx128_fma3 (gfc_array_r4 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
@ -619,7 +619,7 @@ matmul_r4_avx128_fma4 (gfc_array_r4 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@ matmul_r8_avx128_fma3 (gfc_array_r8 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
@ -619,7 +619,7 @@ matmul_r8_avx128_fma4 (gfc_array_r8 * const restrict retarray,
|
|||
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)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -216,15 +216,15 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -449,15 +449,15 @@ mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -202,15 +202,15 @@ maxval_i1 (gfc_array_i1 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -420,15 +420,15 @@ mmaxval_i1 (gfc_array_i1 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -202,15 +202,15 @@ maxval_i16 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -420,15 +420,15 @@ mmaxval_i16 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -202,15 +202,15 @@ maxval_i2 (gfc_array_i2 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -420,15 +420,15 @@ mmaxval_i2 (gfc_array_i2 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -202,15 +202,15 @@ maxval_i4 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -420,15 +420,15 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -202,15 +202,15 @@ maxval_i8 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -420,15 +420,15 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -202,15 +202,15 @@ maxval_r10 (gfc_array_r10 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -420,15 +420,15 @@ mmaxval_r10 (gfc_array_r10 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -202,15 +202,15 @@ maxval_r16 (gfc_array_r16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -420,15 +420,15 @@ mmaxval_r16 (gfc_array_r16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -202,15 +202,15 @@ maxval_r17 (gfc_array_r17 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -420,15 +420,15 @@ mmaxval_r17 (gfc_array_r17 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -202,15 +202,15 @@ maxval_r4 (gfc_array_r4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -420,15 +420,15 @@ mmaxval_r4 (gfc_array_r4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -202,15 +202,15 @@ maxval_r8 (gfc_array_r8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -420,15 +420,15 @@ mmaxval_r8 (gfc_array_r8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_16_i1 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_16_i16 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_16_i2 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_16_i4 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_16_i8 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_16_r10 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_16_r16 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_16_r17 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_16_r4 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_16_r8 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_4_i1 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_4_i16 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_4_i2 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_4_i8 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_4_r10 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_4_r16 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_4_r17 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_4_r4 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_4_r8 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_8_i1 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_8_i16 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_8_i2 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_8_i4 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_8_i8 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_8_r16 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_8_r17 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_8_r4 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
|
|
@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|||
#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];
|
||||
|
|
@ -226,15 +226,15 @@ minloc1_8_r8 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
@ -459,15 +459,15 @@ mminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
|
|||
}
|
||||
|
||||
|
||||
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];
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue