Commit 64acfd99 by Janne Blomqvist

libgfortran ChangeLog:

2005-11-27  Janne Blomqvist  <jb@gcc.gnu.org>

	* m4/*: Add const restrict to function arguments.
	* generated/*.c: Regenerate.

From-SVN: r107573
parent 949446f5
...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_LOGICAL_16) #if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_LOGICAL_16)
extern void all_l16 (gfc_array_l16 *, gfc_array_l16 *, index_type *); extern void all_l16 (gfc_array_l16 * const restrict,
gfc_array_l16 * const restrict, const index_type * const restrict);
export_proto(all_l16); export_proto(all_l16);
void void
all_l16 (gfc_array_l16 *retarray, gfc_array_l16 *array, index_type *pdim) all_l16 (gfc_array_l16 * const restrict retarray,
gfc_array_l16 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_LOGICAL_16 *base; const GFC_LOGICAL_16 * restrict base;
GFC_LOGICAL_16 *dest; GFC_LOGICAL_16 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -120,7 +123,7 @@ all_l16 (gfc_array_l16 *retarray, gfc_array_l16 *array, index_type *pdim) ...@@ -120,7 +123,7 @@ all_l16 (gfc_array_l16 *retarray, gfc_array_l16 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_LOGICAL_16 *src; const GFC_LOGICAL_16 * restrict src;
GFC_LOGICAL_16 result; GFC_LOGICAL_16 result;
src = base; src = base;
{ {
......
...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_LOGICAL_4) #if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_LOGICAL_4)
extern void all_l4 (gfc_array_l4 *, gfc_array_l4 *, index_type *); extern void all_l4 (gfc_array_l4 * const restrict,
gfc_array_l4 * const restrict, const index_type * const restrict);
export_proto(all_l4); export_proto(all_l4);
void void
all_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim) all_l4 (gfc_array_l4 * const restrict retarray,
gfc_array_l4 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_LOGICAL_4 *base; const GFC_LOGICAL_4 * restrict base;
GFC_LOGICAL_4 *dest; GFC_LOGICAL_4 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -120,7 +123,7 @@ all_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim) ...@@ -120,7 +123,7 @@ all_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_LOGICAL_4 *src; const GFC_LOGICAL_4 * restrict src;
GFC_LOGICAL_4 result; GFC_LOGICAL_4 result;
src = base; src = base;
{ {
......
...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_LOGICAL_8) #if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_LOGICAL_8)
extern void all_l8 (gfc_array_l8 *, gfc_array_l8 *, index_type *); extern void all_l8 (gfc_array_l8 * const restrict,
gfc_array_l8 * const restrict, const index_type * const restrict);
export_proto(all_l8); export_proto(all_l8);
void void
all_l8 (gfc_array_l8 *retarray, gfc_array_l8 *array, index_type *pdim) all_l8 (gfc_array_l8 * const restrict retarray,
gfc_array_l8 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_LOGICAL_8 *base; const GFC_LOGICAL_8 * restrict base;
GFC_LOGICAL_8 *dest; GFC_LOGICAL_8 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -120,7 +123,7 @@ all_l8 (gfc_array_l8 *retarray, gfc_array_l8 *array, index_type *pdim) ...@@ -120,7 +123,7 @@ all_l8 (gfc_array_l8 *retarray, gfc_array_l8 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_LOGICAL_8 *src; const GFC_LOGICAL_8 * restrict src;
GFC_LOGICAL_8 result; GFC_LOGICAL_8 result;
src = base; src = base;
{ {
......
...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_LOGICAL_16) #if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_LOGICAL_16)
extern void any_l16 (gfc_array_l16 *, gfc_array_l16 *, index_type *); extern void any_l16 (gfc_array_l16 * const restrict,
gfc_array_l16 * const restrict, const index_type * const restrict);
export_proto(any_l16); export_proto(any_l16);
void void
any_l16 (gfc_array_l16 *retarray, gfc_array_l16 *array, index_type *pdim) any_l16 (gfc_array_l16 * const restrict retarray,
gfc_array_l16 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_LOGICAL_16 *base; const GFC_LOGICAL_16 * restrict base;
GFC_LOGICAL_16 *dest; GFC_LOGICAL_16 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -120,7 +123,7 @@ any_l16 (gfc_array_l16 *retarray, gfc_array_l16 *array, index_type *pdim) ...@@ -120,7 +123,7 @@ any_l16 (gfc_array_l16 *retarray, gfc_array_l16 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_LOGICAL_16 *src; const GFC_LOGICAL_16 * restrict src;
GFC_LOGICAL_16 result; GFC_LOGICAL_16 result;
src = base; src = base;
{ {
......
...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_LOGICAL_4) #if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_LOGICAL_4)
extern void any_l4 (gfc_array_l4 *, gfc_array_l4 *, index_type *); extern void any_l4 (gfc_array_l4 * const restrict,
gfc_array_l4 * const restrict, const index_type * const restrict);
export_proto(any_l4); export_proto(any_l4);
void void
any_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim) any_l4 (gfc_array_l4 * const restrict retarray,
gfc_array_l4 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_LOGICAL_4 *base; const GFC_LOGICAL_4 * restrict base;
GFC_LOGICAL_4 *dest; GFC_LOGICAL_4 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -120,7 +123,7 @@ any_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim) ...@@ -120,7 +123,7 @@ any_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_LOGICAL_4 *src; const GFC_LOGICAL_4 * restrict src;
GFC_LOGICAL_4 result; GFC_LOGICAL_4 result;
src = base; src = base;
{ {
......
...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_LOGICAL_8) #if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_LOGICAL_8)
extern void any_l8 (gfc_array_l8 *, gfc_array_l8 *, index_type *); extern void any_l8 (gfc_array_l8 * const restrict,
gfc_array_l8 * const restrict, const index_type * const restrict);
export_proto(any_l8); export_proto(any_l8);
void void
any_l8 (gfc_array_l8 *retarray, gfc_array_l8 *array, index_type *pdim) any_l8 (gfc_array_l8 * const restrict retarray,
gfc_array_l8 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_LOGICAL_8 *base; const GFC_LOGICAL_8 * restrict base;
GFC_LOGICAL_8 *dest; GFC_LOGICAL_8 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -120,7 +123,7 @@ any_l8 (gfc_array_l8 *retarray, gfc_array_l8 *array, index_type *pdim) ...@@ -120,7 +123,7 @@ any_l8 (gfc_array_l8 *retarray, gfc_array_l8 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_LOGICAL_8 *src; const GFC_LOGICAL_8 * restrict src;
GFC_LOGICAL_8 result; GFC_LOGICAL_8 result;
src = base; src = base;
{ {
......
...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_INTEGER_16)
extern void count_16_l16 (gfc_array_i16 *, gfc_array_l16 *, index_type *); extern void count_16_l16 (gfc_array_i16 * const restrict,
gfc_array_l16 * const restrict, const index_type * const restrict);
export_proto(count_16_l16); export_proto(count_16_l16);
void void
count_16_l16 (gfc_array_i16 *retarray, gfc_array_l16 *array, index_type *pdim) count_16_l16 (gfc_array_i16 * const restrict retarray,
gfc_array_l16 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_LOGICAL_16 *base; const GFC_LOGICAL_16 * restrict base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -120,7 +123,7 @@ count_16_l16 (gfc_array_i16 *retarray, gfc_array_l16 *array, index_type *pdim) ...@@ -120,7 +123,7 @@ count_16_l16 (gfc_array_i16 *retarray, gfc_array_l16 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_LOGICAL_16 *src; const GFC_LOGICAL_16 * restrict src;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
{ {
......
...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_INTEGER_16)
extern void count_16_l4 (gfc_array_i16 *, gfc_array_l4 *, index_type *); extern void count_16_l4 (gfc_array_i16 * const restrict,
gfc_array_l4 * const restrict, const index_type * const restrict);
export_proto(count_16_l4); export_proto(count_16_l4);
void void
count_16_l4 (gfc_array_i16 *retarray, gfc_array_l4 *array, index_type *pdim) count_16_l4 (gfc_array_i16 * const restrict retarray,
gfc_array_l4 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_LOGICAL_4 *base; const GFC_LOGICAL_4 * restrict base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -120,7 +123,7 @@ count_16_l4 (gfc_array_i16 *retarray, gfc_array_l4 *array, index_type *pdim) ...@@ -120,7 +123,7 @@ count_16_l4 (gfc_array_i16 *retarray, gfc_array_l4 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_LOGICAL_4 *src; const GFC_LOGICAL_4 * restrict src;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
{ {
......
...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_INTEGER_16)
extern void count_16_l8 (gfc_array_i16 *, gfc_array_l8 *, index_type *); extern void count_16_l8 (gfc_array_i16 * const restrict,
gfc_array_l8 * const restrict, const index_type * const restrict);
export_proto(count_16_l8); export_proto(count_16_l8);
void void
count_16_l8 (gfc_array_i16 *retarray, gfc_array_l8 *array, index_type *pdim) count_16_l8 (gfc_array_i16 * const restrict retarray,
gfc_array_l8 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_LOGICAL_8 *base; const GFC_LOGICAL_8 * restrict base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -120,7 +123,7 @@ count_16_l8 (gfc_array_i16 *retarray, gfc_array_l8 *array, index_type *pdim) ...@@ -120,7 +123,7 @@ count_16_l8 (gfc_array_i16 *retarray, gfc_array_l8 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_LOGICAL_8 *src; const GFC_LOGICAL_8 * restrict src;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
{ {
......
...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_INTEGER_4)
extern void count_4_l16 (gfc_array_i4 *, gfc_array_l16 *, index_type *); extern void count_4_l16 (gfc_array_i4 * const restrict,
gfc_array_l16 * const restrict, const index_type * const restrict);
export_proto(count_4_l16); export_proto(count_4_l16);
void void
count_4_l16 (gfc_array_i4 *retarray, gfc_array_l16 *array, index_type *pdim) count_4_l16 (gfc_array_i4 * const restrict retarray,
gfc_array_l16 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_LOGICAL_16 *base; const GFC_LOGICAL_16 * restrict base;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -120,7 +123,7 @@ count_4_l16 (gfc_array_i4 *retarray, gfc_array_l16 *array, index_type *pdim) ...@@ -120,7 +123,7 @@ count_4_l16 (gfc_array_i4 *retarray, gfc_array_l16 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_LOGICAL_16 *src; const GFC_LOGICAL_16 * restrict src;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
{ {
......
...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_INTEGER_4)
extern void count_4_l4 (gfc_array_i4 *, gfc_array_l4 *, index_type *); extern void count_4_l4 (gfc_array_i4 * const restrict,
gfc_array_l4 * const restrict, const index_type * const restrict);
export_proto(count_4_l4); export_proto(count_4_l4);
void void
count_4_l4 (gfc_array_i4 *retarray, gfc_array_l4 *array, index_type *pdim) count_4_l4 (gfc_array_i4 * const restrict retarray,
gfc_array_l4 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_LOGICAL_4 *base; const GFC_LOGICAL_4 * restrict base;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -120,7 +123,7 @@ count_4_l4 (gfc_array_i4 *retarray, gfc_array_l4 *array, index_type *pdim) ...@@ -120,7 +123,7 @@ count_4_l4 (gfc_array_i4 *retarray, gfc_array_l4 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_LOGICAL_4 *src; const GFC_LOGICAL_4 * restrict src;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
{ {
......
...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_INTEGER_4)
extern void count_4_l8 (gfc_array_i4 *, gfc_array_l8 *, index_type *); extern void count_4_l8 (gfc_array_i4 * const restrict,
gfc_array_l8 * const restrict, const index_type * const restrict);
export_proto(count_4_l8); export_proto(count_4_l8);
void void
count_4_l8 (gfc_array_i4 *retarray, gfc_array_l8 *array, index_type *pdim) count_4_l8 (gfc_array_i4 * const restrict retarray,
gfc_array_l8 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_LOGICAL_8 *base; const GFC_LOGICAL_8 * restrict base;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -120,7 +123,7 @@ count_4_l8 (gfc_array_i4 *retarray, gfc_array_l8 *array, index_type *pdim) ...@@ -120,7 +123,7 @@ count_4_l8 (gfc_array_i4 *retarray, gfc_array_l8 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_LOGICAL_8 *src; const GFC_LOGICAL_8 * restrict src;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
{ {
......
...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_INTEGER_8)
extern void count_8_l16 (gfc_array_i8 *, gfc_array_l16 *, index_type *); extern void count_8_l16 (gfc_array_i8 * const restrict,
gfc_array_l16 * const restrict, const index_type * const restrict);
export_proto(count_8_l16); export_proto(count_8_l16);
void void
count_8_l16 (gfc_array_i8 *retarray, gfc_array_l16 *array, index_type *pdim) count_8_l16 (gfc_array_i8 * const restrict retarray,
gfc_array_l16 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_LOGICAL_16 *base; const GFC_LOGICAL_16 * restrict base;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -120,7 +123,7 @@ count_8_l16 (gfc_array_i8 *retarray, gfc_array_l16 *array, index_type *pdim) ...@@ -120,7 +123,7 @@ count_8_l16 (gfc_array_i8 *retarray, gfc_array_l16 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_LOGICAL_16 *src; const GFC_LOGICAL_16 * restrict src;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
{ {
......
...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_INTEGER_8)
extern void count_8_l4 (gfc_array_i8 *, gfc_array_l4 *, index_type *); extern void count_8_l4 (gfc_array_i8 * const restrict,
gfc_array_l4 * const restrict, const index_type * const restrict);
export_proto(count_8_l4); export_proto(count_8_l4);
void void
count_8_l4 (gfc_array_i8 *retarray, gfc_array_l4 *array, index_type *pdim) count_8_l4 (gfc_array_i8 * const restrict retarray,
gfc_array_l4 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_LOGICAL_4 *base; const GFC_LOGICAL_4 * restrict base;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -120,7 +123,7 @@ count_8_l4 (gfc_array_i8 *retarray, gfc_array_l4 *array, index_type *pdim) ...@@ -120,7 +123,7 @@ count_8_l4 (gfc_array_i8 *retarray, gfc_array_l4 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_LOGICAL_4 *src; const GFC_LOGICAL_4 * restrict src;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
{ {
......
...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_INTEGER_8)
extern void count_8_l8 (gfc_array_i8 *, gfc_array_l8 *, index_type *); extern void count_8_l8 (gfc_array_i8 * const restrict,
gfc_array_l8 * const restrict, const index_type * const restrict);
export_proto(count_8_l8); export_proto(count_8_l8);
void void
count_8_l8 (gfc_array_i8 *retarray, gfc_array_l8 *array, index_type *pdim) count_8_l8 (gfc_array_i8 * const restrict retarray,
gfc_array_l8 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_LOGICAL_8 *base; const GFC_LOGICAL_8 * restrict base;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -120,7 +123,7 @@ count_8_l8 (gfc_array_i8 *retarray, gfc_array_l8 *array, index_type *pdim) ...@@ -120,7 +123,7 @@ count_8_l8 (gfc_array_i8 *retarray, gfc_array_l8 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_LOGICAL_8 *src; const GFC_LOGICAL_8 * restrict src;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
{ {
......
...@@ -37,8 +37,11 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,8 +37,11 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_INTEGER_16)
static void static void
cshift1 (gfc_array_char * ret, const gfc_array_char * array, cshift1 (gfc_array_char * const restrict ret,
const gfc_array_i16 * h, const GFC_INTEGER_16 * pwhich, index_type size) const gfc_array_char * const restrict array,
const gfc_array_i16 * const restrict h,
const GFC_INTEGER_16 * const restrict pwhich,
index_type size)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS]; index_type rstride[GFC_MAX_DIMENSIONS];
...@@ -194,30 +197,36 @@ cshift1 (gfc_array_char * ret, const gfc_array_char * array, ...@@ -194,30 +197,36 @@ cshift1 (gfc_array_char * ret, const gfc_array_char * array,
} }
} }
void cshift1_16 (gfc_array_char *, const gfc_array_char *, void cshift1_16 (gfc_array_char * const restrict,
const gfc_array_i16 *, const GFC_INTEGER_16 *); const gfc_array_char * const restrict,
const gfc_array_i16 * const restrict,
const GFC_INTEGER_16 * const restrict);
export_proto(cshift1_16); export_proto(cshift1_16);
void void
cshift1_16 (gfc_array_char * ret, cshift1_16 (gfc_array_char * const restrict ret,
const gfc_array_char * array, const gfc_array_char * const restrict array,
const gfc_array_i16 * h, const GFC_INTEGER_16 * pwhich) const gfc_array_i16 * const restrict h,
const GFC_INTEGER_16 * const restrict pwhich)
{ {
cshift1 (ret, array, h, pwhich, GFC_DESCRIPTOR_SIZE (array)); cshift1 (ret, array, h, pwhich, GFC_DESCRIPTOR_SIZE (array));
} }
void cshift1_16_char (gfc_array_char * ret, GFC_INTEGER_4, void cshift1_16_char (gfc_array_char * const restrict ret,
const gfc_array_char * array, GFC_INTEGER_4,
const gfc_array_i16 * h, const GFC_INTEGER_16 * pwhich, const gfc_array_char * const restrict array,
GFC_INTEGER_4); const gfc_array_i16 * const restrict h,
const GFC_INTEGER_16 * const restrict pwhich,
GFC_INTEGER_4);
export_proto(cshift1_16_char); export_proto(cshift1_16_char);
void void
cshift1_16_char (gfc_array_char * ret, cshift1_16_char (gfc_array_char * const restrict ret,
GFC_INTEGER_4 ret_length __attribute__((unused)), GFC_INTEGER_4 ret_length __attribute__((unused)),
const gfc_array_char * array, const gfc_array_char * const restrict array,
const gfc_array_i16 * h, const GFC_INTEGER_16 * pwhich, const gfc_array_i16 * const restrict h,
GFC_INTEGER_4 array_length) const GFC_INTEGER_16 * const restrict pwhich,
GFC_INTEGER_4 array_length)
{ {
cshift1 (ret, array, h, pwhich, array_length); cshift1 (ret, array, h, pwhich, array_length);
} }
......
...@@ -37,8 +37,11 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,8 +37,11 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_INTEGER_4)
static void static void
cshift1 (gfc_array_char * ret, const gfc_array_char * array, cshift1 (gfc_array_char * const restrict ret,
const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich, index_type size) const gfc_array_char * const restrict array,
const gfc_array_i4 * const restrict h,
const GFC_INTEGER_4 * const restrict pwhich,
index_type size)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS]; index_type rstride[GFC_MAX_DIMENSIONS];
...@@ -194,30 +197,36 @@ cshift1 (gfc_array_char * ret, const gfc_array_char * array, ...@@ -194,30 +197,36 @@ cshift1 (gfc_array_char * ret, const gfc_array_char * array,
} }
} }
void cshift1_4 (gfc_array_char *, const gfc_array_char *, void cshift1_4 (gfc_array_char * const restrict,
const gfc_array_i4 *, const GFC_INTEGER_4 *); const gfc_array_char * const restrict,
const gfc_array_i4 * const restrict,
const GFC_INTEGER_4 * const restrict);
export_proto(cshift1_4); export_proto(cshift1_4);
void void
cshift1_4 (gfc_array_char * ret, cshift1_4 (gfc_array_char * const restrict ret,
const gfc_array_char * array, const gfc_array_char * const restrict array,
const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich) const gfc_array_i4 * const restrict h,
const GFC_INTEGER_4 * const restrict pwhich)
{ {
cshift1 (ret, array, h, pwhich, GFC_DESCRIPTOR_SIZE (array)); cshift1 (ret, array, h, pwhich, GFC_DESCRIPTOR_SIZE (array));
} }
void cshift1_4_char (gfc_array_char * ret, GFC_INTEGER_4, void cshift1_4_char (gfc_array_char * const restrict ret,
const gfc_array_char * array, GFC_INTEGER_4,
const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich, const gfc_array_char * const restrict array,
GFC_INTEGER_4); const gfc_array_i4 * const restrict h,
const GFC_INTEGER_4 * const restrict pwhich,
GFC_INTEGER_4);
export_proto(cshift1_4_char); export_proto(cshift1_4_char);
void void
cshift1_4_char (gfc_array_char * ret, cshift1_4_char (gfc_array_char * const restrict ret,
GFC_INTEGER_4 ret_length __attribute__((unused)), GFC_INTEGER_4 ret_length __attribute__((unused)),
const gfc_array_char * array, const gfc_array_char * const restrict array,
const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich, const gfc_array_i4 * const restrict h,
GFC_INTEGER_4 array_length) const GFC_INTEGER_4 * const restrict pwhich,
GFC_INTEGER_4 array_length)
{ {
cshift1 (ret, array, h, pwhich, array_length); cshift1 (ret, array, h, pwhich, array_length);
} }
......
...@@ -37,8 +37,11 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,8 +37,11 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_INTEGER_8)
static void static void
cshift1 (gfc_array_char * ret, const gfc_array_char * array, cshift1 (gfc_array_char * const restrict ret,
const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich, index_type size) const gfc_array_char * const restrict array,
const gfc_array_i8 * const restrict h,
const GFC_INTEGER_8 * const restrict pwhich,
index_type size)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS]; index_type rstride[GFC_MAX_DIMENSIONS];
...@@ -194,30 +197,36 @@ cshift1 (gfc_array_char * ret, const gfc_array_char * array, ...@@ -194,30 +197,36 @@ cshift1 (gfc_array_char * ret, const gfc_array_char * array,
} }
} }
void cshift1_8 (gfc_array_char *, const gfc_array_char *, void cshift1_8 (gfc_array_char * const restrict,
const gfc_array_i8 *, const GFC_INTEGER_8 *); const gfc_array_char * const restrict,
const gfc_array_i8 * const restrict,
const GFC_INTEGER_8 * const restrict);
export_proto(cshift1_8); export_proto(cshift1_8);
void void
cshift1_8 (gfc_array_char * ret, cshift1_8 (gfc_array_char * const restrict ret,
const gfc_array_char * array, const gfc_array_char * const restrict array,
const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich) const gfc_array_i8 * const restrict h,
const GFC_INTEGER_8 * const restrict pwhich)
{ {
cshift1 (ret, array, h, pwhich, GFC_DESCRIPTOR_SIZE (array)); cshift1 (ret, array, h, pwhich, GFC_DESCRIPTOR_SIZE (array));
} }
void cshift1_8_char (gfc_array_char * ret, GFC_INTEGER_4, void cshift1_8_char (gfc_array_char * const restrict ret,
const gfc_array_char * array, GFC_INTEGER_4,
const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich, const gfc_array_char * const restrict array,
GFC_INTEGER_4); const gfc_array_i8 * const restrict h,
const GFC_INTEGER_8 * const restrict pwhich,
GFC_INTEGER_4);
export_proto(cshift1_8_char); export_proto(cshift1_8_char);
void void
cshift1_8_char (gfc_array_char * ret, cshift1_8_char (gfc_array_char * const restrict ret,
GFC_INTEGER_4 ret_length __attribute__((unused)), GFC_INTEGER_4 ret_length __attribute__((unused)),
const gfc_array_char * array, const gfc_array_char * const restrict array,
const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich, const gfc_array_i8 * const restrict h,
GFC_INTEGER_4 array_length) const GFC_INTEGER_8 * const restrict pwhich,
GFC_INTEGER_4 array_length)
{ {
cshift1 (ret, array, h, pwhich, array_length); cshift1 (ret, array, h, pwhich, array_length);
} }
......
...@@ -38,15 +38,16 @@ Boston, MA 02110-1301, USA. */ ...@@ -38,15 +38,16 @@ Boston, MA 02110-1301, USA. */
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
extern GFC_COMPLEX_10 dot_product_c10 (gfc_array_c10 * a, gfc_array_c10 * b); extern GFC_COMPLEX_10 dot_product_c10 (gfc_array_c10 * const restrict a,
gfc_array_c10 * const restrict b);
export_proto(dot_product_c10); export_proto(dot_product_c10);
/* Both parameters will already have been converted to the result type. */ /* Both parameters will already have been converted to the result type. */
GFC_COMPLEX_10 GFC_COMPLEX_10
dot_product_c10 (gfc_array_c10 * a, gfc_array_c10 * b) dot_product_c10 (gfc_array_c10 * const restrict a, gfc_array_c10 * const restrict b)
{ {
GFC_COMPLEX_10 *pa; const GFC_COMPLEX_10 * restrict pa;
GFC_COMPLEX_10 *pb; const GFC_COMPLEX_10 * restrict pb;
GFC_COMPLEX_10 res; GFC_COMPLEX_10 res;
GFC_COMPLEX_10 conjga; GFC_COMPLEX_10 conjga;
index_type count; index_type count;
......
...@@ -38,15 +38,16 @@ Boston, MA 02110-1301, USA. */ ...@@ -38,15 +38,16 @@ Boston, MA 02110-1301, USA. */
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
extern GFC_COMPLEX_16 dot_product_c16 (gfc_array_c16 * a, gfc_array_c16 * b); extern GFC_COMPLEX_16 dot_product_c16 (gfc_array_c16 * const restrict a,
gfc_array_c16 * const restrict b);
export_proto(dot_product_c16); export_proto(dot_product_c16);
/* Both parameters will already have been converted to the result type. */ /* Both parameters will already have been converted to the result type. */
GFC_COMPLEX_16 GFC_COMPLEX_16
dot_product_c16 (gfc_array_c16 * a, gfc_array_c16 * b) dot_product_c16 (gfc_array_c16 * const restrict a, gfc_array_c16 * const restrict b)
{ {
GFC_COMPLEX_16 *pa; const GFC_COMPLEX_16 * restrict pa;
GFC_COMPLEX_16 *pb; const GFC_COMPLEX_16 * restrict pb;
GFC_COMPLEX_16 res; GFC_COMPLEX_16 res;
GFC_COMPLEX_16 conjga; GFC_COMPLEX_16 conjga;
index_type count; index_type count;
......
...@@ -38,15 +38,16 @@ Boston, MA 02110-1301, USA. */ ...@@ -38,15 +38,16 @@ Boston, MA 02110-1301, USA. */
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
extern GFC_COMPLEX_4 dot_product_c4 (gfc_array_c4 * a, gfc_array_c4 * b); extern GFC_COMPLEX_4 dot_product_c4 (gfc_array_c4 * const restrict a,
gfc_array_c4 * const restrict b);
export_proto(dot_product_c4); export_proto(dot_product_c4);
/* Both parameters will already have been converted to the result type. */ /* Both parameters will already have been converted to the result type. */
GFC_COMPLEX_4 GFC_COMPLEX_4
dot_product_c4 (gfc_array_c4 * a, gfc_array_c4 * b) dot_product_c4 (gfc_array_c4 * const restrict a, gfc_array_c4 * const restrict b)
{ {
GFC_COMPLEX_4 *pa; const GFC_COMPLEX_4 * restrict pa;
GFC_COMPLEX_4 *pb; const GFC_COMPLEX_4 * restrict pb;
GFC_COMPLEX_4 res; GFC_COMPLEX_4 res;
GFC_COMPLEX_4 conjga; GFC_COMPLEX_4 conjga;
index_type count; index_type count;
......
...@@ -38,15 +38,16 @@ Boston, MA 02110-1301, USA. */ ...@@ -38,15 +38,16 @@ Boston, MA 02110-1301, USA. */
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
extern GFC_COMPLEX_8 dot_product_c8 (gfc_array_c8 * a, gfc_array_c8 * b); extern GFC_COMPLEX_8 dot_product_c8 (gfc_array_c8 * const restrict a,
gfc_array_c8 * const restrict b);
export_proto(dot_product_c8); export_proto(dot_product_c8);
/* Both parameters will already have been converted to the result type. */ /* Both parameters will already have been converted to the result type. */
GFC_COMPLEX_8 GFC_COMPLEX_8
dot_product_c8 (gfc_array_c8 * a, gfc_array_c8 * b) dot_product_c8 (gfc_array_c8 * const restrict a, gfc_array_c8 * const restrict b)
{ {
GFC_COMPLEX_8 *pa; const GFC_COMPLEX_8 * restrict pa;
GFC_COMPLEX_8 *pb; const GFC_COMPLEX_8 * restrict pb;
GFC_COMPLEX_8 res; GFC_COMPLEX_8 res;
GFC_COMPLEX_8 conjga; GFC_COMPLEX_8 conjga;
index_type count; index_type count;
......
...@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA. */
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
extern GFC_INTEGER_16 dot_product_i16 (gfc_array_i16 * a, gfc_array_i16 * b); extern GFC_INTEGER_16 dot_product_i16 (gfc_array_i16 * const restrict a,
gfc_array_i16 * const restrict b);
export_proto(dot_product_i16); export_proto(dot_product_i16);
/* Both parameters will already have been converted to the result type. */ /* Both parameters will already have been converted to the result type. */
GFC_INTEGER_16 GFC_INTEGER_16
dot_product_i16 (gfc_array_i16 * a, gfc_array_i16 * b) dot_product_i16 (gfc_array_i16 * const restrict a, gfc_array_i16 * const restrict b)
{ {
GFC_INTEGER_16 *pa; const GFC_INTEGER_16 * restrict pa;
GFC_INTEGER_16 *pb; const GFC_INTEGER_16 * restrict pb;
GFC_INTEGER_16 res; GFC_INTEGER_16 res;
index_type count; index_type count;
index_type astride; index_type astride;
......
...@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA. */
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
extern GFC_INTEGER_4 dot_product_i4 (gfc_array_i4 * a, gfc_array_i4 * b); extern GFC_INTEGER_4 dot_product_i4 (gfc_array_i4 * const restrict a,
gfc_array_i4 * const restrict b);
export_proto(dot_product_i4); export_proto(dot_product_i4);
/* Both parameters will already have been converted to the result type. */ /* Both parameters will already have been converted to the result type. */
GFC_INTEGER_4 GFC_INTEGER_4
dot_product_i4 (gfc_array_i4 * a, gfc_array_i4 * b) dot_product_i4 (gfc_array_i4 * const restrict a, gfc_array_i4 * const restrict b)
{ {
GFC_INTEGER_4 *pa; const GFC_INTEGER_4 * restrict pa;
GFC_INTEGER_4 *pb; const GFC_INTEGER_4 * restrict pb;
GFC_INTEGER_4 res; GFC_INTEGER_4 res;
index_type count; index_type count;
index_type astride; index_type astride;
......
...@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA. */
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
extern GFC_INTEGER_8 dot_product_i8 (gfc_array_i8 * a, gfc_array_i8 * b); extern GFC_INTEGER_8 dot_product_i8 (gfc_array_i8 * const restrict a,
gfc_array_i8 * const restrict b);
export_proto(dot_product_i8); export_proto(dot_product_i8);
/* Both parameters will already have been converted to the result type. */ /* Both parameters will already have been converted to the result type. */
GFC_INTEGER_8 GFC_INTEGER_8
dot_product_i8 (gfc_array_i8 * a, gfc_array_i8 * b) dot_product_i8 (gfc_array_i8 * const restrict a, gfc_array_i8 * const restrict b)
{ {
GFC_INTEGER_8 *pa; const GFC_INTEGER_8 * restrict pa;
GFC_INTEGER_8 *pb; const GFC_INTEGER_8 * restrict pb;
GFC_INTEGER_8 res; GFC_INTEGER_8 res;
index_type count; index_type count;
index_type astride; index_type astride;
......
...@@ -35,14 +35,16 @@ Boston, MA 02110-1301, USA. */ ...@@ -35,14 +35,16 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_LOGICAL_16) #if defined (HAVE_GFC_LOGICAL_16)
extern GFC_LOGICAL_16 dot_product_l16 (gfc_array_l4 *, gfc_array_l4 *); extern GFC_LOGICAL_16 dot_product_l16 (gfc_array_l4 * const restrict,
gfc_array_l4 * const restrict);
export_proto(dot_product_l16); export_proto(dot_product_l16);
GFC_LOGICAL_16 GFC_LOGICAL_16
dot_product_l16 (gfc_array_l4 * a, gfc_array_l4 * b) dot_product_l16 (gfc_array_l4 * const restrict a,
gfc_array_l4 * const restrict b)
{ {
GFC_LOGICAL_4 *pa; const GFC_LOGICAL_4 * restrict pa;
GFC_LOGICAL_4 *pb; const GFC_LOGICAL_4 * restrict pb;
index_type count; index_type count;
index_type astride; index_type astride;
index_type bstride; index_type bstride;
......
...@@ -35,14 +35,16 @@ Boston, MA 02110-1301, USA. */ ...@@ -35,14 +35,16 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_LOGICAL_4) #if defined (HAVE_GFC_LOGICAL_4)
extern GFC_LOGICAL_4 dot_product_l4 (gfc_array_l4 *, gfc_array_l4 *); extern GFC_LOGICAL_4 dot_product_l4 (gfc_array_l4 * const restrict,
gfc_array_l4 * const restrict);
export_proto(dot_product_l4); export_proto(dot_product_l4);
GFC_LOGICAL_4 GFC_LOGICAL_4
dot_product_l4 (gfc_array_l4 * a, gfc_array_l4 * b) dot_product_l4 (gfc_array_l4 * const restrict a,
gfc_array_l4 * const restrict b)
{ {
GFC_LOGICAL_4 *pa; const GFC_LOGICAL_4 * restrict pa;
GFC_LOGICAL_4 *pb; const GFC_LOGICAL_4 * restrict pb;
index_type count; index_type count;
index_type astride; index_type astride;
index_type bstride; index_type bstride;
......
...@@ -35,14 +35,16 @@ Boston, MA 02110-1301, USA. */ ...@@ -35,14 +35,16 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_LOGICAL_8) #if defined (HAVE_GFC_LOGICAL_8)
extern GFC_LOGICAL_8 dot_product_l8 (gfc_array_l4 *, gfc_array_l4 *); extern GFC_LOGICAL_8 dot_product_l8 (gfc_array_l4 * const restrict,
gfc_array_l4 * const restrict);
export_proto(dot_product_l8); export_proto(dot_product_l8);
GFC_LOGICAL_8 GFC_LOGICAL_8
dot_product_l8 (gfc_array_l4 * a, gfc_array_l4 * b) dot_product_l8 (gfc_array_l4 * const restrict a,
gfc_array_l4 * const restrict b)
{ {
GFC_LOGICAL_4 *pa; const GFC_LOGICAL_4 * restrict pa;
GFC_LOGICAL_4 *pb; const GFC_LOGICAL_4 * restrict pb;
index_type count; index_type count;
index_type astride; index_type astride;
index_type bstride; index_type bstride;
......
...@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA. */
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
extern GFC_REAL_10 dot_product_r10 (gfc_array_r10 * a, gfc_array_r10 * b); extern GFC_REAL_10 dot_product_r10 (gfc_array_r10 * const restrict a,
gfc_array_r10 * const restrict b);
export_proto(dot_product_r10); export_proto(dot_product_r10);
/* Both parameters will already have been converted to the result type. */ /* Both parameters will already have been converted to the result type. */
GFC_REAL_10 GFC_REAL_10
dot_product_r10 (gfc_array_r10 * a, gfc_array_r10 * b) dot_product_r10 (gfc_array_r10 * const restrict a, gfc_array_r10 * const restrict b)
{ {
GFC_REAL_10 *pa; const GFC_REAL_10 * restrict pa;
GFC_REAL_10 *pb; const GFC_REAL_10 * restrict pb;
GFC_REAL_10 res; GFC_REAL_10 res;
index_type count; index_type count;
index_type astride; index_type astride;
......
...@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA. */
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
extern GFC_REAL_16 dot_product_r16 (gfc_array_r16 * a, gfc_array_r16 * b); extern GFC_REAL_16 dot_product_r16 (gfc_array_r16 * const restrict a,
gfc_array_r16 * const restrict b);
export_proto(dot_product_r16); export_proto(dot_product_r16);
/* Both parameters will already have been converted to the result type. */ /* Both parameters will already have been converted to the result type. */
GFC_REAL_16 GFC_REAL_16
dot_product_r16 (gfc_array_r16 * a, gfc_array_r16 * b) dot_product_r16 (gfc_array_r16 * const restrict a, gfc_array_r16 * const restrict b)
{ {
GFC_REAL_16 *pa; const GFC_REAL_16 * restrict pa;
GFC_REAL_16 *pb; const GFC_REAL_16 * restrict pb;
GFC_REAL_16 res; GFC_REAL_16 res;
index_type count; index_type count;
index_type astride; index_type astride;
......
...@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA. */
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
extern GFC_REAL_4 dot_product_r4 (gfc_array_r4 * a, gfc_array_r4 * b); extern GFC_REAL_4 dot_product_r4 (gfc_array_r4 * const restrict a,
gfc_array_r4 * const restrict b);
export_proto(dot_product_r4); export_proto(dot_product_r4);
/* Both parameters will already have been converted to the result type. */ /* Both parameters will already have been converted to the result type. */
GFC_REAL_4 GFC_REAL_4
dot_product_r4 (gfc_array_r4 * a, gfc_array_r4 * b) dot_product_r4 (gfc_array_r4 * const restrict a, gfc_array_r4 * const restrict b)
{ {
GFC_REAL_4 *pa; const GFC_REAL_4 * restrict pa;
GFC_REAL_4 *pb; const GFC_REAL_4 * restrict pb;
GFC_REAL_4 res; GFC_REAL_4 res;
index_type count; index_type count;
index_type astride; index_type astride;
......
...@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA. */
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
extern GFC_REAL_8 dot_product_r8 (gfc_array_r8 * a, gfc_array_r8 * b); extern GFC_REAL_8 dot_product_r8 (gfc_array_r8 * const restrict a,
gfc_array_r8 * const restrict b);
export_proto(dot_product_r8); export_proto(dot_product_r8);
/* Both parameters will already have been converted to the result type. */ /* Both parameters will already have been converted to the result type. */
GFC_REAL_8 GFC_REAL_8
dot_product_r8 (gfc_array_r8 * a, gfc_array_r8 * b) dot_product_r8 (gfc_array_r8 * const restrict a, gfc_array_r8 * const restrict b)
{ {
GFC_REAL_8 *pa; const GFC_REAL_8 * restrict pa;
GFC_REAL_8 *pb; const GFC_REAL_8 * restrict pb;
GFC_REAL_8 res; GFC_REAL_8 res;
index_type count; index_type count;
index_type astride; index_type astride;
......
...@@ -37,9 +37,12 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,9 +37,12 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_INTEGER_16)
static void static void
eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i16 *h, eoshift1 (gfc_array_char * const restrict ret,
const char *pbound, const GFC_INTEGER_16 *pwhich, index_type size, const gfc_array_char * const restrict array,
char filler) const gfc_array_i16 * const restrict h,
const char * const restrict pbound,
const GFC_INTEGER_16 * const restrict pwhich,
index_type size, char filler)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS]; index_type rstride[GFC_MAX_DIMENSIONS];
...@@ -218,32 +221,40 @@ eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i16 ...@@ -218,32 +221,40 @@ eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i16
} }
} }
void eoshift1_16 (gfc_array_char *, const gfc_array_char *, void eoshift1_16 (gfc_array_char * const restrict,
const gfc_array_i16 *, const char *, const GFC_INTEGER_16 *); const gfc_array_char * const restrict,
const gfc_array_i16 * const restrict, const char * const restrict,
const GFC_INTEGER_16 * const restrict);
export_proto(eoshift1_16); export_proto(eoshift1_16);
void void
eoshift1_16 (gfc_array_char *ret, const gfc_array_char *array, eoshift1_16 (gfc_array_char * const restrict ret,
const gfc_array_i16 *h, const char *pbound, const gfc_array_char * const restrict array,
const GFC_INTEGER_16 *pwhich) const gfc_array_i16 * const restrict h,
const char * const restrict pbound,
const GFC_INTEGER_16 * const restrict pwhich)
{ {
eoshift1 (ret, array, h, pbound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0); eoshift1 (ret, array, h, pbound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
} }
void eoshift1_16_char (gfc_array_char *, GFC_INTEGER_4, void eoshift1_16_char (gfc_array_char * const restrict,
const gfc_array_char *, const gfc_array_i16 *, GFC_INTEGER_4,
const char *, const GFC_INTEGER_16 *, const gfc_array_char * const restrict,
GFC_INTEGER_4, GFC_INTEGER_4); const gfc_array_i16 * const restrict,
const char * const restrict,
const GFC_INTEGER_16 * const restrict,
GFC_INTEGER_4, GFC_INTEGER_4);
export_proto(eoshift1_16_char); export_proto(eoshift1_16_char);
void void
eoshift1_16_char (gfc_array_char *ret, eoshift1_16_char (gfc_array_char * const restrict ret,
GFC_INTEGER_4 ret_length __attribute__((unused)), GFC_INTEGER_4 ret_length __attribute__((unused)),
const gfc_array_char *array, const gfc_array_i16 *h, const gfc_array_char * const restrict array,
const char *pbound, const GFC_INTEGER_16 *pwhich, const gfc_array_i16 * const restrict h,
GFC_INTEGER_4 array_length, const char * const restrict pbound,
GFC_INTEGER_4 bound_length const GFC_INTEGER_16 * const restrict pwhich,
__attribute__((unused))) GFC_INTEGER_4 array_length,
GFC_INTEGER_4 bound_length __attribute__((unused)))
{ {
eoshift1 (ret, array, h, pbound, pwhich, array_length, ' '); eoshift1 (ret, array, h, pbound, pwhich, array_length, ' ');
} }
......
...@@ -37,9 +37,12 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,9 +37,12 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_INTEGER_4)
static void static void
eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i4 *h, eoshift1 (gfc_array_char * const restrict ret,
const char *pbound, const GFC_INTEGER_4 *pwhich, index_type size, const gfc_array_char * const restrict array,
char filler) const gfc_array_i4 * const restrict h,
const char * const restrict pbound,
const GFC_INTEGER_4 * const restrict pwhich,
index_type size, char filler)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS]; index_type rstride[GFC_MAX_DIMENSIONS];
...@@ -218,32 +221,40 @@ eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i4 * ...@@ -218,32 +221,40 @@ eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i4 *
} }
} }
void eoshift1_4 (gfc_array_char *, const gfc_array_char *, void eoshift1_4 (gfc_array_char * const restrict,
const gfc_array_i4 *, const char *, const GFC_INTEGER_4 *); const gfc_array_char * const restrict,
const gfc_array_i4 * const restrict, const char * const restrict,
const GFC_INTEGER_4 * const restrict);
export_proto(eoshift1_4); export_proto(eoshift1_4);
void void
eoshift1_4 (gfc_array_char *ret, const gfc_array_char *array, eoshift1_4 (gfc_array_char * const restrict ret,
const gfc_array_i4 *h, const char *pbound, const gfc_array_char * const restrict array,
const GFC_INTEGER_4 *pwhich) const gfc_array_i4 * const restrict h,
const char * const restrict pbound,
const GFC_INTEGER_4 * const restrict pwhich)
{ {
eoshift1 (ret, array, h, pbound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0); eoshift1 (ret, array, h, pbound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
} }
void eoshift1_4_char (gfc_array_char *, GFC_INTEGER_4, void eoshift1_4_char (gfc_array_char * const restrict,
const gfc_array_char *, const gfc_array_i4 *, GFC_INTEGER_4,
const char *, const GFC_INTEGER_4 *, const gfc_array_char * const restrict,
GFC_INTEGER_4, GFC_INTEGER_4); const gfc_array_i4 * const restrict,
const char * const restrict,
const GFC_INTEGER_4 * const restrict,
GFC_INTEGER_4, GFC_INTEGER_4);
export_proto(eoshift1_4_char); export_proto(eoshift1_4_char);
void void
eoshift1_4_char (gfc_array_char *ret, eoshift1_4_char (gfc_array_char * const restrict ret,
GFC_INTEGER_4 ret_length __attribute__((unused)), GFC_INTEGER_4 ret_length __attribute__((unused)),
const gfc_array_char *array, const gfc_array_i4 *h, const gfc_array_char * const restrict array,
const char *pbound, const GFC_INTEGER_4 *pwhich, const gfc_array_i4 * const restrict h,
GFC_INTEGER_4 array_length, const char * const restrict pbound,
GFC_INTEGER_4 bound_length const GFC_INTEGER_4 * const restrict pwhich,
__attribute__((unused))) GFC_INTEGER_4 array_length,
GFC_INTEGER_4 bound_length __attribute__((unused)))
{ {
eoshift1 (ret, array, h, pbound, pwhich, array_length, ' '); eoshift1 (ret, array, h, pbound, pwhich, array_length, ' ');
} }
......
...@@ -37,9 +37,12 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,9 +37,12 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_INTEGER_8)
static void static void
eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i8 *h, eoshift1 (gfc_array_char * const restrict ret,
const char *pbound, const GFC_INTEGER_8 *pwhich, index_type size, const gfc_array_char * const restrict array,
char filler) const gfc_array_i8 * const restrict h,
const char * const restrict pbound,
const GFC_INTEGER_8 * const restrict pwhich,
index_type size, char filler)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS]; index_type rstride[GFC_MAX_DIMENSIONS];
...@@ -218,32 +221,40 @@ eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i8 * ...@@ -218,32 +221,40 @@ eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i8 *
} }
} }
void eoshift1_8 (gfc_array_char *, const gfc_array_char *, void eoshift1_8 (gfc_array_char * const restrict,
const gfc_array_i8 *, const char *, const GFC_INTEGER_8 *); const gfc_array_char * const restrict,
const gfc_array_i8 * const restrict, const char * const restrict,
const GFC_INTEGER_8 * const restrict);
export_proto(eoshift1_8); export_proto(eoshift1_8);
void void
eoshift1_8 (gfc_array_char *ret, const gfc_array_char *array, eoshift1_8 (gfc_array_char * const restrict ret,
const gfc_array_i8 *h, const char *pbound, const gfc_array_char * const restrict array,
const GFC_INTEGER_8 *pwhich) const gfc_array_i8 * const restrict h,
const char * const restrict pbound,
const GFC_INTEGER_8 * const restrict pwhich)
{ {
eoshift1 (ret, array, h, pbound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0); eoshift1 (ret, array, h, pbound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
} }
void eoshift1_8_char (gfc_array_char *, GFC_INTEGER_4, void eoshift1_8_char (gfc_array_char * const restrict,
const gfc_array_char *, const gfc_array_i8 *, GFC_INTEGER_4,
const char *, const GFC_INTEGER_8 *, const gfc_array_char * const restrict,
GFC_INTEGER_4, GFC_INTEGER_4); const gfc_array_i8 * const restrict,
const char * const restrict,
const GFC_INTEGER_8 * const restrict,
GFC_INTEGER_4, GFC_INTEGER_4);
export_proto(eoshift1_8_char); export_proto(eoshift1_8_char);
void void
eoshift1_8_char (gfc_array_char *ret, eoshift1_8_char (gfc_array_char * const restrict ret,
GFC_INTEGER_4 ret_length __attribute__((unused)), GFC_INTEGER_4 ret_length __attribute__((unused)),
const gfc_array_char *array, const gfc_array_i8 *h, const gfc_array_char * const restrict array,
const char *pbound, const GFC_INTEGER_8 *pwhich, const gfc_array_i8 * const restrict h,
GFC_INTEGER_4 array_length, const char * const restrict pbound,
GFC_INTEGER_4 bound_length const GFC_INTEGER_8 * const restrict pwhich,
__attribute__((unused))) GFC_INTEGER_4 array_length,
GFC_INTEGER_4 bound_length __attribute__((unused)))
{ {
eoshift1 (ret, array, h, pbound, pwhich, array_length, ' '); eoshift1 (ret, array, h, pbound, pwhich, array_length, ' ');
} }
......
...@@ -37,9 +37,12 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,9 +37,12 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_INTEGER_16)
static void static void
eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i16 *h, eoshift3 (gfc_array_char * const restrict ret,
const gfc_array_char *bound, const GFC_INTEGER_16 *pwhich, const gfc_array_char * const restrict array,
index_type size, char filler) const gfc_array_i16 * const restrict h,
const gfc_array_char * const restrict bound,
const GFC_INTEGER_16 * const restrict pwhich,
index_type size, char filler)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS]; index_type rstride[GFC_MAX_DIMENSIONS];
...@@ -236,36 +239,41 @@ eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i16 ...@@ -236,36 +239,41 @@ eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i16
} }
} }
extern void eoshift3_16 (gfc_array_char *, const gfc_array_char *, extern void eoshift3_16 (gfc_array_char * const restrict,
const gfc_array_i16 *, const gfc_array_char *, const gfc_array_char * const restrict,
const GFC_INTEGER_16 *); const gfc_array_i16 * const restrict,
const gfc_array_char * const restrict,
const GFC_INTEGER_16 *);
export_proto(eoshift3_16); export_proto(eoshift3_16);
void void
eoshift3_16 (gfc_array_char *ret, const gfc_array_char *array, eoshift3_16 (gfc_array_char * const restrict ret,
const gfc_array_i16 *h, const gfc_array_char *bound, const gfc_array_char * const restrict array,
const GFC_INTEGER_16 *pwhich) const gfc_array_i16 * const restrict h,
const gfc_array_char * const restrict bound,
const GFC_INTEGER_16 * const restrict pwhich)
{ {
eoshift3 (ret, array, h, bound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0); eoshift3 (ret, array, h, bound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
} }
extern void eoshift3_16_char (gfc_array_char *, GFC_INTEGER_4, extern void eoshift3_16_char (gfc_array_char * const restrict,
const gfc_array_char *, GFC_INTEGER_4,
const gfc_array_i16 *, const gfc_array_char * const restrict,
const gfc_array_char *, const gfc_array_i16 * const restrict,
const GFC_INTEGER_16 *, GFC_INTEGER_4, const gfc_array_char * const restrict,
GFC_INTEGER_4); const GFC_INTEGER_16 * const restrict,
GFC_INTEGER_4, GFC_INTEGER_4);
export_proto(eoshift3_16_char); export_proto(eoshift3_16_char);
void void
eoshift3_16_char (gfc_array_char *ret, eoshift3_16_char (gfc_array_char * const restrict ret,
GFC_INTEGER_4 ret_length __attribute__((unused)), GFC_INTEGER_4 ret_length __attribute__((unused)),
const gfc_array_char *array, const gfc_array_i16 *h, const gfc_array_char * const restrict array,
const gfc_array_char *bound, const gfc_array_i16 * const restrict h,
const GFC_INTEGER_16 *pwhich, const gfc_array_char * const restrict bound,
GFC_INTEGER_4 array_length, const GFC_INTEGER_16 * const restrict pwhich,
GFC_INTEGER_4 bound_length GFC_INTEGER_4 array_length,
__attribute__((unused))) GFC_INTEGER_4 bound_length __attribute__((unused)))
{ {
eoshift3 (ret, array, h, bound, pwhich, array_length, ' '); eoshift3 (ret, array, h, bound, pwhich, array_length, ' ');
} }
......
...@@ -37,9 +37,12 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,9 +37,12 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_INTEGER_4)
static void static void
eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i4 *h, eoshift3 (gfc_array_char * const restrict ret,
const gfc_array_char *bound, const GFC_INTEGER_4 *pwhich, const gfc_array_char * const restrict array,
index_type size, char filler) const gfc_array_i4 * const restrict h,
const gfc_array_char * const restrict bound,
const GFC_INTEGER_4 * const restrict pwhich,
index_type size, char filler)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS]; index_type rstride[GFC_MAX_DIMENSIONS];
...@@ -236,36 +239,41 @@ eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i4 * ...@@ -236,36 +239,41 @@ eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i4 *
} }
} }
extern void eoshift3_4 (gfc_array_char *, const gfc_array_char *, extern void eoshift3_4 (gfc_array_char * const restrict,
const gfc_array_i4 *, const gfc_array_char *, const gfc_array_char * const restrict,
const GFC_INTEGER_4 *); const gfc_array_i4 * const restrict,
const gfc_array_char * const restrict,
const GFC_INTEGER_4 *);
export_proto(eoshift3_4); export_proto(eoshift3_4);
void void
eoshift3_4 (gfc_array_char *ret, const gfc_array_char *array, eoshift3_4 (gfc_array_char * const restrict ret,
const gfc_array_i4 *h, const gfc_array_char *bound, const gfc_array_char * const restrict array,
const GFC_INTEGER_4 *pwhich) const gfc_array_i4 * const restrict h,
const gfc_array_char * const restrict bound,
const GFC_INTEGER_4 * const restrict pwhich)
{ {
eoshift3 (ret, array, h, bound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0); eoshift3 (ret, array, h, bound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
} }
extern void eoshift3_4_char (gfc_array_char *, GFC_INTEGER_4, extern void eoshift3_4_char (gfc_array_char * const restrict,
const gfc_array_char *, GFC_INTEGER_4,
const gfc_array_i4 *, const gfc_array_char * const restrict,
const gfc_array_char *, const gfc_array_i4 * const restrict,
const GFC_INTEGER_4 *, GFC_INTEGER_4, const gfc_array_char * const restrict,
GFC_INTEGER_4); const GFC_INTEGER_4 * const restrict,
GFC_INTEGER_4, GFC_INTEGER_4);
export_proto(eoshift3_4_char); export_proto(eoshift3_4_char);
void void
eoshift3_4_char (gfc_array_char *ret, eoshift3_4_char (gfc_array_char * const restrict ret,
GFC_INTEGER_4 ret_length __attribute__((unused)), GFC_INTEGER_4 ret_length __attribute__((unused)),
const gfc_array_char *array, const gfc_array_i4 *h, const gfc_array_char * const restrict array,
const gfc_array_char *bound, const gfc_array_i4 * const restrict h,
const GFC_INTEGER_4 *pwhich, const gfc_array_char * const restrict bound,
GFC_INTEGER_4 array_length, const GFC_INTEGER_4 * const restrict pwhich,
GFC_INTEGER_4 bound_length GFC_INTEGER_4 array_length,
__attribute__((unused))) GFC_INTEGER_4 bound_length __attribute__((unused)))
{ {
eoshift3 (ret, array, h, bound, pwhich, array_length, ' '); eoshift3 (ret, array, h, bound, pwhich, array_length, ' ');
} }
......
...@@ -37,9 +37,12 @@ Boston, MA 02110-1301, USA. */ ...@@ -37,9 +37,12 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_INTEGER_8)
static void static void
eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i8 *h, eoshift3 (gfc_array_char * const restrict ret,
const gfc_array_char *bound, const GFC_INTEGER_8 *pwhich, const gfc_array_char * const restrict array,
index_type size, char filler) const gfc_array_i8 * const restrict h,
const gfc_array_char * const restrict bound,
const GFC_INTEGER_8 * const restrict pwhich,
index_type size, char filler)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS]; index_type rstride[GFC_MAX_DIMENSIONS];
...@@ -236,36 +239,41 @@ eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i8 * ...@@ -236,36 +239,41 @@ eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i8 *
} }
} }
extern void eoshift3_8 (gfc_array_char *, const gfc_array_char *, extern void eoshift3_8 (gfc_array_char * const restrict,
const gfc_array_i8 *, const gfc_array_char *, const gfc_array_char * const restrict,
const GFC_INTEGER_8 *); const gfc_array_i8 * const restrict,
const gfc_array_char * const restrict,
const GFC_INTEGER_8 *);
export_proto(eoshift3_8); export_proto(eoshift3_8);
void void
eoshift3_8 (gfc_array_char *ret, const gfc_array_char *array, eoshift3_8 (gfc_array_char * const restrict ret,
const gfc_array_i8 *h, const gfc_array_char *bound, const gfc_array_char * const restrict array,
const GFC_INTEGER_8 *pwhich) const gfc_array_i8 * const restrict h,
const gfc_array_char * const restrict bound,
const GFC_INTEGER_8 * const restrict pwhich)
{ {
eoshift3 (ret, array, h, bound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0); eoshift3 (ret, array, h, bound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
} }
extern void eoshift3_8_char (gfc_array_char *, GFC_INTEGER_4, extern void eoshift3_8_char (gfc_array_char * const restrict,
const gfc_array_char *, GFC_INTEGER_4,
const gfc_array_i8 *, const gfc_array_char * const restrict,
const gfc_array_char *, const gfc_array_i8 * const restrict,
const GFC_INTEGER_8 *, GFC_INTEGER_4, const gfc_array_char * const restrict,
GFC_INTEGER_4); const GFC_INTEGER_8 * const restrict,
GFC_INTEGER_4, GFC_INTEGER_4);
export_proto(eoshift3_8_char); export_proto(eoshift3_8_char);
void void
eoshift3_8_char (gfc_array_char *ret, eoshift3_8_char (gfc_array_char * const restrict ret,
GFC_INTEGER_4 ret_length __attribute__((unused)), GFC_INTEGER_4 ret_length __attribute__((unused)),
const gfc_array_char *array, const gfc_array_i8 *h, const gfc_array_char * const restrict array,
const gfc_array_char *bound, const gfc_array_i8 * const restrict h,
const GFC_INTEGER_8 *pwhich, const gfc_array_char * const restrict bound,
GFC_INTEGER_4 array_length, const GFC_INTEGER_8 * const restrict pwhich,
GFC_INTEGER_4 bound_length GFC_INTEGER_4 array_length,
__attribute__((unused))) GFC_INTEGER_4 bound_length __attribute__((unused)))
{ {
eoshift3 (ret, array, h, bound, pwhich, array_length, ' '); eoshift3 (ret, array, h, bound, pwhich, array_length, ' ');
} }
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
extern void maxloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array); extern void maxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
gfc_array_i16 * const restrict array);
export_proto(maxloc0_16_i16); export_proto(maxloc0_16_i16);
void void
maxloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array) maxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
gfc_array_i16 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_16 *base; const GFC_INTEGER_16 *base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array) ...@@ -154,12 +156,14 @@ maxloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array)
} }
extern void mmaxloc0_16_i16 (gfc_array_i16 *, gfc_array_i16 *, gfc_array_l4 *); extern void mmaxloc0_16_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_16_i16); export_proto(mmaxloc0_16_i16);
void void
mmaxloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array, mmaxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_i16 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 *dest;
GFC_INTEGER_16 *base; const GFC_INTEGER_16 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_16)
extern void maxloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array); extern void maxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
gfc_array_i4 * const restrict array);
export_proto(maxloc0_16_i4); export_proto(maxloc0_16_i4);
void void
maxloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array) maxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
gfc_array_i4 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_4 *base; const GFC_INTEGER_4 *base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array) ...@@ -154,12 +156,14 @@ maxloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array)
} }
extern void mmaxloc0_16_i4 (gfc_array_i16 *, gfc_array_i4 *, gfc_array_l4 *); extern void mmaxloc0_16_i4 (gfc_array_i16 * const restrict,
gfc_array_i4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_16_i4); export_proto(mmaxloc0_16_i4);
void void
mmaxloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array, mmaxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_i4 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 *dest;
GFC_INTEGER_4 *base; const GFC_INTEGER_4 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_16)
extern void maxloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array); extern void maxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
gfc_array_i8 * const restrict array);
export_proto(maxloc0_16_i8); export_proto(maxloc0_16_i8);
void void
maxloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array) maxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
gfc_array_i8 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_8 *base; const GFC_INTEGER_8 *base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array) ...@@ -154,12 +156,14 @@ maxloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array)
} }
extern void mmaxloc0_16_i8 (gfc_array_i16 *, gfc_array_i8 *, gfc_array_l4 *); extern void mmaxloc0_16_i8 (gfc_array_i16 * const restrict,
gfc_array_i8 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_16_i8); export_proto(mmaxloc0_16_i8);
void void
mmaxloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array, mmaxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_i8 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 *dest;
GFC_INTEGER_8 *base; const GFC_INTEGER_8 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16)
extern void maxloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array); extern void maxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
gfc_array_r10 * const restrict array);
export_proto(maxloc0_16_r10); export_proto(maxloc0_16_r10);
void void
maxloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array) maxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
gfc_array_r10 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_REAL_10 *base; const GFC_REAL_10 *base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array) ...@@ -154,12 +156,14 @@ maxloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array)
} }
extern void mmaxloc0_16_r10 (gfc_array_i16 *, gfc_array_r10 *, gfc_array_l4 *); extern void mmaxloc0_16_r10 (gfc_array_i16 * const restrict,
gfc_array_r10 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_16_r10); export_proto(mmaxloc0_16_r10);
void void
mmaxloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array, mmaxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_r10 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 *dest;
GFC_REAL_10 *base; const GFC_REAL_10 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16)
extern void maxloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array); extern void maxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
gfc_array_r16 * const restrict array);
export_proto(maxloc0_16_r16); export_proto(maxloc0_16_r16);
void void
maxloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array) maxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
gfc_array_r16 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_REAL_16 *base; const GFC_REAL_16 *base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array) ...@@ -154,12 +156,14 @@ maxloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array)
} }
extern void mmaxloc0_16_r16 (gfc_array_i16 *, gfc_array_r16 *, gfc_array_l4 *); extern void mmaxloc0_16_r16 (gfc_array_i16 * const restrict,
gfc_array_r16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_16_r16); export_proto(mmaxloc0_16_r16);
void void
mmaxloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array, mmaxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_r16 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 *dest;
GFC_REAL_16 *base; const GFC_REAL_16 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16)
extern void maxloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array); extern void maxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
gfc_array_r4 * const restrict array);
export_proto(maxloc0_16_r4); export_proto(maxloc0_16_r4);
void void
maxloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array) maxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
gfc_array_r4 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_REAL_4 *base; const GFC_REAL_4 *base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array) ...@@ -154,12 +156,14 @@ maxloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array)
} }
extern void mmaxloc0_16_r4 (gfc_array_i16 *, gfc_array_r4 *, gfc_array_l4 *); extern void mmaxloc0_16_r4 (gfc_array_i16 * const restrict,
gfc_array_r4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_16_r4); export_proto(mmaxloc0_16_r4);
void void
mmaxloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array, mmaxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_r4 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 *dest;
GFC_REAL_4 *base; const GFC_REAL_4 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16)
extern void maxloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array); extern void maxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
gfc_array_r8 * const restrict array);
export_proto(maxloc0_16_r8); export_proto(maxloc0_16_r8);
void void
maxloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array) maxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
gfc_array_r8 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_REAL_8 *base; const GFC_REAL_8 *base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array) ...@@ -154,12 +156,14 @@ maxloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array)
} }
extern void mmaxloc0_16_r8 (gfc_array_i16 *, gfc_array_r8 *, gfc_array_l4 *); extern void mmaxloc0_16_r8 (gfc_array_i16 * const restrict,
gfc_array_r8 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_16_r8); export_proto(mmaxloc0_16_r8);
void void
mmaxloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array, mmaxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_r8 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 *dest;
GFC_REAL_8 *base; const GFC_REAL_8 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_4)
extern void maxloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array); extern void maxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
gfc_array_i16 * const restrict array);
export_proto(maxloc0_4_i16); export_proto(maxloc0_4_i16);
void void
maxloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array) maxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
gfc_array_i16 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_16 *base; const GFC_INTEGER_16 *base;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array) ...@@ -154,12 +156,14 @@ maxloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array)
} }
extern void mmaxloc0_4_i16 (gfc_array_i4 *, gfc_array_i16 *, gfc_array_l4 *); extern void mmaxloc0_4_i16 (gfc_array_i4 * const restrict,
gfc_array_i16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_4_i16); export_proto(mmaxloc0_4_i16);
void void
mmaxloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array, mmaxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_i16 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 *dest;
GFC_INTEGER_16 *base; const GFC_INTEGER_16 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
extern void maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array); extern void maxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
gfc_array_i4 * const restrict array);
export_proto(maxloc0_4_i4); export_proto(maxloc0_4_i4);
void void
maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array) maxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
gfc_array_i4 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_4 *base; const GFC_INTEGER_4 *base;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array) ...@@ -154,12 +156,14 @@ maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array)
} }
extern void mmaxloc0_4_i4 (gfc_array_i4 *, gfc_array_i4 *, gfc_array_l4 *); extern void mmaxloc0_4_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_4_i4); export_proto(mmaxloc0_4_i4);
void void
mmaxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, mmaxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_i4 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 *dest;
GFC_INTEGER_4 *base; const GFC_INTEGER_4 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_4)
extern void maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array); extern void maxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
gfc_array_i8 * const restrict array);
export_proto(maxloc0_4_i8); export_proto(maxloc0_4_i8);
void void
maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array) maxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
gfc_array_i8 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_8 *base; const GFC_INTEGER_8 *base;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array) ...@@ -154,12 +156,14 @@ maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array)
} }
extern void mmaxloc0_4_i8 (gfc_array_i4 *, gfc_array_i8 *, gfc_array_l4 *); extern void mmaxloc0_4_i8 (gfc_array_i4 * const restrict,
gfc_array_i8 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_4_i8); export_proto(mmaxloc0_4_i8);
void void
mmaxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array, mmaxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_i8 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 *dest;
GFC_INTEGER_8 *base; const GFC_INTEGER_8 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4)
extern void maxloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array); extern void maxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
gfc_array_r10 * const restrict array);
export_proto(maxloc0_4_r10); export_proto(maxloc0_4_r10);
void void
maxloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array) maxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
gfc_array_r10 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_REAL_10 *base; const GFC_REAL_10 *base;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array) ...@@ -154,12 +156,14 @@ maxloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array)
} }
extern void mmaxloc0_4_r10 (gfc_array_i4 *, gfc_array_r10 *, gfc_array_l4 *); extern void mmaxloc0_4_r10 (gfc_array_i4 * const restrict,
gfc_array_r10 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_4_r10); export_proto(mmaxloc0_4_r10);
void void
mmaxloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array, mmaxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_r10 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 *dest;
GFC_REAL_10 *base; const GFC_REAL_10 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4)
extern void maxloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array); extern void maxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
gfc_array_r16 * const restrict array);
export_proto(maxloc0_4_r16); export_proto(maxloc0_4_r16);
void void
maxloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array) maxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
gfc_array_r16 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_REAL_16 *base; const GFC_REAL_16 *base;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array) ...@@ -154,12 +156,14 @@ maxloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array)
} }
extern void mmaxloc0_4_r16 (gfc_array_i4 *, gfc_array_r16 *, gfc_array_l4 *); extern void mmaxloc0_4_r16 (gfc_array_i4 * const restrict,
gfc_array_r16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_4_r16); export_proto(mmaxloc0_4_r16);
void void
mmaxloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array, mmaxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_r16 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 *dest;
GFC_REAL_16 *base; const GFC_REAL_16 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4)
extern void maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array); extern void maxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
gfc_array_r4 * const restrict array);
export_proto(maxloc0_4_r4); export_proto(maxloc0_4_r4);
void void
maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array) maxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
gfc_array_r4 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_REAL_4 *base; const GFC_REAL_4 *base;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array) ...@@ -154,12 +156,14 @@ maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array)
} }
extern void mmaxloc0_4_r4 (gfc_array_i4 *, gfc_array_r4 *, gfc_array_l4 *); extern void mmaxloc0_4_r4 (gfc_array_i4 * const restrict,
gfc_array_r4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_4_r4); export_proto(mmaxloc0_4_r4);
void void
mmaxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array, mmaxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_r4 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 *dest;
GFC_REAL_4 *base; const GFC_REAL_4 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4)
extern void maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array); extern void maxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
gfc_array_r8 * const restrict array);
export_proto(maxloc0_4_r8); export_proto(maxloc0_4_r8);
void void
maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array) maxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
gfc_array_r8 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_REAL_8 *base; const GFC_REAL_8 *base;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array) ...@@ -154,12 +156,14 @@ maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array)
} }
extern void mmaxloc0_4_r8 (gfc_array_i4 *, gfc_array_r8 *, gfc_array_l4 *); extern void mmaxloc0_4_r8 (gfc_array_i4 * const restrict,
gfc_array_r8 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_4_r8); export_proto(mmaxloc0_4_r8);
void void
mmaxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array, mmaxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_r8 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 *dest;
GFC_REAL_8 *base; const GFC_REAL_8 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_8)
extern void maxloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array); extern void maxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
gfc_array_i16 * const restrict array);
export_proto(maxloc0_8_i16); export_proto(maxloc0_8_i16);
void void
maxloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array) maxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
gfc_array_i16 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_16 *base; const GFC_INTEGER_16 *base;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array) ...@@ -154,12 +156,14 @@ maxloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array)
} }
extern void mmaxloc0_8_i16 (gfc_array_i8 *, gfc_array_i16 *, gfc_array_l4 *); extern void mmaxloc0_8_i16 (gfc_array_i8 * const restrict,
gfc_array_i16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_8_i16); export_proto(mmaxloc0_8_i16);
void void
mmaxloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array, mmaxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_i16 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 *dest;
GFC_INTEGER_16 *base; const GFC_INTEGER_16 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_8)
extern void maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array); extern void maxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
gfc_array_i4 * const restrict array);
export_proto(maxloc0_8_i4); export_proto(maxloc0_8_i4);
void void
maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array) maxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
gfc_array_i4 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_4 *base; const GFC_INTEGER_4 *base;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array) ...@@ -154,12 +156,14 @@ maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array)
} }
extern void mmaxloc0_8_i4 (gfc_array_i8 *, gfc_array_i4 *, gfc_array_l4 *); extern void mmaxloc0_8_i4 (gfc_array_i8 * const restrict,
gfc_array_i4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_8_i4); export_proto(mmaxloc0_8_i4);
void void
mmaxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array, mmaxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_i4 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 *dest;
GFC_INTEGER_4 *base; const GFC_INTEGER_4 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
extern void maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array); extern void maxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
gfc_array_i8 * const restrict array);
export_proto(maxloc0_8_i8); export_proto(maxloc0_8_i8);
void void
maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array) maxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
gfc_array_i8 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_8 *base; const GFC_INTEGER_8 *base;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array) ...@@ -154,12 +156,14 @@ maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array)
} }
extern void mmaxloc0_8_i8 (gfc_array_i8 *, gfc_array_i8 *, gfc_array_l4 *); extern void mmaxloc0_8_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_8_i8); export_proto(mmaxloc0_8_i8);
void void
mmaxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, mmaxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_i8 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 *dest;
GFC_INTEGER_8 *base; const GFC_INTEGER_8 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8)
extern void maxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array); extern void maxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
gfc_array_r10 * const restrict array);
export_proto(maxloc0_8_r10); export_proto(maxloc0_8_r10);
void void
maxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array) maxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
gfc_array_r10 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_REAL_10 *base; const GFC_REAL_10 *base;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array) ...@@ -154,12 +156,14 @@ maxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array)
} }
extern void mmaxloc0_8_r10 (gfc_array_i8 *, gfc_array_r10 *, gfc_array_l4 *); extern void mmaxloc0_8_r10 (gfc_array_i8 * const restrict,
gfc_array_r10 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_8_r10); export_proto(mmaxloc0_8_r10);
void void
mmaxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array, mmaxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_r10 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 *dest;
GFC_REAL_10 *base; const GFC_REAL_10 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8)
extern void maxloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array); extern void maxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
gfc_array_r16 * const restrict array);
export_proto(maxloc0_8_r16); export_proto(maxloc0_8_r16);
void void
maxloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array) maxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
gfc_array_r16 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_REAL_16 *base; const GFC_REAL_16 *base;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array) ...@@ -154,12 +156,14 @@ maxloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array)
} }
extern void mmaxloc0_8_r16 (gfc_array_i8 *, gfc_array_r16 *, gfc_array_l4 *); extern void mmaxloc0_8_r16 (gfc_array_i8 * const restrict,
gfc_array_r16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_8_r16); export_proto(mmaxloc0_8_r16);
void void
mmaxloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array, mmaxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_r16 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 *dest;
GFC_REAL_16 *base; const GFC_REAL_16 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8)
extern void maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array); extern void maxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
gfc_array_r4 * const restrict array);
export_proto(maxloc0_8_r4); export_proto(maxloc0_8_r4);
void void
maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array) maxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
gfc_array_r4 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_REAL_4 *base; const GFC_REAL_4 *base;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array) ...@@ -154,12 +156,14 @@ maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array)
} }
extern void mmaxloc0_8_r4 (gfc_array_i8 *, gfc_array_r4 *, gfc_array_l4 *); extern void mmaxloc0_8_r4 (gfc_array_i8 * const restrict,
gfc_array_r4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_8_r4); export_proto(mmaxloc0_8_r4);
void void
mmaxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array, mmaxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_r4 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 *dest;
GFC_REAL_4 *base; const GFC_REAL_4 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8)
extern void maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array); extern void maxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
gfc_array_r8 * const restrict array);
export_proto(maxloc0_8_r8); export_proto(maxloc0_8_r8);
void void
maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array) maxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
gfc_array_r8 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_REAL_8 *base; const GFC_REAL_8 *base;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array) ...@@ -154,12 +156,14 @@ maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array)
} }
extern void mmaxloc0_8_r8 (gfc_array_i8 *, gfc_array_r8 *, gfc_array_l4 *); extern void mmaxloc0_8_r8 (gfc_array_i8 * const restrict,
gfc_array_r8 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_8_r8); export_proto(mmaxloc0_8_r8);
void void
mmaxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array, mmaxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_r8 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mmaxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array, ...@@ -167,7 +171,7 @@ mmaxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 *dest;
GFC_REAL_8 *base; const GFC_REAL_8 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
extern void maxloc1_16_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *); extern void maxloc1_16_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(maxloc1_16_i16); export_proto(maxloc1_16_i16);
void void
maxloc1_16_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim) maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
gfc_array_i16 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_16 *base; const GFC_INTEGER_16 * restrict base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_16_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_16_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_INTEGER_16 *src; const GFC_INTEGER_16 * restrict src;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_16_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_16_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
} }
extern void mmaxloc1_16_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *, extern void mmaxloc1_16_i16 (gfc_array_i16 * const restrict,
gfc_array_l4 *); gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_16_i16); export_proto(mmaxloc1_16_i16);
void void
mmaxloc1_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array, mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_i16 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
GFC_INTEGER_16 *base; const GFC_INTEGER_16 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array,
while (base) while (base)
{ {
GFC_INTEGER_16 *src; const GFC_INTEGER_16 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_16)
extern void maxloc1_16_i4 (gfc_array_i16 *, gfc_array_i4 *, index_type *); extern void maxloc1_16_i4 (gfc_array_i16 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(maxloc1_16_i4); export_proto(maxloc1_16_i4);
void void
maxloc1_16_i4 (gfc_array_i16 *retarray, gfc_array_i4 *array, index_type *pdim) maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
gfc_array_i4 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_4 *base; const GFC_INTEGER_4 * restrict base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_16_i4 (gfc_array_i16 *retarray, gfc_array_i4 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_16_i4 (gfc_array_i16 *retarray, gfc_array_i4 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_INTEGER_4 *src; const GFC_INTEGER_4 * restrict src;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_16_i4 (gfc_array_i16 *retarray, gfc_array_i4 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_16_i4 (gfc_array_i16 *retarray, gfc_array_i4 *array, index_type *pdim)
} }
extern void mmaxloc1_16_i4 (gfc_array_i16 *, gfc_array_i4 *, index_type *, extern void mmaxloc1_16_i4 (gfc_array_i16 * const restrict,
gfc_array_l4 *); gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_16_i4); export_proto(mmaxloc1_16_i4);
void void
mmaxloc1_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 * array, mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_i4 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
GFC_INTEGER_4 *base; const GFC_INTEGER_4 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 * array,
while (base) while (base)
{ {
GFC_INTEGER_4 *src; const GFC_INTEGER_4 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_16)
extern void maxloc1_16_i8 (gfc_array_i16 *, gfc_array_i8 *, index_type *); extern void maxloc1_16_i8 (gfc_array_i16 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(maxloc1_16_i8); export_proto(maxloc1_16_i8);
void void
maxloc1_16_i8 (gfc_array_i16 *retarray, gfc_array_i8 *array, index_type *pdim) maxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
gfc_array_i8 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_8 *base; const GFC_INTEGER_8 * restrict base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_16_i8 (gfc_array_i16 *retarray, gfc_array_i8 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_16_i8 (gfc_array_i16 *retarray, gfc_array_i8 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_INTEGER_8 *src; const GFC_INTEGER_8 * restrict src;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_16_i8 (gfc_array_i16 *retarray, gfc_array_i8 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_16_i8 (gfc_array_i16 *retarray, gfc_array_i8 *array, index_type *pdim)
} }
extern void mmaxloc1_16_i8 (gfc_array_i16 *, gfc_array_i8 *, index_type *, extern void mmaxloc1_16_i8 (gfc_array_i16 * const restrict,
gfc_array_l4 *); gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_16_i8); export_proto(mmaxloc1_16_i8);
void void
mmaxloc1_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 * array, mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_i8 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
GFC_INTEGER_8 *base; const GFC_INTEGER_8 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 * array,
while (base) while (base)
{ {
GFC_INTEGER_8 *src; const GFC_INTEGER_8 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16)
extern void maxloc1_16_r10 (gfc_array_i16 *, gfc_array_r10 *, index_type *); extern void maxloc1_16_r10 (gfc_array_i16 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(maxloc1_16_r10); export_proto(maxloc1_16_r10);
void void
maxloc1_16_r10 (gfc_array_i16 *retarray, gfc_array_r10 *array, index_type *pdim) maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
gfc_array_r10 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_REAL_10 *base; const GFC_REAL_10 * restrict base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_16_r10 (gfc_array_i16 *retarray, gfc_array_r10 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_16_r10 (gfc_array_i16 *retarray, gfc_array_r10 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_REAL_10 *src; const GFC_REAL_10 * restrict src;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_16_r10 (gfc_array_i16 *retarray, gfc_array_r10 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_16_r10 (gfc_array_i16 *retarray, gfc_array_r10 *array, index_type *pdim)
} }
extern void mmaxloc1_16_r10 (gfc_array_i16 *, gfc_array_r10 *, index_type *, extern void mmaxloc1_16_r10 (gfc_array_i16 * const restrict,
gfc_array_l4 *); gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_16_r10); export_proto(mmaxloc1_16_r10);
void void
mmaxloc1_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 * array, mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_r10 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
GFC_REAL_10 *base; const GFC_REAL_10 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 * array,
while (base) while (base)
{ {
GFC_REAL_10 *src; const GFC_REAL_10 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16)
extern void maxloc1_16_r16 (gfc_array_i16 *, gfc_array_r16 *, index_type *); extern void maxloc1_16_r16 (gfc_array_i16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(maxloc1_16_r16); export_proto(maxloc1_16_r16);
void void
maxloc1_16_r16 (gfc_array_i16 *retarray, gfc_array_r16 *array, index_type *pdim) maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
gfc_array_r16 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_REAL_16 *base; const GFC_REAL_16 * restrict base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_16_r16 (gfc_array_i16 *retarray, gfc_array_r16 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_16_r16 (gfc_array_i16 *retarray, gfc_array_r16 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_REAL_16 *src; const GFC_REAL_16 * restrict src;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_16_r16 (gfc_array_i16 *retarray, gfc_array_r16 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_16_r16 (gfc_array_i16 *retarray, gfc_array_r16 *array, index_type *pdim)
} }
extern void mmaxloc1_16_r16 (gfc_array_i16 *, gfc_array_r16 *, index_type *, extern void mmaxloc1_16_r16 (gfc_array_i16 * const restrict,
gfc_array_l4 *); gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_16_r16); export_proto(mmaxloc1_16_r16);
void void
mmaxloc1_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 * array, mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_r16 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
GFC_REAL_16 *base; const GFC_REAL_16 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 * array,
while (base) while (base)
{ {
GFC_REAL_16 *src; const GFC_REAL_16 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16)
extern void maxloc1_16_r4 (gfc_array_i16 *, gfc_array_r4 *, index_type *); extern void maxloc1_16_r4 (gfc_array_i16 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(maxloc1_16_r4); export_proto(maxloc1_16_r4);
void void
maxloc1_16_r4 (gfc_array_i16 *retarray, gfc_array_r4 *array, index_type *pdim) maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
gfc_array_r4 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_REAL_4 *base; const GFC_REAL_4 * restrict base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_16_r4 (gfc_array_i16 *retarray, gfc_array_r4 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_16_r4 (gfc_array_i16 *retarray, gfc_array_r4 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_REAL_4 *src; const GFC_REAL_4 * restrict src;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_16_r4 (gfc_array_i16 *retarray, gfc_array_r4 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_16_r4 (gfc_array_i16 *retarray, gfc_array_r4 *array, index_type *pdim)
} }
extern void mmaxloc1_16_r4 (gfc_array_i16 *, gfc_array_r4 *, index_type *, extern void mmaxloc1_16_r4 (gfc_array_i16 * const restrict,
gfc_array_l4 *); gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_16_r4); export_proto(mmaxloc1_16_r4);
void void
mmaxloc1_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 * array, mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_r4 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
GFC_REAL_4 *base; const GFC_REAL_4 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 * array,
while (base) while (base)
{ {
GFC_REAL_4 *src; const GFC_REAL_4 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16)
extern void maxloc1_16_r8 (gfc_array_i16 *, gfc_array_r8 *, index_type *); extern void maxloc1_16_r8 (gfc_array_i16 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(maxloc1_16_r8); export_proto(maxloc1_16_r8);
void void
maxloc1_16_r8 (gfc_array_i16 *retarray, gfc_array_r8 *array, index_type *pdim) maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
gfc_array_r8 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_REAL_8 *base; const GFC_REAL_8 * restrict base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_16_r8 (gfc_array_i16 *retarray, gfc_array_r8 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_16_r8 (gfc_array_i16 *retarray, gfc_array_r8 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_REAL_8 *src; const GFC_REAL_8 * restrict src;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_16_r8 (gfc_array_i16 *retarray, gfc_array_r8 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_16_r8 (gfc_array_i16 *retarray, gfc_array_r8 *array, index_type *pdim)
} }
extern void mmaxloc1_16_r8 (gfc_array_i16 *, gfc_array_r8 *, index_type *, extern void mmaxloc1_16_r8 (gfc_array_i16 * const restrict,
gfc_array_l4 *); gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_16_r8); export_proto(mmaxloc1_16_r8);
void void
mmaxloc1_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 * array, mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_r8 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
GFC_REAL_8 *base; const GFC_REAL_8 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 * array,
while (base) while (base)
{ {
GFC_REAL_8 *src; const GFC_REAL_8 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_4)
extern void maxloc1_4_i16 (gfc_array_i4 *, gfc_array_i16 *, index_type *); extern void maxloc1_4_i16 (gfc_array_i4 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(maxloc1_4_i16); export_proto(maxloc1_4_i16);
void void
maxloc1_4_i16 (gfc_array_i4 *retarray, gfc_array_i16 *array, index_type *pdim) maxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
gfc_array_i16 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_16 *base; const GFC_INTEGER_16 * restrict base;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_4_i16 (gfc_array_i4 *retarray, gfc_array_i16 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_4_i16 (gfc_array_i4 *retarray, gfc_array_i16 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_INTEGER_16 *src; const GFC_INTEGER_16 * restrict src;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_4_i16 (gfc_array_i4 *retarray, gfc_array_i16 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_4_i16 (gfc_array_i4 *retarray, gfc_array_i16 *array, index_type *pdim)
} }
extern void mmaxloc1_4_i16 (gfc_array_i4 *, gfc_array_i16 *, index_type *, extern void mmaxloc1_4_i16 (gfc_array_i4 * const restrict,
gfc_array_l4 *); gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_4_i16); export_proto(mmaxloc1_4_i16);
void void
mmaxloc1_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 * array, mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_i16 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
GFC_INTEGER_16 *base; const GFC_INTEGER_16 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 * array,
while (base) while (base)
{ {
GFC_INTEGER_16 *src; const GFC_INTEGER_16 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
extern void maxloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); extern void maxloc1_4_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(maxloc1_4_i4); export_proto(maxloc1_4_i4);
void void
maxloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
gfc_array_i4 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_4 *base; const GFC_INTEGER_4 * restrict base;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_INTEGER_4 *src; const GFC_INTEGER_4 * restrict src;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
} }
extern void mmaxloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *, extern void mmaxloc1_4_i4 (gfc_array_i4 * const restrict,
gfc_array_l4 *); gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_4_i4); export_proto(mmaxloc1_4_i4);
void void
mmaxloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_i4 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
GFC_INTEGER_4 *base; const GFC_INTEGER_4 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array,
while (base) while (base)
{ {
GFC_INTEGER_4 *src; const GFC_INTEGER_4 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_4)
extern void maxloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *); extern void maxloc1_4_i8 (gfc_array_i4 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(maxloc1_4_i8); export_proto(maxloc1_4_i8);
void void
maxloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim) maxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
gfc_array_i8 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_8 *base; const GFC_INTEGER_8 * restrict base;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_INTEGER_8 *src; const GFC_INTEGER_8 * restrict src;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim)
} }
extern void mmaxloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *, extern void mmaxloc1_4_i8 (gfc_array_i4 * const restrict,
gfc_array_l4 *); gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_4_i8); export_proto(mmaxloc1_4_i8);
void void
mmaxloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 * array, mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_i8 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
GFC_INTEGER_8 *base; const GFC_INTEGER_8 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 * array,
while (base) while (base)
{ {
GFC_INTEGER_8 *src; const GFC_INTEGER_8 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4)
extern void maxloc1_4_r10 (gfc_array_i4 *, gfc_array_r10 *, index_type *); extern void maxloc1_4_r10 (gfc_array_i4 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(maxloc1_4_r10); export_proto(maxloc1_4_r10);
void void
maxloc1_4_r10 (gfc_array_i4 *retarray, gfc_array_r10 *array, index_type *pdim) maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
gfc_array_r10 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_REAL_10 *base; const GFC_REAL_10 * restrict base;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_4_r10 (gfc_array_i4 *retarray, gfc_array_r10 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_4_r10 (gfc_array_i4 *retarray, gfc_array_r10 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_REAL_10 *src; const GFC_REAL_10 * restrict src;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_4_r10 (gfc_array_i4 *retarray, gfc_array_r10 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_4_r10 (gfc_array_i4 *retarray, gfc_array_r10 *array, index_type *pdim)
} }
extern void mmaxloc1_4_r10 (gfc_array_i4 *, gfc_array_r10 *, index_type *, extern void mmaxloc1_4_r10 (gfc_array_i4 * const restrict,
gfc_array_l4 *); gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_4_r10); export_proto(mmaxloc1_4_r10);
void void
mmaxloc1_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 * array, mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_r10 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
GFC_REAL_10 *base; const GFC_REAL_10 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 * array,
while (base) while (base)
{ {
GFC_REAL_10 *src; const GFC_REAL_10 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4)
extern void maxloc1_4_r16 (gfc_array_i4 *, gfc_array_r16 *, index_type *); extern void maxloc1_4_r16 (gfc_array_i4 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(maxloc1_4_r16); export_proto(maxloc1_4_r16);
void void
maxloc1_4_r16 (gfc_array_i4 *retarray, gfc_array_r16 *array, index_type *pdim) maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
gfc_array_r16 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_REAL_16 *base; const GFC_REAL_16 * restrict base;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_4_r16 (gfc_array_i4 *retarray, gfc_array_r16 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_4_r16 (gfc_array_i4 *retarray, gfc_array_r16 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_REAL_16 *src; const GFC_REAL_16 * restrict src;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_4_r16 (gfc_array_i4 *retarray, gfc_array_r16 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_4_r16 (gfc_array_i4 *retarray, gfc_array_r16 *array, index_type *pdim)
} }
extern void mmaxloc1_4_r16 (gfc_array_i4 *, gfc_array_r16 *, index_type *, extern void mmaxloc1_4_r16 (gfc_array_i4 * const restrict,
gfc_array_l4 *); gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_4_r16); export_proto(mmaxloc1_4_r16);
void void
mmaxloc1_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 * array, mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_r16 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
GFC_REAL_16 *base; const GFC_REAL_16 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 * array,
while (base) while (base)
{ {
GFC_REAL_16 *src; const GFC_REAL_16 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4)
extern void maxloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *); extern void maxloc1_4_r4 (gfc_array_i4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(maxloc1_4_r4); export_proto(maxloc1_4_r4);
void void
maxloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim) maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
gfc_array_r4 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_REAL_4 *base; const GFC_REAL_4 * restrict base;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_REAL_4 *src; const GFC_REAL_4 * restrict src;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim)
} }
extern void mmaxloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *, extern void mmaxloc1_4_r4 (gfc_array_i4 * const restrict,
gfc_array_l4 *); gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_4_r4); export_proto(mmaxloc1_4_r4);
void void
mmaxloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 * array, mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_r4 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
GFC_REAL_4 *base; const GFC_REAL_4 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 * array,
while (base) while (base)
{ {
GFC_REAL_4 *src; const GFC_REAL_4 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4)
extern void maxloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *); extern void maxloc1_4_r8 (gfc_array_i4 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(maxloc1_4_r8); export_proto(maxloc1_4_r8);
void void
maxloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim) maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
gfc_array_r8 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_REAL_8 *base; const GFC_REAL_8 * restrict base;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_REAL_8 *src; const GFC_REAL_8 * restrict src;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim)
} }
extern void mmaxloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *, extern void mmaxloc1_4_r8 (gfc_array_i4 * const restrict,
gfc_array_l4 *); gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_4_r8); export_proto(mmaxloc1_4_r8);
void void
mmaxloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 * array, mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_r8 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
GFC_REAL_8 *base; const GFC_REAL_8 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 * array,
while (base) while (base)
{ {
GFC_REAL_8 *src; const GFC_REAL_8 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_8)
extern void maxloc1_8_i16 (gfc_array_i8 *, gfc_array_i16 *, index_type *); extern void maxloc1_8_i16 (gfc_array_i8 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(maxloc1_8_i16); export_proto(maxloc1_8_i16);
void void
maxloc1_8_i16 (gfc_array_i8 *retarray, gfc_array_i16 *array, index_type *pdim) maxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
gfc_array_i16 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_16 *base; const GFC_INTEGER_16 * restrict base;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_8_i16 (gfc_array_i8 *retarray, gfc_array_i16 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_8_i16 (gfc_array_i8 *retarray, gfc_array_i16 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_INTEGER_16 *src; const GFC_INTEGER_16 * restrict src;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_8_i16 (gfc_array_i8 *retarray, gfc_array_i16 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_8_i16 (gfc_array_i8 *retarray, gfc_array_i16 *array, index_type *pdim)
} }
extern void mmaxloc1_8_i16 (gfc_array_i8 *, gfc_array_i16 *, index_type *, extern void mmaxloc1_8_i16 (gfc_array_i8 * const restrict,
gfc_array_l4 *); gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_8_i16); export_proto(mmaxloc1_8_i16);
void void
mmaxloc1_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 * array, mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_i16 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
GFC_INTEGER_16 *base; const GFC_INTEGER_16 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 * array,
while (base) while (base)
{ {
GFC_INTEGER_16 *src; const GFC_INTEGER_16 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_8)
extern void maxloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *); extern void maxloc1_8_i4 (gfc_array_i8 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(maxloc1_8_i4); export_proto(maxloc1_8_i4);
void void
maxloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim) maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
gfc_array_i4 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_4 *base; const GFC_INTEGER_4 * restrict base;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_INTEGER_4 *src; const GFC_INTEGER_4 * restrict src;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim)
} }
extern void mmaxloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *, extern void mmaxloc1_8_i4 (gfc_array_i8 * const restrict,
gfc_array_l4 *); gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_8_i4); export_proto(mmaxloc1_8_i4);
void void
mmaxloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 * array, mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_i4 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
GFC_INTEGER_4 *base; const GFC_INTEGER_4 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 * array,
while (base) while (base)
{ {
GFC_INTEGER_4 *src; const GFC_INTEGER_4 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
extern void maxloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); extern void maxloc1_8_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(maxloc1_8_i8); export_proto(maxloc1_8_i8);
void void
maxloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) maxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
gfc_array_i8 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_8 *base; const GFC_INTEGER_8 * restrict base;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_INTEGER_8 *src; const GFC_INTEGER_8 * restrict src;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
} }
extern void mmaxloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *, extern void mmaxloc1_8_i8 (gfc_array_i8 * const restrict,
gfc_array_l4 *); gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_8_i8); export_proto(mmaxloc1_8_i8);
void void
mmaxloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_i8 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
GFC_INTEGER_8 *base; const GFC_INTEGER_8 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
while (base) while (base)
{ {
GFC_INTEGER_8 *src; const GFC_INTEGER_8 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8)
extern void maxloc1_8_r10 (gfc_array_i8 *, gfc_array_r10 *, index_type *); extern void maxloc1_8_r10 (gfc_array_i8 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(maxloc1_8_r10); export_proto(maxloc1_8_r10);
void void
maxloc1_8_r10 (gfc_array_i8 *retarray, gfc_array_r10 *array, index_type *pdim) maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
gfc_array_r10 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_REAL_10 *base; const GFC_REAL_10 * restrict base;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_8_r10 (gfc_array_i8 *retarray, gfc_array_r10 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_8_r10 (gfc_array_i8 *retarray, gfc_array_r10 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_REAL_10 *src; const GFC_REAL_10 * restrict src;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_8_r10 (gfc_array_i8 *retarray, gfc_array_r10 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_8_r10 (gfc_array_i8 *retarray, gfc_array_r10 *array, index_type *pdim)
} }
extern void mmaxloc1_8_r10 (gfc_array_i8 *, gfc_array_r10 *, index_type *, extern void mmaxloc1_8_r10 (gfc_array_i8 * const restrict,
gfc_array_l4 *); gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_8_r10); export_proto(mmaxloc1_8_r10);
void void
mmaxloc1_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 * array, mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_r10 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
GFC_REAL_10 *base; const GFC_REAL_10 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 * array,
while (base) while (base)
{ {
GFC_REAL_10 *src; const GFC_REAL_10 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8)
extern void maxloc1_8_r16 (gfc_array_i8 *, gfc_array_r16 *, index_type *); extern void maxloc1_8_r16 (gfc_array_i8 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(maxloc1_8_r16); export_proto(maxloc1_8_r16);
void void
maxloc1_8_r16 (gfc_array_i8 *retarray, gfc_array_r16 *array, index_type *pdim) maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
gfc_array_r16 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_REAL_16 *base; const GFC_REAL_16 * restrict base;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_8_r16 (gfc_array_i8 *retarray, gfc_array_r16 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_8_r16 (gfc_array_i8 *retarray, gfc_array_r16 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_REAL_16 *src; const GFC_REAL_16 * restrict src;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_8_r16 (gfc_array_i8 *retarray, gfc_array_r16 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_8_r16 (gfc_array_i8 *retarray, gfc_array_r16 *array, index_type *pdim)
} }
extern void mmaxloc1_8_r16 (gfc_array_i8 *, gfc_array_r16 *, index_type *, extern void mmaxloc1_8_r16 (gfc_array_i8 * const restrict,
gfc_array_l4 *); gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_8_r16); export_proto(mmaxloc1_8_r16);
void void
mmaxloc1_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 * array, mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_r16 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
GFC_REAL_16 *base; const GFC_REAL_16 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 * array,
while (base) while (base)
{ {
GFC_REAL_16 *src; const GFC_REAL_16 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8)
extern void maxloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *); extern void maxloc1_8_r4 (gfc_array_i8 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(maxloc1_8_r4); export_proto(maxloc1_8_r4);
void void
maxloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim) maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
gfc_array_r4 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_REAL_4 *base; const GFC_REAL_4 * restrict base;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_REAL_4 *src; const GFC_REAL_4 * restrict src;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim)
} }
extern void mmaxloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *, extern void mmaxloc1_8_r4 (gfc_array_i8 * const restrict,
gfc_array_l4 *); gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_8_r4); export_proto(mmaxloc1_8_r4);
void void
mmaxloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array, mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_r4 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
GFC_REAL_4 *base; const GFC_REAL_4 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array,
while (base) while (base)
{ {
GFC_REAL_4 *src; const GFC_REAL_4 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8)
extern void maxloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *); extern void maxloc1_8_r8 (gfc_array_i8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(maxloc1_8_r8); export_proto(maxloc1_8_r8);
void void
maxloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim) maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
gfc_array_r8 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_REAL_8 *base; const GFC_REAL_8 * restrict base;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -122,7 +125,7 @@ maxloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim) ...@@ -122,7 +125,7 @@ maxloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_REAL_8 *src; const GFC_REAL_8 * restrict src;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
{ {
...@@ -178,22 +181,25 @@ maxloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim) ...@@ -178,22 +181,25 @@ maxloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim)
} }
extern void mmaxloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *, extern void mmaxloc1_8_r8 (gfc_array_i8 * const restrict,
gfc_array_l4 *); gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxloc1_8_r8); export_proto(mmaxloc1_8_r8);
void void
mmaxloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 * array, mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_r8 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
GFC_REAL_8 *base; const GFC_REAL_8 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -284,8 +290,8 @@ mmaxloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 * array, ...@@ -284,8 +290,8 @@ mmaxloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 * array,
while (base) while (base)
{ {
GFC_REAL_8 *src; const GFC_REAL_8 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
extern void maxval_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *); extern void maxval_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(maxval_i16); export_proto(maxval_i16);
void void
maxval_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim) maxval_i16 (gfc_array_i16 * const restrict retarray,
gfc_array_i16 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_16 *base; const GFC_INTEGER_16 * restrict base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -121,7 +124,7 @@ maxval_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim) ...@@ -121,7 +124,7 @@ maxval_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_INTEGER_16 *src; const GFC_INTEGER_16 * restrict src;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
{ {
...@@ -172,22 +175,25 @@ maxval_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim) ...@@ -172,22 +175,25 @@ maxval_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
} }
extern void mmaxval_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *, extern void mmaxval_i16 (gfc_array_i16 * const restrict,
gfc_array_l4 *); gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxval_i16); export_proto(mmaxval_i16);
void void
mmaxval_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array, mmaxval_i16 (gfc_array_i16 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_i16 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_16 *dest; GFC_INTEGER_16 * restrict dest;
GFC_INTEGER_16 *base; const GFC_INTEGER_16 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -278,8 +284,8 @@ mmaxval_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array, ...@@ -278,8 +284,8 @@ mmaxval_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array,
while (base) while (base)
{ {
GFC_INTEGER_16 *src; const GFC_INTEGER_16 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_16 result; GFC_INTEGER_16 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4) #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
extern void maxval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); extern void maxval_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(maxval_i4); export_proto(maxval_i4);
void void
maxval_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) maxval_i4 (gfc_array_i4 * const restrict retarray,
gfc_array_i4 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_4 *base; const GFC_INTEGER_4 * restrict base;
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -121,7 +124,7 @@ maxval_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) ...@@ -121,7 +124,7 @@ maxval_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_INTEGER_4 *src; const GFC_INTEGER_4 * restrict src;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
{ {
...@@ -172,22 +175,25 @@ maxval_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) ...@@ -172,22 +175,25 @@ maxval_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
} }
extern void mmaxval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *, extern void mmaxval_i4 (gfc_array_i4 * const restrict,
gfc_array_l4 *); gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxval_i4); export_proto(mmaxval_i4);
void void
mmaxval_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, mmaxval_i4 (gfc_array_i4 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_i4 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_4 *dest; GFC_INTEGER_4 * restrict dest;
GFC_INTEGER_4 *base; const GFC_INTEGER_4 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -278,8 +284,8 @@ mmaxval_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, ...@@ -278,8 +284,8 @@ mmaxval_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array,
while (base) while (base)
{ {
GFC_INTEGER_4 *src; const GFC_INTEGER_4 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_4 result; GFC_INTEGER_4 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8) #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
extern void maxval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); extern void maxval_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(maxval_i8); export_proto(maxval_i8);
void void
maxval_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) maxval_i8 (gfc_array_i8 * const restrict retarray,
gfc_array_i8 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_8 *base; const GFC_INTEGER_8 * restrict base;
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -121,7 +124,7 @@ maxval_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) ...@@ -121,7 +124,7 @@ maxval_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_INTEGER_8 *src; const GFC_INTEGER_8 * restrict src;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
{ {
...@@ -172,22 +175,25 @@ maxval_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) ...@@ -172,22 +175,25 @@ maxval_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
} }
extern void mmaxval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *, extern void mmaxval_i8 (gfc_array_i8 * const restrict,
gfc_array_l4 *); gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxval_i8); export_proto(mmaxval_i8);
void void
mmaxval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, mmaxval_i8 (gfc_array_i8 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_i8 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_INTEGER_8 *dest; GFC_INTEGER_8 * restrict dest;
GFC_INTEGER_8 *base; const GFC_INTEGER_8 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -278,8 +284,8 @@ mmaxval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, ...@@ -278,8 +284,8 @@ mmaxval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
while (base) while (base)
{ {
GFC_INTEGER_8 *src; const GFC_INTEGER_8 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_INTEGER_8 result; GFC_INTEGER_8 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_REAL_10) #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_REAL_10)
extern void maxval_r10 (gfc_array_r10 *, gfc_array_r10 *, index_type *); extern void maxval_r10 (gfc_array_r10 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(maxval_r10); export_proto(maxval_r10);
void void
maxval_r10 (gfc_array_r10 *retarray, gfc_array_r10 *array, index_type *pdim) maxval_r10 (gfc_array_r10 * const restrict retarray,
gfc_array_r10 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_REAL_10 *base; const GFC_REAL_10 * restrict base;
GFC_REAL_10 *dest; GFC_REAL_10 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -121,7 +124,7 @@ maxval_r10 (gfc_array_r10 *retarray, gfc_array_r10 *array, index_type *pdim) ...@@ -121,7 +124,7 @@ maxval_r10 (gfc_array_r10 *retarray, gfc_array_r10 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_REAL_10 *src; const GFC_REAL_10 * restrict src;
GFC_REAL_10 result; GFC_REAL_10 result;
src = base; src = base;
{ {
...@@ -172,22 +175,25 @@ maxval_r10 (gfc_array_r10 *retarray, gfc_array_r10 *array, index_type *pdim) ...@@ -172,22 +175,25 @@ maxval_r10 (gfc_array_r10 *retarray, gfc_array_r10 *array, index_type *pdim)
} }
extern void mmaxval_r10 (gfc_array_r10 *, gfc_array_r10 *, index_type *, extern void mmaxval_r10 (gfc_array_r10 * const restrict,
gfc_array_l4 *); gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxval_r10); export_proto(mmaxval_r10);
void void
mmaxval_r10 (gfc_array_r10 * retarray, gfc_array_r10 * array, mmaxval_r10 (gfc_array_r10 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_r10 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_REAL_10 *dest; GFC_REAL_10 * restrict dest;
GFC_REAL_10 *base; const GFC_REAL_10 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -278,8 +284,8 @@ mmaxval_r10 (gfc_array_r10 * retarray, gfc_array_r10 * array, ...@@ -278,8 +284,8 @@ mmaxval_r10 (gfc_array_r10 * retarray, gfc_array_r10 * array,
while (base) while (base)
{ {
GFC_REAL_10 *src; const GFC_REAL_10 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_10 result; GFC_REAL_10 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_REAL_16) #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_REAL_16)
extern void maxval_r16 (gfc_array_r16 *, gfc_array_r16 *, index_type *); extern void maxval_r16 (gfc_array_r16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(maxval_r16); export_proto(maxval_r16);
void void
maxval_r16 (gfc_array_r16 *retarray, gfc_array_r16 *array, index_type *pdim) maxval_r16 (gfc_array_r16 * const restrict retarray,
gfc_array_r16 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_REAL_16 *base; const GFC_REAL_16 * restrict base;
GFC_REAL_16 *dest; GFC_REAL_16 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -121,7 +124,7 @@ maxval_r16 (gfc_array_r16 *retarray, gfc_array_r16 *array, index_type *pdim) ...@@ -121,7 +124,7 @@ maxval_r16 (gfc_array_r16 *retarray, gfc_array_r16 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_REAL_16 *src; const GFC_REAL_16 * restrict src;
GFC_REAL_16 result; GFC_REAL_16 result;
src = base; src = base;
{ {
...@@ -172,22 +175,25 @@ maxval_r16 (gfc_array_r16 *retarray, gfc_array_r16 *array, index_type *pdim) ...@@ -172,22 +175,25 @@ maxval_r16 (gfc_array_r16 *retarray, gfc_array_r16 *array, index_type *pdim)
} }
extern void mmaxval_r16 (gfc_array_r16 *, gfc_array_r16 *, index_type *, extern void mmaxval_r16 (gfc_array_r16 * const restrict,
gfc_array_l4 *); gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxval_r16); export_proto(mmaxval_r16);
void void
mmaxval_r16 (gfc_array_r16 * retarray, gfc_array_r16 * array, mmaxval_r16 (gfc_array_r16 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_r16 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_REAL_16 *dest; GFC_REAL_16 * restrict dest;
GFC_REAL_16 *base; const GFC_REAL_16 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -278,8 +284,8 @@ mmaxval_r16 (gfc_array_r16 * retarray, gfc_array_r16 * array, ...@@ -278,8 +284,8 @@ mmaxval_r16 (gfc_array_r16 * retarray, gfc_array_r16 * array,
while (base) while (base)
{ {
GFC_REAL_16 *src; const GFC_REAL_16 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_16 result; GFC_REAL_16 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4) #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4)
extern void maxval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *); extern void maxval_r4 (gfc_array_r4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(maxval_r4); export_proto(maxval_r4);
void void
maxval_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim) maxval_r4 (gfc_array_r4 * const restrict retarray,
gfc_array_r4 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_REAL_4 *base; const GFC_REAL_4 * restrict base;
GFC_REAL_4 *dest; GFC_REAL_4 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -121,7 +124,7 @@ maxval_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim) ...@@ -121,7 +124,7 @@ maxval_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_REAL_4 *src; const GFC_REAL_4 * restrict src;
GFC_REAL_4 result; GFC_REAL_4 result;
src = base; src = base;
{ {
...@@ -172,22 +175,25 @@ maxval_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim) ...@@ -172,22 +175,25 @@ maxval_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
} }
extern void mmaxval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *, extern void mmaxval_r4 (gfc_array_r4 * const restrict,
gfc_array_l4 *); gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxval_r4); export_proto(mmaxval_r4);
void void
mmaxval_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array, mmaxval_r4 (gfc_array_r4 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_r4 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_REAL_4 *dest; GFC_REAL_4 * restrict dest;
GFC_REAL_4 *base; const GFC_REAL_4 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -278,8 +284,8 @@ mmaxval_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array, ...@@ -278,8 +284,8 @@ mmaxval_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array,
while (base) while (base)
{ {
GFC_REAL_4 *src; const GFC_REAL_4 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_4 result; GFC_REAL_4 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */ ...@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_REAL_8) #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_REAL_8)
extern void maxval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *); extern void maxval_r8 (gfc_array_r8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(maxval_r8); export_proto(maxval_r8);
void void
maxval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim) maxval_r8 (gfc_array_r8 * const restrict retarray,
gfc_array_r8 * const restrict array,
const index_type * const restrict pdim)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
GFC_REAL_8 *base; const GFC_REAL_8 * restrict base;
GFC_REAL_8 *dest; GFC_REAL_8 * restrict dest;
index_type rank; index_type rank;
index_type n; index_type n;
index_type len; index_type len;
...@@ -121,7 +124,7 @@ maxval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim) ...@@ -121,7 +124,7 @@ maxval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
while (base) while (base)
{ {
GFC_REAL_8 *src; const GFC_REAL_8 * restrict src;
GFC_REAL_8 result; GFC_REAL_8 result;
src = base; src = base;
{ {
...@@ -172,22 +175,25 @@ maxval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim) ...@@ -172,22 +175,25 @@ maxval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
} }
extern void mmaxval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *, extern void mmaxval_r8 (gfc_array_r8 * const restrict,
gfc_array_l4 *); gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l4 * const restrict);
export_proto(mmaxval_r8); export_proto(mmaxval_r8);
void void
mmaxval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, mmaxval_r8 (gfc_array_r8 * const restrict retarray,
index_type *pdim, gfc_array_l4 * mask) gfc_array_r8 * const restrict array,
const index_type * const restrict pdim,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS];
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
GFC_REAL_8 *dest; GFC_REAL_8 * restrict dest;
GFC_REAL_8 *base; const GFC_REAL_8 * restrict base;
GFC_LOGICAL_4 *mbase; const GFC_LOGICAL_4 * restrict mbase;
int rank; int rank;
int dim; int dim;
index_type n; index_type n;
...@@ -278,8 +284,8 @@ mmaxval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, ...@@ -278,8 +284,8 @@ mmaxval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array,
while (base) while (base)
{ {
GFC_REAL_8 *src; const GFC_REAL_8 * restrict src;
GFC_LOGICAL_4 *msrc; const GFC_LOGICAL_4 * restrict msrc;
GFC_REAL_8 result; GFC_REAL_8 result;
src = base; src = base;
msrc = mbase; msrc = mbase;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
extern void minloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array); extern void minloc0_16_i16 (gfc_array_i16 * const restrict retarray,
gfc_array_i16 * const restrict array);
export_proto(minloc0_16_i16); export_proto(minloc0_16_i16);
void void
minloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array) minloc0_16_i16 (gfc_array_i16 * const restrict retarray,
gfc_array_i16 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_16 *base; const GFC_INTEGER_16 *base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ minloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array) ...@@ -154,12 +156,14 @@ minloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array)
} }
extern void mminloc0_16_i16 (gfc_array_i16 *, gfc_array_i16 *, gfc_array_l4 *); extern void mminloc0_16_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_16_i16); export_proto(mminloc0_16_i16);
void void
mminloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array, mminloc0_16_i16 (gfc_array_i16 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_i16 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mminloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array, ...@@ -167,7 +171,7 @@ mminloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 *dest;
GFC_INTEGER_16 *base; const GFC_INTEGER_16 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */ ...@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_16) #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_16)
extern void minloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array); extern void minloc0_16_i4 (gfc_array_i16 * const restrict retarray,
gfc_array_i4 * const restrict array);
export_proto(minloc0_16_i4); export_proto(minloc0_16_i4);
void void
minloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array) minloc0_16_i4 (gfc_array_i16 * const restrict retarray,
gfc_array_i4 * const restrict array)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_4 *base; const GFC_INTEGER_4 *base;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 *dest;
index_type rank; index_type rank;
index_type n; index_type n;
...@@ -154,12 +156,14 @@ minloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array) ...@@ -154,12 +156,14 @@ minloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array)
} }
extern void mminloc0_16_i4 (gfc_array_i16 *, gfc_array_i4 *, gfc_array_l4 *); extern void mminloc0_16_i4 (gfc_array_i16 * const restrict,
gfc_array_i4 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_16_i4); export_proto(mminloc0_16_i4);
void void
mminloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array, mminloc0_16_i4 (gfc_array_i16 * const restrict retarray,
gfc_array_l4 * mask) gfc_array_i4 * const restrict array,
gfc_array_l4 * const restrict mask)
{ {
index_type count[GFC_MAX_DIMENSIONS]; index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];
...@@ -167,7 +171,7 @@ mminloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array, ...@@ -167,7 +171,7 @@ mminloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array,
index_type mstride[GFC_MAX_DIMENSIONS]; index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride; index_type dstride;
GFC_INTEGER_16 *dest; GFC_INTEGER_16 *dest;
GFC_INTEGER_4 *base; const GFC_INTEGER_4 *base;
GFC_LOGICAL_4 *mbase; GFC_LOGICAL_4 *mbase;
int rank; int rank;
index_type n; index_type n;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment