]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
libfortran: Regenerate files
authorFrancois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Fri, 6 Jun 2025 12:21:49 +0000 (14:21 +0200)
committerFrancois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Sat, 7 Jun 2025 17:01:44 +0000 (19:01 +0200)
In commit 5e918a4db9e4a5bdbeafec6881fa8b22a55d3789, regenerated files
were not included in the commit as they should have been. Therefore, a
whitespace fix was not propagated. Sync generated files now, as obtained
from a run with --enable-maintainer-mode.

2025-06-06  François-Xavier Coudert  <fxcoudert@gcc.gnu.org>

libgfortran/ChangeLog:

PR libfortran/116400
* generated/iall_i1.c: Regenerate.
* generated/iall_i16.c: Regenerate.
* generated/iall_i2.c: Regenerate.
* generated/iall_i4.c: Regenerate.
* generated/iall_i8.c: Regenerate.
* generated/iany_i1.c: Regenerate.
* generated/iany_i16.c: Regenerate.
* generated/iany_i2.c: Regenerate.
* generated/iany_i4.c: Regenerate.
* generated/iany_i8.c: Regenerate.
* generated/iparity_i1.c: Regenerate.
* generated/iparity_i16.c: Regenerate.
* generated/iparity_i2.c: Regenerate.
* generated/iparity_i4.c: Regenerate.
* generated/iparity_i8.c: Regenerate.
* generated/matmulavx128_c10.c: Regenerate.
* generated/matmulavx128_c16.c: Regenerate.
* generated/matmulavx128_c17.c: Regenerate.
* generated/matmulavx128_c4.c: Regenerate.
* generated/matmulavx128_c8.c: Regenerate.
* generated/matmulavx128_i1.c: Regenerate.
* generated/matmulavx128_i16.c: Regenerate.
* generated/matmulavx128_i2.c: Regenerate.
* generated/matmulavx128_i4.c: Regenerate.
* generated/matmulavx128_i8.c: Regenerate.
* generated/matmulavx128_r10.c: Regenerate.
* generated/matmulavx128_r16.c: Regenerate.
* generated/matmulavx128_r17.c: Regenerate.
* generated/matmulavx128_r4.c: Regenerate.
* generated/matmulavx128_r8.c: Regenerate.
* generated/maxloc1_16_i1.c: Regenerate.
* generated/maxloc1_16_i16.c: Regenerate.
* generated/maxloc1_16_i2.c: Regenerate.
* generated/maxloc1_16_i4.c: Regenerate.
* generated/maxloc1_16_i8.c: Regenerate.
* generated/maxloc1_16_r10.c: Regenerate.
* generated/maxloc1_16_r16.c: Regenerate.
* generated/maxloc1_16_r17.c: Regenerate.
* generated/maxloc1_16_r4.c: Regenerate.
* generated/maxloc1_16_r8.c: Regenerate.
* generated/maxloc1_4_i1.c: Regenerate.
* generated/maxloc1_4_i16.c: Regenerate.
* generated/maxloc1_4_i2.c: Regenerate.
* generated/maxloc1_4_i4.c: Regenerate.
* generated/maxloc1_4_i8.c: Regenerate.
* generated/maxloc1_4_r10.c: Regenerate.
* generated/maxloc1_4_r16.c: Regenerate.
* generated/maxloc1_4_r17.c: Regenerate.
* generated/maxloc1_4_r4.c: Regenerate.
* generated/maxloc1_4_r8.c: Regenerate.
* generated/maxloc1_8_i1.c: Regenerate.
* generated/maxloc1_8_i16.c: Regenerate.
* generated/maxloc1_8_i2.c: Regenerate.
* generated/maxloc1_8_i4.c: Regenerate.
* generated/maxloc1_8_i8.c: Regenerate.
* generated/maxloc1_8_r10.c: Regenerate.
* generated/maxloc1_8_r16.c: Regenerate.
* generated/maxloc1_8_r17.c: Regenerate.
* generated/maxloc1_8_r4.c: Regenerate.
* generated/maxloc1_8_r8.c: Regenerate.
* generated/maxval_i1.c: Regenerate.
* generated/maxval_i16.c: Regenerate.
* generated/maxval_i2.c: Regenerate.
* generated/maxval_i4.c: Regenerate.
* generated/maxval_i8.c: Regenerate.
* generated/maxval_r10.c: Regenerate.
* generated/maxval_r16.c: Regenerate.
* generated/maxval_r17.c: Regenerate.
* generated/maxval_r4.c: Regenerate.
* generated/maxval_r8.c: Regenerate.
* generated/minloc1_16_i1.c: Regenerate.
* generated/minloc1_16_i16.c: Regenerate.
* generated/minloc1_16_i2.c: Regenerate.
* generated/minloc1_16_i4.c: Regenerate.
* generated/minloc1_16_i8.c: Regenerate.
* generated/minloc1_16_r10.c: Regenerate.
* generated/minloc1_16_r16.c: Regenerate.
* generated/minloc1_16_r17.c: Regenerate.
* generated/minloc1_16_r4.c: Regenerate.
* generated/minloc1_16_r8.c: Regenerate.
* generated/minloc1_4_i1.c: Regenerate.
* generated/minloc1_4_i16.c: Regenerate.
* generated/minloc1_4_i2.c: Regenerate.
* generated/minloc1_4_i4.c: Regenerate.
* generated/minloc1_4_i8.c: Regenerate.
* generated/minloc1_4_r10.c: Regenerate.
* generated/minloc1_4_r16.c: Regenerate.
* generated/minloc1_4_r17.c: Regenerate.
* generated/minloc1_4_r4.c: Regenerate.
* generated/minloc1_4_r8.c: Regenerate.
* generated/minloc1_8_i1.c: Regenerate.
* generated/minloc1_8_i16.c: Regenerate.
* generated/minloc1_8_i2.c: Regenerate.
* generated/minloc1_8_i4.c: Regenerate.
* generated/minloc1_8_i8.c: Regenerate.
* generated/minloc1_8_r10.c: Regenerate.
* generated/minloc1_8_r16.c: Regenerate.
* generated/minloc1_8_r17.c: Regenerate.
* generated/minloc1_8_r4.c: Regenerate.
* generated/minloc1_8_r8.c: Regenerate.
* generated/minval_i1.c: Regenerate.
* generated/minval_i16.c: Regenerate.
* generated/minval_i2.c: Regenerate.
* generated/minval_i4.c: Regenerate.
* generated/minval_i8.c: Regenerate.
* generated/minval_r10.c: Regenerate.
* generated/minval_r16.c: Regenerate.
* generated/minval_r17.c: Regenerate.
* generated/minval_r4.c: Regenerate.
* generated/minval_r8.c: Regenerate.
* generated/norm2_r10.c: Regenerate.
* generated/norm2_r16.c: Regenerate.
* generated/norm2_r17.c: Regenerate.
* generated/norm2_r4.c: Regenerate.
* generated/norm2_r8.c: Regenerate.
* generated/parity_l1.c: Regenerate.
* generated/parity_l16.c: Regenerate.
* generated/parity_l2.c: Regenerate.
* generated/parity_l4.c: Regenerate.
* generated/parity_l8.c: Regenerate.

120 files changed:
libgfortran/generated/iall_i1.c
libgfortran/generated/iall_i16.c
libgfortran/generated/iall_i2.c
libgfortran/generated/iall_i4.c
libgfortran/generated/iall_i8.c
libgfortran/generated/iany_i1.c
libgfortran/generated/iany_i16.c
libgfortran/generated/iany_i2.c
libgfortran/generated/iany_i4.c
libgfortran/generated/iany_i8.c
libgfortran/generated/iparity_i1.c
libgfortran/generated/iparity_i16.c
libgfortran/generated/iparity_i2.c
libgfortran/generated/iparity_i4.c
libgfortran/generated/iparity_i8.c
libgfortran/generated/matmulavx128_c10.c
libgfortran/generated/matmulavx128_c16.c
libgfortran/generated/matmulavx128_c17.c
libgfortran/generated/matmulavx128_c4.c
libgfortran/generated/matmulavx128_c8.c
libgfortran/generated/matmulavx128_i1.c
libgfortran/generated/matmulavx128_i16.c
libgfortran/generated/matmulavx128_i2.c
libgfortran/generated/matmulavx128_i4.c
libgfortran/generated/matmulavx128_i8.c
libgfortran/generated/matmulavx128_r10.c
libgfortran/generated/matmulavx128_r16.c
libgfortran/generated/matmulavx128_r17.c
libgfortran/generated/matmulavx128_r4.c
libgfortran/generated/matmulavx128_r8.c
libgfortran/generated/maxloc1_16_i1.c
libgfortran/generated/maxloc1_16_i16.c
libgfortran/generated/maxloc1_16_i2.c
libgfortran/generated/maxloc1_16_i4.c
libgfortran/generated/maxloc1_16_i8.c
libgfortran/generated/maxloc1_16_r10.c
libgfortran/generated/maxloc1_16_r16.c
libgfortran/generated/maxloc1_16_r17.c
libgfortran/generated/maxloc1_16_r4.c
libgfortran/generated/maxloc1_16_r8.c
libgfortran/generated/maxloc1_4_i1.c
libgfortran/generated/maxloc1_4_i16.c
libgfortran/generated/maxloc1_4_i2.c
libgfortran/generated/maxloc1_4_i4.c
libgfortran/generated/maxloc1_4_i8.c
libgfortran/generated/maxloc1_4_r10.c
libgfortran/generated/maxloc1_4_r16.c
libgfortran/generated/maxloc1_4_r17.c
libgfortran/generated/maxloc1_4_r4.c
libgfortran/generated/maxloc1_4_r8.c
libgfortran/generated/maxloc1_8_i1.c
libgfortran/generated/maxloc1_8_i16.c
libgfortran/generated/maxloc1_8_i2.c
libgfortran/generated/maxloc1_8_i4.c
libgfortran/generated/maxloc1_8_i8.c
libgfortran/generated/maxloc1_8_r10.c
libgfortran/generated/maxloc1_8_r16.c
libgfortran/generated/maxloc1_8_r17.c
libgfortran/generated/maxloc1_8_r4.c
libgfortran/generated/maxloc1_8_r8.c
libgfortran/generated/maxval_i1.c
libgfortran/generated/maxval_i16.c
libgfortran/generated/maxval_i2.c
libgfortran/generated/maxval_i4.c
libgfortran/generated/maxval_i8.c
libgfortran/generated/maxval_r10.c
libgfortran/generated/maxval_r16.c
libgfortran/generated/maxval_r17.c
libgfortran/generated/maxval_r4.c
libgfortran/generated/maxval_r8.c
libgfortran/generated/minloc1_16_i1.c
libgfortran/generated/minloc1_16_i16.c
libgfortran/generated/minloc1_16_i2.c
libgfortran/generated/minloc1_16_i4.c
libgfortran/generated/minloc1_16_i8.c
libgfortran/generated/minloc1_16_r10.c
libgfortran/generated/minloc1_16_r16.c
libgfortran/generated/minloc1_16_r17.c
libgfortran/generated/minloc1_16_r4.c
libgfortran/generated/minloc1_16_r8.c
libgfortran/generated/minloc1_4_i1.c
libgfortran/generated/minloc1_4_i16.c
libgfortran/generated/minloc1_4_i2.c
libgfortran/generated/minloc1_4_i4.c
libgfortran/generated/minloc1_4_i8.c
libgfortran/generated/minloc1_4_r10.c
libgfortran/generated/minloc1_4_r16.c
libgfortran/generated/minloc1_4_r17.c
libgfortran/generated/minloc1_4_r4.c
libgfortran/generated/minloc1_4_r8.c
libgfortran/generated/minloc1_8_i1.c
libgfortran/generated/minloc1_8_i16.c
libgfortran/generated/minloc1_8_i2.c
libgfortran/generated/minloc1_8_i4.c
libgfortran/generated/minloc1_8_i8.c
libgfortran/generated/minloc1_8_r10.c
libgfortran/generated/minloc1_8_r16.c
libgfortran/generated/minloc1_8_r17.c
libgfortran/generated/minloc1_8_r4.c
libgfortran/generated/minloc1_8_r8.c
libgfortran/generated/minval_i1.c
libgfortran/generated/minval_i16.c
libgfortran/generated/minval_i2.c
libgfortran/generated/minval_i4.c
libgfortran/generated/minval_i8.c
libgfortran/generated/minval_r10.c
libgfortran/generated/minval_r16.c
libgfortran/generated/minval_r17.c
libgfortran/generated/minval_r4.c
libgfortran/generated/minval_r8.c
libgfortran/generated/norm2_r10.c
libgfortran/generated/norm2_r16.c
libgfortran/generated/norm2_r17.c
libgfortran/generated/norm2_r4.c
libgfortran/generated/norm2_r8.c
libgfortran/generated/parity_l1.c
libgfortran/generated/parity_l16.c
libgfortran/generated/parity_l2.c
libgfortran/generated/parity_l4.c
libgfortran/generated/parity_l8.c

index d82d8ba6fc52bcba9347c1bbc39db31c496c451a..2e322c1f19531bcffea7751c3f753b65e57df751 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1)
 
 
-extern void iall_i1 (gfc_array_i1 * const restrict, 
+extern void iall_i1 (gfc_array_i1 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict);
 export_proto(iall_i1);
 
 void
-iall_i1 (gfc_array_i1 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
+iall_i1 (gfc_array_i1 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iall_i1 (gfc_array_i1 * const restrict retarray,
 }
 
 
-extern void miall_i1 (gfc_array_i1 * const restrict, 
+extern void miall_i1 (gfc_array_i1 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(miall_i1);
 
 void
-miall_i1 (gfc_array_i1 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+miall_i1 (gfc_array_i1 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miall_i1 (gfc_array_i1 * const restrict retarray,
 }
 
 
-extern void siall_i1 (gfc_array_i1 * const restrict, 
+extern void siall_i1 (gfc_array_i1 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(siall_i1);
 
 void
-siall_i1 (gfc_array_i1 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+siall_i1 (gfc_array_i1 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index ee134521c07edfd43347e84f7fbd6a4e2ec85343..c70b6982315d849f0994b4cf24f9f588d0dfbd14 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void iall_i16 (gfc_array_i16 * const restrict, 
+extern void iall_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict);
 export_proto(iall_i16);
 
 void
-iall_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
+iall_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iall_i16 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void miall_i16 (gfc_array_i16 * const restrict, 
+extern void miall_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(miall_i16);
 
 void
-miall_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+miall_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miall_i16 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void siall_i16 (gfc_array_i16 * const restrict, 
+extern void siall_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(siall_i16);
 
 void
-siall_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+siall_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index a57aabdeb28175b23825ee4d56c45c2754b45788..bede3c37c52629833fc2162d223b4aced5aa5e73 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2)
 
 
-extern void iall_i2 (gfc_array_i2 * const restrict, 
+extern void iall_i2 (gfc_array_i2 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict);
 export_proto(iall_i2);
 
 void
-iall_i2 (gfc_array_i2 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
+iall_i2 (gfc_array_i2 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iall_i2 (gfc_array_i2 * const restrict retarray,
 }
 
 
-extern void miall_i2 (gfc_array_i2 * const restrict, 
+extern void miall_i2 (gfc_array_i2 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(miall_i2);
 
 void
-miall_i2 (gfc_array_i2 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+miall_i2 (gfc_array_i2 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miall_i2 (gfc_array_i2 * const restrict retarray,
 }
 
 
-extern void siall_i2 (gfc_array_i2 * const restrict, 
+extern void siall_i2 (gfc_array_i2 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(siall_i2);
 
 void
-siall_i2 (gfc_array_i2 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+siall_i2 (gfc_array_i2 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 039256d0a942c8b22f43ea8165439f4edb2912e3..3e4370be7e35031b788883cb84e1aa9b0ff56368 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void iall_i4 (gfc_array_i4 * const restrict, 
+extern void iall_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict);
 export_proto(iall_i4);
 
 void
-iall_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
+iall_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iall_i4 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void miall_i4 (gfc_array_i4 * const restrict, 
+extern void miall_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(miall_i4);
 
 void
-miall_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+miall_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miall_i4 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void siall_i4 (gfc_array_i4 * const restrict, 
+extern void siall_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(siall_i4);
 
 void
-siall_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+siall_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 9f41e6073600e0844a94cf8ca238e85134021b5e..1651a470748a55cd9a7b72ef66eaac250058081f 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void iall_i8 (gfc_array_i8 * const restrict, 
+extern void iall_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict);
 export_proto(iall_i8);
 
 void
-iall_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
+iall_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iall_i8 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void miall_i8 (gfc_array_i8 * const restrict, 
+extern void miall_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(miall_i8);
 
 void
-miall_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+miall_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miall_i8 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void siall_i8 (gfc_array_i8 * const restrict, 
+extern void siall_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(siall_i8);
 
 void
-siall_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+siall_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index ebe21e44b015ff3d71d6919319ff380b7d422f09..a9b24f208c2b67477338dfdb0f0675decf9a3d14 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1)
 
 
-extern void iany_i1 (gfc_array_i1 * const restrict, 
+extern void iany_i1 (gfc_array_i1 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict);
 export_proto(iany_i1);
 
 void
-iany_i1 (gfc_array_i1 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
+iany_i1 (gfc_array_i1 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iany_i1 (gfc_array_i1 * const restrict retarray,
 }
 
 
-extern void miany_i1 (gfc_array_i1 * const restrict, 
+extern void miany_i1 (gfc_array_i1 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(miany_i1);
 
 void
-miany_i1 (gfc_array_i1 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+miany_i1 (gfc_array_i1 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miany_i1 (gfc_array_i1 * const restrict retarray,
 }
 
 
-extern void siany_i1 (gfc_array_i1 * const restrict, 
+extern void siany_i1 (gfc_array_i1 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(siany_i1);
 
 void
-siany_i1 (gfc_array_i1 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+siany_i1 (gfc_array_i1 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 8cbb439dd51f6604f2b6dcdd8c676857bf3df1c8..34d0954bdf9429f1cf67c600008162c95c772d9e 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void iany_i16 (gfc_array_i16 * const restrict, 
+extern void iany_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict);
 export_proto(iany_i16);
 
 void
-iany_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
+iany_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iany_i16 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void miany_i16 (gfc_array_i16 * const restrict, 
+extern void miany_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(miany_i16);
 
 void
-miany_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+miany_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miany_i16 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void siany_i16 (gfc_array_i16 * const restrict, 
+extern void siany_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(siany_i16);
 
 void
-siany_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+siany_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 01f6f6c2c720bca9402f159a0746b5e40f4e35c3..554a0245603fb4fa27e3ca44c5882d8b5880340a 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2)
 
 
-extern void iany_i2 (gfc_array_i2 * const restrict, 
+extern void iany_i2 (gfc_array_i2 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict);
 export_proto(iany_i2);
 
 void
-iany_i2 (gfc_array_i2 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
+iany_i2 (gfc_array_i2 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iany_i2 (gfc_array_i2 * const restrict retarray,
 }
 
 
-extern void miany_i2 (gfc_array_i2 * const restrict, 
+extern void miany_i2 (gfc_array_i2 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(miany_i2);
 
 void
-miany_i2 (gfc_array_i2 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+miany_i2 (gfc_array_i2 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miany_i2 (gfc_array_i2 * const restrict retarray,
 }
 
 
-extern void siany_i2 (gfc_array_i2 * const restrict, 
+extern void siany_i2 (gfc_array_i2 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(siany_i2);
 
 void
-siany_i2 (gfc_array_i2 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+siany_i2 (gfc_array_i2 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 7bc70d1d5eb36b5ebf9e575fa16f308f81de066a..d4c824f6d1452e0beb4994549f5a9e679f9eace0 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void iany_i4 (gfc_array_i4 * const restrict, 
+extern void iany_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict);
 export_proto(iany_i4);
 
 void
-iany_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
+iany_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iany_i4 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void miany_i4 (gfc_array_i4 * const restrict, 
+extern void miany_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(miany_i4);
 
 void
-miany_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+miany_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miany_i4 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void siany_i4 (gfc_array_i4 * const restrict, 
+extern void siany_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(siany_i4);
 
 void
-siany_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+siany_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 4165061e689bdc1e36b87936e7c58476abca4fb5..cebeec24656d3e9fd4f3e4c456fefe257772d7ec 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void iany_i8 (gfc_array_i8 * const restrict, 
+extern void iany_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict);
 export_proto(iany_i8);
 
 void
-iany_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
+iany_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iany_i8 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void miany_i8 (gfc_array_i8 * const restrict, 
+extern void miany_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(miany_i8);
 
 void
-miany_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+miany_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miany_i8 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void siany_i8 (gfc_array_i8 * const restrict, 
+extern void siany_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(siany_i8);
 
 void
-siany_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+siany_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index f3ec3287fafe3e932db396adea2d8e51815571b2..b7cdb3e995f6ff60c04f94dfc24ef83a8ec26e8b 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1)
 
 
-extern void iparity_i1 (gfc_array_i1 * const restrict, 
+extern void iparity_i1 (gfc_array_i1 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict);
 export_proto(iparity_i1);
 
 void
-iparity_i1 (gfc_array_i1 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
+iparity_i1 (gfc_array_i1 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iparity_i1 (gfc_array_i1 * const restrict retarray,
 }
 
 
-extern void miparity_i1 (gfc_array_i1 * const restrict, 
+extern void miparity_i1 (gfc_array_i1 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(miparity_i1);
 
 void
-miparity_i1 (gfc_array_i1 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+miparity_i1 (gfc_array_i1 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miparity_i1 (gfc_array_i1 * const restrict retarray,
 }
 
 
-extern void siparity_i1 (gfc_array_i1 * const restrict, 
+extern void siparity_i1 (gfc_array_i1 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(siparity_i1);
 
 void
-siparity_i1 (gfc_array_i1 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+siparity_i1 (gfc_array_i1 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 1111bbc5c6df44ed94ed35ad17531e9197b358e9..f6272638f2ef21eff1dc601d0b5b256bc635e143 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void iparity_i16 (gfc_array_i16 * const restrict, 
+extern void iparity_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict);
 export_proto(iparity_i16);
 
 void
-iparity_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
+iparity_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iparity_i16 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void miparity_i16 (gfc_array_i16 * const restrict, 
+extern void miparity_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(miparity_i16);
 
 void
-miparity_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+miparity_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miparity_i16 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void siparity_i16 (gfc_array_i16 * const restrict, 
+extern void siparity_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(siparity_i16);
 
 void
-siparity_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+siparity_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index ef0a9e7d948b901113ab373852148b15872807e2..4481a04c2f88fe001c392a8e7cc51ba30c9b9fd9 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2)
 
 
-extern void iparity_i2 (gfc_array_i2 * const restrict, 
+extern void iparity_i2 (gfc_array_i2 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict);
 export_proto(iparity_i2);
 
 void
-iparity_i2 (gfc_array_i2 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
+iparity_i2 (gfc_array_i2 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iparity_i2 (gfc_array_i2 * const restrict retarray,
 }
 
 
-extern void miparity_i2 (gfc_array_i2 * const restrict, 
+extern void miparity_i2 (gfc_array_i2 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(miparity_i2);
 
 void
-miparity_i2 (gfc_array_i2 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+miparity_i2 (gfc_array_i2 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miparity_i2 (gfc_array_i2 * const restrict retarray,
 }
 
 
-extern void siparity_i2 (gfc_array_i2 * const restrict, 
+extern void siparity_i2 (gfc_array_i2 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(siparity_i2);
 
 void
-siparity_i2 (gfc_array_i2 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+siparity_i2 (gfc_array_i2 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 189d820c2de881764df267d0d886030dfbfc2c2d..e0c65dd207b0dcdd482c3ee58f70c0632797a8ed 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void iparity_i4 (gfc_array_i4 * const restrict, 
+extern void iparity_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict);
 export_proto(iparity_i4);
 
 void
-iparity_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
+iparity_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iparity_i4 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void miparity_i4 (gfc_array_i4 * const restrict, 
+extern void miparity_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(miparity_i4);
 
 void
-miparity_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+miparity_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miparity_i4 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void siparity_i4 (gfc_array_i4 * const restrict, 
+extern void siparity_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(siparity_i4);
 
 void
-siparity_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+siparity_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 1d2f33bdfe2e70c46974c15b5648d9d77f2bfc67..f2feec9fae8af2214765c6213339a47837ccaed0 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void iparity_i8 (gfc_array_i8 * const restrict, 
+extern void iparity_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict);
 export_proto(iparity_i8);
 
 void
-iparity_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
+iparity_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iparity_i8 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void miparity_i8 (gfc_array_i8 * const restrict, 
+extern void miparity_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(miparity_i8);
 
 void
-miparity_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+miparity_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miparity_i8 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void siparity_i8 (gfc_array_i8 * const restrict, 
+extern void siparity_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(siparity_i8);
 
 void
-siparity_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+siparity_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 7094a5f80e949b83a01110f70a0b7f649c856667..6e084809027d64efff0f8226a7ffdc8ec1f10b43 100644 (file)
@@ -49,7 +49,7 @@ matmul_c10_avx128_fma3 (gfc_array_c10 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
 internal_proto(matmul_c10_avx128_fma3);
 void
-matmul_c10_avx128_fma3 (gfc_array_c10 * const restrict retarray, 
+matmul_c10_avx128_fma3 (gfc_array_c10 * const restrict retarray,
        gfc_array_c10 * const restrict a, gfc_array_c10 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
@@ -619,7 +619,7 @@ matmul_c10_avx128_fma4 (gfc_array_c10 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
 internal_proto(matmul_c10_avx128_fma4);
 void
-matmul_c10_avx128_fma4 (gfc_array_c10 * const restrict retarray, 
+matmul_c10_avx128_fma4 (gfc_array_c10 * const restrict retarray,
        gfc_array_c10 * const restrict a, gfc_array_c10 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
index 4a1a3408be95eefd5c27f8850701a98962c9e801..57d24ec0b586cecc6298cc142382c6a4b401d68e 100644 (file)
@@ -49,7 +49,7 @@ matmul_c16_avx128_fma3 (gfc_array_c16 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
 internal_proto(matmul_c16_avx128_fma3);
 void
-matmul_c16_avx128_fma3 (gfc_array_c16 * const restrict retarray, 
+matmul_c16_avx128_fma3 (gfc_array_c16 * const restrict retarray,
        gfc_array_c16 * const restrict a, gfc_array_c16 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
@@ -619,7 +619,7 @@ matmul_c16_avx128_fma4 (gfc_array_c16 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
 internal_proto(matmul_c16_avx128_fma4);
 void
-matmul_c16_avx128_fma4 (gfc_array_c16 * const restrict retarray, 
+matmul_c16_avx128_fma4 (gfc_array_c16 * const restrict retarray,
        gfc_array_c16 * const restrict a, gfc_array_c16 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
index 52b3c0df62f15ea0b9a2e18fd87ded0440aecc71..7d54c0dc655faf8b115d03196da72b05a4557cb7 100644 (file)
@@ -49,7 +49,7 @@ matmul_c17_avx128_fma3 (gfc_array_c17 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
 internal_proto(matmul_c17_avx128_fma3);
 void
-matmul_c17_avx128_fma3 (gfc_array_c17 * const restrict retarray, 
+matmul_c17_avx128_fma3 (gfc_array_c17 * const restrict retarray,
        gfc_array_c17 * const restrict a, gfc_array_c17 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
@@ -619,7 +619,7 @@ matmul_c17_avx128_fma4 (gfc_array_c17 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
 internal_proto(matmul_c17_avx128_fma4);
 void
-matmul_c17_avx128_fma4 (gfc_array_c17 * const restrict retarray, 
+matmul_c17_avx128_fma4 (gfc_array_c17 * const restrict retarray,
        gfc_array_c17 * const restrict a, gfc_array_c17 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
index f0014cc89e2639ffc2a997f657994d78ed2592d3..a7708c5a1f74a84cfd15c3b70c2d15e43b1583a5 100644 (file)
@@ -49,7 +49,7 @@ matmul_c4_avx128_fma3 (gfc_array_c4 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
 internal_proto(matmul_c4_avx128_fma3);
 void
-matmul_c4_avx128_fma3 (gfc_array_c4 * const restrict retarray, 
+matmul_c4_avx128_fma3 (gfc_array_c4 * const restrict retarray,
        gfc_array_c4 * const restrict a, gfc_array_c4 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
@@ -619,7 +619,7 @@ matmul_c4_avx128_fma4 (gfc_array_c4 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
 internal_proto(matmul_c4_avx128_fma4);
 void
-matmul_c4_avx128_fma4 (gfc_array_c4 * const restrict retarray, 
+matmul_c4_avx128_fma4 (gfc_array_c4 * const restrict retarray,
        gfc_array_c4 * const restrict a, gfc_array_c4 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
index 94764a9c38b7c29ecde92b49ace6e37f27ca6f59..b0d325fba59562939e31a9aa174ce21438f74eb1 100644 (file)
@@ -49,7 +49,7 @@ matmul_c8_avx128_fma3 (gfc_array_c8 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
 internal_proto(matmul_c8_avx128_fma3);
 void
-matmul_c8_avx128_fma3 (gfc_array_c8 * const restrict retarray, 
+matmul_c8_avx128_fma3 (gfc_array_c8 * const restrict retarray,
        gfc_array_c8 * const restrict a, gfc_array_c8 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
@@ -619,7 +619,7 @@ matmul_c8_avx128_fma4 (gfc_array_c8 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
 internal_proto(matmul_c8_avx128_fma4);
 void
-matmul_c8_avx128_fma4 (gfc_array_c8 * const restrict retarray, 
+matmul_c8_avx128_fma4 (gfc_array_c8 * const restrict retarray,
        gfc_array_c8 * const restrict a, gfc_array_c8 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
index 3ab8eda71b3f68ab17adcf5808c4ea85b053d8e9..f5e5befad90b472663dcba6607e7dd0d5c7bc12a 100644 (file)
@@ -49,7 +49,7 @@ matmul_i1_avx128_fma3 (gfc_array_i1 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
 internal_proto(matmul_i1_avx128_fma3);
 void
-matmul_i1_avx128_fma3 (gfc_array_i1 * const restrict retarray, 
+matmul_i1_avx128_fma3 (gfc_array_i1 * const restrict retarray,
        gfc_array_i1 * const restrict a, gfc_array_i1 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
@@ -619,7 +619,7 @@ matmul_i1_avx128_fma4 (gfc_array_i1 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
 internal_proto(matmul_i1_avx128_fma4);
 void
-matmul_i1_avx128_fma4 (gfc_array_i1 * const restrict retarray, 
+matmul_i1_avx128_fma4 (gfc_array_i1 * const restrict retarray,
        gfc_array_i1 * const restrict a, gfc_array_i1 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
index c8ef87e019c2437b0e9f7765d90a356585b66c9e..f686f7ad44cc7597eb60598c1936e35a6fbaa3f7 100644 (file)
@@ -49,7 +49,7 @@ matmul_i16_avx128_fma3 (gfc_array_i16 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
 internal_proto(matmul_i16_avx128_fma3);
 void
-matmul_i16_avx128_fma3 (gfc_array_i16 * const restrict retarray, 
+matmul_i16_avx128_fma3 (gfc_array_i16 * const restrict retarray,
        gfc_array_i16 * const restrict a, gfc_array_i16 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
@@ -619,7 +619,7 @@ matmul_i16_avx128_fma4 (gfc_array_i16 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
 internal_proto(matmul_i16_avx128_fma4);
 void
-matmul_i16_avx128_fma4 (gfc_array_i16 * const restrict retarray, 
+matmul_i16_avx128_fma4 (gfc_array_i16 * const restrict retarray,
        gfc_array_i16 * const restrict a, gfc_array_i16 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
index 88f3452724985eef5f4e0b4918aa4b8e16352e42..f6a162d1e4161000e85638d313df11a9730031d1 100644 (file)
@@ -49,7 +49,7 @@ matmul_i2_avx128_fma3 (gfc_array_i2 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
 internal_proto(matmul_i2_avx128_fma3);
 void
-matmul_i2_avx128_fma3 (gfc_array_i2 * const restrict retarray, 
+matmul_i2_avx128_fma3 (gfc_array_i2 * const restrict retarray,
        gfc_array_i2 * const restrict a, gfc_array_i2 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
@@ -619,7 +619,7 @@ matmul_i2_avx128_fma4 (gfc_array_i2 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
 internal_proto(matmul_i2_avx128_fma4);
 void
-matmul_i2_avx128_fma4 (gfc_array_i2 * const restrict retarray, 
+matmul_i2_avx128_fma4 (gfc_array_i2 * const restrict retarray,
        gfc_array_i2 * const restrict a, gfc_array_i2 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
index 272692e5351f84be7490d4a3fc3a9ddd4ac940b5..0a28e4ba0593dafbb63b87bf1f940abcebda7865 100644 (file)
@@ -49,7 +49,7 @@ matmul_i4_avx128_fma3 (gfc_array_i4 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
 internal_proto(matmul_i4_avx128_fma3);
 void
-matmul_i4_avx128_fma3 (gfc_array_i4 * const restrict retarray, 
+matmul_i4_avx128_fma3 (gfc_array_i4 * const restrict retarray,
        gfc_array_i4 * const restrict a, gfc_array_i4 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
@@ -619,7 +619,7 @@ matmul_i4_avx128_fma4 (gfc_array_i4 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
 internal_proto(matmul_i4_avx128_fma4);
 void
-matmul_i4_avx128_fma4 (gfc_array_i4 * const restrict retarray, 
+matmul_i4_avx128_fma4 (gfc_array_i4 * const restrict retarray,
        gfc_array_i4 * const restrict a, gfc_array_i4 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
index a1db25b3069090422cb3161d3bef2626529e9524..a077a26a701dbf1aa4ae71f5ba81ed0256885f63 100644 (file)
@@ -49,7 +49,7 @@ matmul_i8_avx128_fma3 (gfc_array_i8 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
 internal_proto(matmul_i8_avx128_fma3);
 void
-matmul_i8_avx128_fma3 (gfc_array_i8 * const restrict retarray, 
+matmul_i8_avx128_fma3 (gfc_array_i8 * const restrict retarray,
        gfc_array_i8 * const restrict a, gfc_array_i8 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
@@ -619,7 +619,7 @@ matmul_i8_avx128_fma4 (gfc_array_i8 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
 internal_proto(matmul_i8_avx128_fma4);
 void
-matmul_i8_avx128_fma4 (gfc_array_i8 * const restrict retarray, 
+matmul_i8_avx128_fma4 (gfc_array_i8 * const restrict retarray,
        gfc_array_i8 * const restrict a, gfc_array_i8 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
index 8d164d0049c6a7458fefaa9446cddb00e81d8aad..31c62bab4b71e39ff3c2b9ffa929d10cee43d985 100644 (file)
@@ -49,7 +49,7 @@ matmul_r10_avx128_fma3 (gfc_array_r10 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
 internal_proto(matmul_r10_avx128_fma3);
 void
-matmul_r10_avx128_fma3 (gfc_array_r10 * const restrict retarray, 
+matmul_r10_avx128_fma3 (gfc_array_r10 * const restrict retarray,
        gfc_array_r10 * const restrict a, gfc_array_r10 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
@@ -619,7 +619,7 @@ matmul_r10_avx128_fma4 (gfc_array_r10 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
 internal_proto(matmul_r10_avx128_fma4);
 void
-matmul_r10_avx128_fma4 (gfc_array_r10 * const restrict retarray, 
+matmul_r10_avx128_fma4 (gfc_array_r10 * const restrict retarray,
        gfc_array_r10 * const restrict a, gfc_array_r10 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
index ee536b53390d8bdb3c32ce4a14eb8c7ca0764f59..1ed5516d1ed7c0136dec6647059f0245bd3e67c5 100644 (file)
@@ -49,7 +49,7 @@ matmul_r16_avx128_fma3 (gfc_array_r16 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
 internal_proto(matmul_r16_avx128_fma3);
 void
-matmul_r16_avx128_fma3 (gfc_array_r16 * const restrict retarray, 
+matmul_r16_avx128_fma3 (gfc_array_r16 * const restrict retarray,
        gfc_array_r16 * const restrict a, gfc_array_r16 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
@@ -619,7 +619,7 @@ matmul_r16_avx128_fma4 (gfc_array_r16 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
 internal_proto(matmul_r16_avx128_fma4);
 void
-matmul_r16_avx128_fma4 (gfc_array_r16 * const restrict retarray, 
+matmul_r16_avx128_fma4 (gfc_array_r16 * const restrict retarray,
        gfc_array_r16 * const restrict a, gfc_array_r16 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
index b45f3b36be9ff9cf3658ffa7186579b999133628..f1e58521204c742dc9857fd3d80a193dee895236 100644 (file)
@@ -49,7 +49,7 @@ matmul_r17_avx128_fma3 (gfc_array_r17 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
 internal_proto(matmul_r17_avx128_fma3);
 void
-matmul_r17_avx128_fma3 (gfc_array_r17 * const restrict retarray, 
+matmul_r17_avx128_fma3 (gfc_array_r17 * const restrict retarray,
        gfc_array_r17 * const restrict a, gfc_array_r17 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
@@ -619,7 +619,7 @@ matmul_r17_avx128_fma4 (gfc_array_r17 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
 internal_proto(matmul_r17_avx128_fma4);
 void
-matmul_r17_avx128_fma4 (gfc_array_r17 * const restrict retarray, 
+matmul_r17_avx128_fma4 (gfc_array_r17 * const restrict retarray,
        gfc_array_r17 * const restrict a, gfc_array_r17 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
index 104b1df35eb772b370a15fc09d8106471c3e636f..5372623c65d33c176efb7e3944d28354563afe24 100644 (file)
@@ -49,7 +49,7 @@ matmul_r4_avx128_fma3 (gfc_array_r4 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
 internal_proto(matmul_r4_avx128_fma3);
 void
-matmul_r4_avx128_fma3 (gfc_array_r4 * const restrict retarray, 
+matmul_r4_avx128_fma3 (gfc_array_r4 * const restrict retarray,
        gfc_array_r4 * const restrict a, gfc_array_r4 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
@@ -619,7 +619,7 @@ matmul_r4_avx128_fma4 (gfc_array_r4 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
 internal_proto(matmul_r4_avx128_fma4);
 void
-matmul_r4_avx128_fma4 (gfc_array_r4 * const restrict retarray, 
+matmul_r4_avx128_fma4 (gfc_array_r4 * const restrict retarray,
        gfc_array_r4 * const restrict a, gfc_array_r4 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
index f76301dec03282f91c4da31101a2701ce508ab44..ee7bc4a28ab8ed72024c60f85aafe500ed1ea264 100644 (file)
@@ -49,7 +49,7 @@ matmul_r8_avx128_fma3 (gfc_array_r8 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
 internal_proto(matmul_r8_avx128_fma3);
 void
-matmul_r8_avx128_fma3 (gfc_array_r8 * const restrict retarray, 
+matmul_r8_avx128_fma3 (gfc_array_r8 * const restrict retarray,
        gfc_array_r8 * const restrict a, gfc_array_r8 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
@@ -619,7 +619,7 @@ matmul_r8_avx128_fma4 (gfc_array_r8 * const restrict retarray,
        int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
 internal_proto(matmul_r8_avx128_fma4);
 void
-matmul_r8_avx128_fma4 (gfc_array_r8 * const restrict retarray, 
+matmul_r8_avx128_fma4 (gfc_array_r8 * const restrict retarray,
        gfc_array_r8 * const restrict a, gfc_array_r8 * const restrict b, int try_blas,
        int blas_limit, blas_call gemm)
 {
index 853fe3fcf43e3b3dc0c71b4e216a3a7462c76bfd..31e17c443e8e145ce762e8342c7c3054eba729d1 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_16_i1 (gfc_array_i16 * const restrict, 
+extern void maxloc1_16_i1 (gfc_array_i16 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_16_i1);
 
 void
-maxloc1_16_i1 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
+maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_16_i1 (gfc_array_i16 * const restrict, 
+extern void mmaxloc1_16_i1 (gfc_array_i16 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_16_i1);
 
 void
-mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void smaxloc1_16_i1 (gfc_array_i16 * const restrict, 
+extern void smaxloc1_16_i1 (gfc_array_i16 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_16_i1);
 
 void
-smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 96f76ac08f662f4b279c92b2760f399012caaf29..227ab99fecdf88310f73e117822ff0ddca48409b 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_16_i16 (gfc_array_i16 * const restrict, 
+extern void maxloc1_16_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_16_i16);
 
 void
-maxloc1_16_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
+maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_16_i16 (gfc_array_i16 * const restrict, 
+extern void mmaxloc1_16_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_16_i16);
 
 void
-mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void smaxloc1_16_i16 (gfc_array_i16 * const restrict, 
+extern void smaxloc1_16_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_16_i16);
 
 void
-smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index a2861511b1ec1a28ebeb68f846954885f3caf638..40fbf8bf153fbec2df73199fdd23872f04c095b0 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_16_i2 (gfc_array_i16 * const restrict, 
+extern void maxloc1_16_i2 (gfc_array_i16 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_16_i2);
 
 void
-maxloc1_16_i2 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
+maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_16_i2 (gfc_array_i16 * const restrict, 
+extern void mmaxloc1_16_i2 (gfc_array_i16 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_16_i2);
 
 void
-mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void smaxloc1_16_i2 (gfc_array_i16 * const restrict, 
+extern void smaxloc1_16_i2 (gfc_array_i16 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_16_i2);
 
 void
-smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index ad9de409f46f7f2ee6136afe44bace056e5308e0..28f1f4f743fd543c821a429493a2cfcdbdf85bdd 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_16_i4 (gfc_array_i16 * const restrict, 
+extern void maxloc1_16_i4 (gfc_array_i16 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_16_i4);
 
 void
-maxloc1_16_i4 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
+maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_16_i4 (gfc_array_i16 * const restrict, 
+extern void mmaxloc1_16_i4 (gfc_array_i16 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_16_i4);
 
 void
-mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void smaxloc1_16_i4 (gfc_array_i16 * const restrict, 
+extern void smaxloc1_16_i4 (gfc_array_i16 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_16_i4);
 
 void
-smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 6439eedbd5117259813a5d623d240b5b29b2fc38..ee97c1ac552d3b056f9da98fe7c835d7f608c0c6 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_16_i8 (gfc_array_i16 * const restrict, 
+extern void maxloc1_16_i8 (gfc_array_i16 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_16_i8);
 
 void
-maxloc1_16_i8 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
+maxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_16_i8 (gfc_array_i16 * const restrict, 
+extern void mmaxloc1_16_i8 (gfc_array_i16 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_16_i8);
 
 void
-mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void smaxloc1_16_i8 (gfc_array_i16 * const restrict, 
+extern void smaxloc1_16_i8 (gfc_array_i16 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_16_i8);
 
 void
-smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 24627139825565a73ea2b910f667f71a14cd02dc..87b56477149c86b2d49affd3cc16e9831dfa5028 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_16_r10 (gfc_array_i16 * const restrict, 
+extern void maxloc1_16_r10 (gfc_array_i16 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_16_r10);
 
 void
-maxloc1_16_r10 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
+maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_16_r10 (gfc_array_i16 * const restrict, 
+extern void mmaxloc1_16_r10 (gfc_array_i16 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_16_r10);
 
 void
-mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void smaxloc1_16_r10 (gfc_array_i16 * const restrict, 
+extern void smaxloc1_16_r10 (gfc_array_i16 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_16_r10);
 
 void
-smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 5ad73be9702d2ba8bef8e0ac8cafec22ab8c6246..2bc6edb85bfa8a1b8ec5529446c6b26e27fa13c0 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_16_r16 (gfc_array_i16 * const restrict, 
+extern void maxloc1_16_r16 (gfc_array_i16 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_16_r16);
 
 void
-maxloc1_16_r16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
+maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_16_r16 (gfc_array_i16 * const restrict, 
+extern void mmaxloc1_16_r16 (gfc_array_i16 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_16_r16);
 
 void
-mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void smaxloc1_16_r16 (gfc_array_i16 * const restrict, 
+extern void smaxloc1_16_r16 (gfc_array_i16 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_16_r16);
 
 void
-smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 4444d41b83a5b51002c39ed801082bdab2e2b577..ce5259897199ef5f812809237e7b000c94913606 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_16_r17 (gfc_array_i16 * const restrict, 
+extern void maxloc1_16_r17 (gfc_array_i16 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_16_r17);
 
 void
-maxloc1_16_r17 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
+maxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_16_r17 (gfc_array_i16 * const restrict, 
+extern void mmaxloc1_16_r17 (gfc_array_i16 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_16_r17);
 
 void
-mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void smaxloc1_16_r17 (gfc_array_i16 * const restrict, 
+extern void smaxloc1_16_r17 (gfc_array_i16 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_16_r17);
 
 void
-smaxloc1_16_r17 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 0be7ad1b78f389d808de0c4058926f13fff04afe..5ae022f0b34f3544d1570c4c8b8cf19d084cc1a1 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_16_r4 (gfc_array_i16 * const restrict, 
+extern void maxloc1_16_r4 (gfc_array_i16 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_16_r4);
 
 void
-maxloc1_16_r4 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
+maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_16_r4 (gfc_array_i16 * const restrict, 
+extern void mmaxloc1_16_r4 (gfc_array_i16 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_16_r4);
 
 void
-mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void smaxloc1_16_r4 (gfc_array_i16 * const restrict, 
+extern void smaxloc1_16_r4 (gfc_array_i16 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_16_r4);
 
 void
-smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index fd3dae9335265b8331df060a17dbfc96b19ec308..cf2e12643be0dfaeaebe5df0613a05f58720fa8d 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_16_r8 (gfc_array_i16 * const restrict, 
+extern void maxloc1_16_r8 (gfc_array_i16 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_16_r8);
 
 void
-maxloc1_16_r8 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
+maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_16_r8 (gfc_array_i16 * const restrict, 
+extern void mmaxloc1_16_r8 (gfc_array_i16 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_16_r8);
 
 void
-mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void smaxloc1_16_r8 (gfc_array_i16 * const restrict, 
+extern void smaxloc1_16_r8 (gfc_array_i16 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_16_r8);
 
 void
-smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 664c1db6397481ee5b87abc86c3116955c14792e..a54feb4afbd5bd8e140f0126d88da1bbed44a3ed 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_4_i1 (gfc_array_i4 * const restrict, 
+extern void maxloc1_4_i1 (gfc_array_i4 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_4_i1);
 
 void
-maxloc1_4_i1 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
+maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_4_i1 (gfc_array_i4 * const restrict, 
+extern void mmaxloc1_4_i1 (gfc_array_i4 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_4_i1);
 
 void
-mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void smaxloc1_4_i1 (gfc_array_i4 * const restrict, 
+extern void smaxloc1_4_i1 (gfc_array_i4 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_4_i1);
 
 void
-smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 1f07aa0c9dd928225b8286bc307e60c7049ed7bd..cb866c0c4298305f49bfeb4d3467e0dd3a94adce 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_4_i16 (gfc_array_i4 * const restrict, 
+extern void maxloc1_4_i16 (gfc_array_i4 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_4_i16);
 
 void
-maxloc1_4_i16 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
+maxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_4_i16 (gfc_array_i4 * const restrict, 
+extern void mmaxloc1_4_i16 (gfc_array_i4 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_4_i16);
 
 void
-mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void smaxloc1_4_i16 (gfc_array_i4 * const restrict, 
+extern void smaxloc1_4_i16 (gfc_array_i4 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_4_i16);
 
 void
-smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index f7152f1b8b1adec9b3aa2ea5cff7b4a31510e36a..45aa9a1e9cd98eab7d0958cd66d7a842bf41d31a 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_4_i2 (gfc_array_i4 * const restrict, 
+extern void maxloc1_4_i2 (gfc_array_i4 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_4_i2);
 
 void
-maxloc1_4_i2 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
+maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_4_i2 (gfc_array_i4 * const restrict, 
+extern void mmaxloc1_4_i2 (gfc_array_i4 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_4_i2);
 
 void
-mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void smaxloc1_4_i2 (gfc_array_i4 * const restrict, 
+extern void smaxloc1_4_i2 (gfc_array_i4 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_4_i2);
 
 void
-smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index e5d348417f4cf8605d4ce04ebdbbfe0db783957b..ae966d8f76ad69f9e1f4be9df97980d0ab80ce49 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_4_i4 (gfc_array_i4 * const restrict, 
+extern void maxloc1_4_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_4_i4);
 
 void
-maxloc1_4_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
+maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_4_i4 (gfc_array_i4 * const restrict, 
+extern void mmaxloc1_4_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_4_i4);
 
 void
-mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void smaxloc1_4_i4 (gfc_array_i4 * const restrict, 
+extern void smaxloc1_4_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_4_i4);
 
 void
-smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index bcc3445683dc8f4384519afd70cdd82cc1332b32..31bff23b62004cd352fff361bbca1efb556a86dc 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_4_i8 (gfc_array_i4 * const restrict, 
+extern void maxloc1_4_i8 (gfc_array_i4 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_4_i8);
 
 void
-maxloc1_4_i8 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
+maxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_4_i8 (gfc_array_i4 * const restrict, 
+extern void mmaxloc1_4_i8 (gfc_array_i4 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_4_i8);
 
 void
-mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void smaxloc1_4_i8 (gfc_array_i4 * const restrict, 
+extern void smaxloc1_4_i8 (gfc_array_i4 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_4_i8);
 
 void
-smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 0b0ac4bc455de7e82d204829d3dcf624606c065d..fdab042711431e06718e7be81d4e0efa5b18ff35 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_4_r10 (gfc_array_i4 * const restrict, 
+extern void maxloc1_4_r10 (gfc_array_i4 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_4_r10);
 
 void
-maxloc1_4_r10 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
+maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_4_r10 (gfc_array_i4 * const restrict, 
+extern void mmaxloc1_4_r10 (gfc_array_i4 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_4_r10);
 
 void
-mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void smaxloc1_4_r10 (gfc_array_i4 * const restrict, 
+extern void smaxloc1_4_r10 (gfc_array_i4 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_4_r10);
 
 void
-smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index ffc1e4defbca1aa450d4f89cd79421575eabd76a..9eedf782116ee9c3b33460ebd09cdec558d7ce82 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_4_r16 (gfc_array_i4 * const restrict, 
+extern void maxloc1_4_r16 (gfc_array_i4 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_4_r16);
 
 void
-maxloc1_4_r16 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
+maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_4_r16 (gfc_array_i4 * const restrict, 
+extern void mmaxloc1_4_r16 (gfc_array_i4 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_4_r16);
 
 void
-mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void smaxloc1_4_r16 (gfc_array_i4 * const restrict, 
+extern void smaxloc1_4_r16 (gfc_array_i4 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_4_r16);
 
 void
-smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index f59a9eeb47d04a02d4e64b4185fbe6c2bedbbfef..516268e4beb0b07d430012a2408f5f22ab68a009 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_4_r17 (gfc_array_i4 * const restrict, 
+extern void maxloc1_4_r17 (gfc_array_i4 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_4_r17);
 
 void
-maxloc1_4_r17 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
+maxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_4_r17 (gfc_array_i4 * const restrict, 
+extern void mmaxloc1_4_r17 (gfc_array_i4 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_4_r17);
 
 void
-mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void smaxloc1_4_r17 (gfc_array_i4 * const restrict, 
+extern void smaxloc1_4_r17 (gfc_array_i4 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_4_r17);
 
 void
-smaxloc1_4_r17 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index bd9343fdc37d5937bba7f97efb8aa265b24a7bc7..1ccc30ca4cc8e921bcb3653ed67a7277cbe1f72a 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_4_r4 (gfc_array_i4 * const restrict, 
+extern void maxloc1_4_r4 (gfc_array_i4 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_4_r4);
 
 void
-maxloc1_4_r4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
+maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_4_r4 (gfc_array_i4 * const restrict, 
+extern void mmaxloc1_4_r4 (gfc_array_i4 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_4_r4);
 
 void
-mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void smaxloc1_4_r4 (gfc_array_i4 * const restrict, 
+extern void smaxloc1_4_r4 (gfc_array_i4 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_4_r4);
 
 void
-smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index a63ae6af463c96fe697a3d5f1c33a0ac8666c299..86da06456cbc9e467bf4cdce0347db7fc29768d4 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_4_r8 (gfc_array_i4 * const restrict, 
+extern void maxloc1_4_r8 (gfc_array_i4 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_4_r8);
 
 void
-maxloc1_4_r8 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
+maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_4_r8 (gfc_array_i4 * const restrict, 
+extern void mmaxloc1_4_r8 (gfc_array_i4 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_4_r8);
 
 void
-mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void smaxloc1_4_r8 (gfc_array_i4 * const restrict, 
+extern void smaxloc1_4_r8 (gfc_array_i4 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_4_r8);
 
 void
-smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 01b30c9194f043fd3ec09914a7bb4918b90a5f61..bb745335bc98146ad49c45555d2115981cbe4c60 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_8_i1 (gfc_array_i8 * const restrict, 
+extern void maxloc1_8_i1 (gfc_array_i8 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_8_i1);
 
 void
-maxloc1_8_i1 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
+maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_8_i1 (gfc_array_i8 * const restrict, 
+extern void mmaxloc1_8_i1 (gfc_array_i8 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_8_i1);
 
 void
-mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void smaxloc1_8_i1 (gfc_array_i8 * const restrict, 
+extern void smaxloc1_8_i1 (gfc_array_i8 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_8_i1);
 
 void
-smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 6fa0ed3659b202a7dc42e2df4b43570d013b3029..6e8061a18bf6b76e14a2ed7325993139cb5ebdf9 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_8_i16 (gfc_array_i8 * const restrict, 
+extern void maxloc1_8_i16 (gfc_array_i8 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_8_i16);
 
 void
-maxloc1_8_i16 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
+maxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_8_i16 (gfc_array_i8 * const restrict, 
+extern void mmaxloc1_8_i16 (gfc_array_i8 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_8_i16);
 
 void
-mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void smaxloc1_8_i16 (gfc_array_i8 * const restrict, 
+extern void smaxloc1_8_i16 (gfc_array_i8 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_8_i16);
 
 void
-smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 93966137651f4a0f4f8d2e18397cbe2aaea2a4d2..ed4fda52494e391336a0f05bb002d31e8de6c04d 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_8_i2 (gfc_array_i8 * const restrict, 
+extern void maxloc1_8_i2 (gfc_array_i8 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_8_i2);
 
 void
-maxloc1_8_i2 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
+maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_8_i2 (gfc_array_i8 * const restrict, 
+extern void mmaxloc1_8_i2 (gfc_array_i8 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_8_i2);
 
 void
-mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void smaxloc1_8_i2 (gfc_array_i8 * const restrict, 
+extern void smaxloc1_8_i2 (gfc_array_i8 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_8_i2);
 
 void
-smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index baf6d9a5b9567bb993627520f54ad669aca3523a..4c708311b61778b9a7414225b1165903f000a029 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_8_i4 (gfc_array_i8 * const restrict, 
+extern void maxloc1_8_i4 (gfc_array_i8 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_8_i4);
 
 void
-maxloc1_8_i4 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
+maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_8_i4 (gfc_array_i8 * const restrict, 
+extern void mmaxloc1_8_i4 (gfc_array_i8 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_8_i4);
 
 void
-mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void smaxloc1_8_i4 (gfc_array_i8 * const restrict, 
+extern void smaxloc1_8_i4 (gfc_array_i8 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_8_i4);
 
 void
-smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index b72c973b0a25f3f479aefe4f2230e261884cb313..d0c34950fff4df43aa08a37ffa9514daf44ef7d8 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_8_i8 (gfc_array_i8 * const restrict, 
+extern void maxloc1_8_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_8_i8);
 
 void
-maxloc1_8_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
+maxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_8_i8 (gfc_array_i8 * const restrict, 
+extern void mmaxloc1_8_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_8_i8);
 
 void
-mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void smaxloc1_8_i8 (gfc_array_i8 * const restrict, 
+extern void smaxloc1_8_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_8_i8);
 
 void
-smaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index d593dd6a9409cf42840f2a5e6d72acb2bc1fc0d2..f67183f7238386059798ad22398d904df5cef1fb 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_8_r10 (gfc_array_i8 * const restrict, 
+extern void maxloc1_8_r10 (gfc_array_i8 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_8_r10);
 
 void
-maxloc1_8_r10 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
+maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_8_r10 (gfc_array_i8 * const restrict, 
+extern void mmaxloc1_8_r10 (gfc_array_i8 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_8_r10);
 
 void
-mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void smaxloc1_8_r10 (gfc_array_i8 * const restrict, 
+extern void smaxloc1_8_r10 (gfc_array_i8 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_8_r10);
 
 void
-smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 8a270d8f2dc78c027a83a25a440e34f52866a68f..6b2fc5989cd3dfcde1c08f279b56439632546411 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_8_r16 (gfc_array_i8 * const restrict, 
+extern void maxloc1_8_r16 (gfc_array_i8 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_8_r16);
 
 void
-maxloc1_8_r16 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
+maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_8_r16 (gfc_array_i8 * const restrict, 
+extern void mmaxloc1_8_r16 (gfc_array_i8 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_8_r16);
 
 void
-mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void smaxloc1_8_r16 (gfc_array_i8 * const restrict, 
+extern void smaxloc1_8_r16 (gfc_array_i8 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_8_r16);
 
 void
-smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 03a37c54ef96d839ac9d171101aa68b794cf45b9..65b480827dfa430af32e318f85068e6293a0354e 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_8_r17 (gfc_array_i8 * const restrict, 
+extern void maxloc1_8_r17 (gfc_array_i8 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_8_r17);
 
 void
-maxloc1_8_r17 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
+maxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_8_r17 (gfc_array_i8 * const restrict, 
+extern void mmaxloc1_8_r17 (gfc_array_i8 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_8_r17);
 
 void
-mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void smaxloc1_8_r17 (gfc_array_i8 * const restrict, 
+extern void smaxloc1_8_r17 (gfc_array_i8 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_8_r17);
 
 void
-smaxloc1_8_r17 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index b4917a3ec4de15f0b13c1dbd0f0f9ee925596787..844038c88e750d700746ee96c6354ef46f7a7dd0 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_8_r4 (gfc_array_i8 * const restrict, 
+extern void maxloc1_8_r4 (gfc_array_i8 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_8_r4);
 
 void
-maxloc1_8_r4 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
+maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_8_r4 (gfc_array_i8 * const restrict, 
+extern void mmaxloc1_8_r4 (gfc_array_i8 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_8_r4);
 
 void
-mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void smaxloc1_8_r4 (gfc_array_i8 * const restrict, 
+extern void smaxloc1_8_r4 (gfc_array_i8 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_8_r4);
 
 void
-smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index ed60a45738324806763914ed8e7048ee9d0a8adf..7e61bfe83a589ba3b7c523c3ede8f19fa06dcdc7 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void maxloc1_8_r8 (gfc_array_i8 * const restrict, 
+extern void maxloc1_8_r8 (gfc_array_i8 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(maxloc1_8_r8);
 
 void
-maxloc1_8_r8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
+maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mmaxloc1_8_r8 (gfc_array_i8 * const restrict, 
+extern void mmaxloc1_8_r8 (gfc_array_i8 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mmaxloc1_8_r8);
 
 void
-mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void smaxloc1_8_r8 (gfc_array_i8 * const restrict, 
+extern void smaxloc1_8_r8 (gfc_array_i8 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(smaxloc1_8_r8);
 
 void
-smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 984f7b04b1abf17b892e5a7e83116e984941aede..a7672ac9c84aa2a1dc2747c4049a6765d3677151 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1)
 
 
-extern void maxval_i1 (gfc_array_i1 * const restrict, 
+extern void maxval_i1 (gfc_array_i1 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict);
 export_proto(maxval_i1);
 
 void
-maxval_i1 (gfc_array_i1 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
+maxval_i1 (gfc_array_i1 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ maxval_i1 (gfc_array_i1 * const restrict retarray,
 }
 
 
-extern void mmaxval_i1 (gfc_array_i1 * const restrict, 
+extern void mmaxval_i1 (gfc_array_i1 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mmaxval_i1);
 
 void
-mmaxval_i1 (gfc_array_i1 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxval_i1 (gfc_array_i1 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_i1 (gfc_array_i1 * const restrict retarray,
 }
 
 
-extern void smaxval_i1 (gfc_array_i1 * const restrict, 
+extern void smaxval_i1 (gfc_array_i1 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(smaxval_i1);
 
 void
-smaxval_i1 (gfc_array_i1 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxval_i1 (gfc_array_i1 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 7effaa041771d201a870d2f08fcb018023e4aba2..1ab02452e17fa339bd52ef58b18d0ce2e511d1bb 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void maxval_i16 (gfc_array_i16 * const restrict, 
+extern void maxval_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict);
 export_proto(maxval_i16);
 
 void
-maxval_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
+maxval_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ maxval_i16 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mmaxval_i16 (gfc_array_i16 * const restrict, 
+extern void mmaxval_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mmaxval_i16);
 
 void
-mmaxval_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxval_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_i16 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void smaxval_i16 (gfc_array_i16 * const restrict, 
+extern void smaxval_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(smaxval_i16);
 
 void
-smaxval_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxval_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index f39f1e1925794bfd1261f4d4c03c46754aeb9add..8aa05bb475a73aa686a01871d6f054e7dfeed290 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2)
 
 
-extern void maxval_i2 (gfc_array_i2 * const restrict, 
+extern void maxval_i2 (gfc_array_i2 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict);
 export_proto(maxval_i2);
 
 void
-maxval_i2 (gfc_array_i2 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
+maxval_i2 (gfc_array_i2 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ maxval_i2 (gfc_array_i2 * const restrict retarray,
 }
 
 
-extern void mmaxval_i2 (gfc_array_i2 * const restrict, 
+extern void mmaxval_i2 (gfc_array_i2 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mmaxval_i2);
 
 void
-mmaxval_i2 (gfc_array_i2 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxval_i2 (gfc_array_i2 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_i2 (gfc_array_i2 * const restrict retarray,
 }
 
 
-extern void smaxval_i2 (gfc_array_i2 * const restrict, 
+extern void smaxval_i2 (gfc_array_i2 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(smaxval_i2);
 
 void
-smaxval_i2 (gfc_array_i2 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxval_i2 (gfc_array_i2 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 95aff8c6854688b16c60f9f01751da69c753d88f..a1493032022ac901cb8f6fdd79134a35a2b05834 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void maxval_i4 (gfc_array_i4 * const restrict, 
+extern void maxval_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict);
 export_proto(maxval_i4);
 
 void
-maxval_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
+maxval_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ maxval_i4 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mmaxval_i4 (gfc_array_i4 * const restrict, 
+extern void mmaxval_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mmaxval_i4);
 
 void
-mmaxval_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxval_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void smaxval_i4 (gfc_array_i4 * const restrict, 
+extern void smaxval_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(smaxval_i4);
 
 void
-smaxval_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxval_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 17433359d0d03e81e1bb2229858c4e4cf543b3ce..42746ce53a7331091a107710488a621d939817bf 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void maxval_i8 (gfc_array_i8 * const restrict, 
+extern void maxval_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict);
 export_proto(maxval_i8);
 
 void
-maxval_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
+maxval_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ maxval_i8 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mmaxval_i8 (gfc_array_i8 * const restrict, 
+extern void mmaxval_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mmaxval_i8);
 
 void
-mmaxval_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxval_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void smaxval_i8 (gfc_array_i8 * const restrict, 
+extern void smaxval_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(smaxval_i8);
 
 void
-smaxval_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxval_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index dbf68993211d093dee963bd7938eddc8266ee243..7488db0c50a7e4aca84e62c5364f3c9ad56825a2 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_REAL_10)
 
 
-extern void maxval_r10 (gfc_array_r10 * const restrict, 
+extern void maxval_r10 (gfc_array_r10 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict);
 export_proto(maxval_r10);
 
 void
-maxval_r10 (gfc_array_r10 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
+maxval_r10 (gfc_array_r10 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ maxval_r10 (gfc_array_r10 * const restrict retarray,
 }
 
 
-extern void mmaxval_r10 (gfc_array_r10 * const restrict, 
+extern void mmaxval_r10 (gfc_array_r10 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mmaxval_r10);
 
 void
-mmaxval_r10 (gfc_array_r10 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxval_r10 (gfc_array_r10 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_r10 (gfc_array_r10 * const restrict retarray,
 }
 
 
-extern void smaxval_r10 (gfc_array_r10 * const restrict, 
+extern void smaxval_r10 (gfc_array_r10 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(smaxval_r10);
 
 void
-smaxval_r10 (gfc_array_r10 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxval_r10 (gfc_array_r10 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 73cb64f2ac29008267768cfd295c60df0d4d1cb3..c735944b4dfd877c5ad9dad90e5532b68dfd53fa 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_REAL_16)
 
 
-extern void maxval_r16 (gfc_array_r16 * const restrict, 
+extern void maxval_r16 (gfc_array_r16 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict);
 export_proto(maxval_r16);
 
 void
-maxval_r16 (gfc_array_r16 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
+maxval_r16 (gfc_array_r16 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ maxval_r16 (gfc_array_r16 * const restrict retarray,
 }
 
 
-extern void mmaxval_r16 (gfc_array_r16 * const restrict, 
+extern void mmaxval_r16 (gfc_array_r16 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mmaxval_r16);
 
 void
-mmaxval_r16 (gfc_array_r16 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxval_r16 (gfc_array_r16 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_r16 (gfc_array_r16 * const restrict retarray,
 }
 
 
-extern void smaxval_r16 (gfc_array_r16 * const restrict, 
+extern void smaxval_r16 (gfc_array_r16 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(smaxval_r16);
 
 void
-smaxval_r16 (gfc_array_r16 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxval_r16 (gfc_array_r16 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 07cbbe18088c56b444efbf33f7feb91e5baa4ae3..9e47d650688701db8c2332abf9ebca9eb17f2468 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_REAL_17) && defined (HAVE_GFC_REAL_17)
 
 
-extern void maxval_r17 (gfc_array_r17 * const restrict, 
+extern void maxval_r17 (gfc_array_r17 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict);
 export_proto(maxval_r17);
 
 void
-maxval_r17 (gfc_array_r17 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
+maxval_r17 (gfc_array_r17 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ maxval_r17 (gfc_array_r17 * const restrict retarray,
 }
 
 
-extern void mmaxval_r17 (gfc_array_r17 * const restrict, 
+extern void mmaxval_r17 (gfc_array_r17 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mmaxval_r17);
 
 void
-mmaxval_r17 (gfc_array_r17 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxval_r17 (gfc_array_r17 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_r17 (gfc_array_r17 * const restrict retarray,
 }
 
 
-extern void smaxval_r17 (gfc_array_r17 * const restrict, 
+extern void smaxval_r17 (gfc_array_r17 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(smaxval_r17);
 
 void
-smaxval_r17 (gfc_array_r17 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxval_r17 (gfc_array_r17 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index d4b895dea46e8c60242fcf6ab62a21c235b70756..c379d2e432056bda0c7c3357a04c97c9dad0e830 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4)
 
 
-extern void maxval_r4 (gfc_array_r4 * const restrict, 
+extern void maxval_r4 (gfc_array_r4 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict);
 export_proto(maxval_r4);
 
 void
-maxval_r4 (gfc_array_r4 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
+maxval_r4 (gfc_array_r4 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ maxval_r4 (gfc_array_r4 * const restrict retarray,
 }
 
 
-extern void mmaxval_r4 (gfc_array_r4 * const restrict, 
+extern void mmaxval_r4 (gfc_array_r4 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mmaxval_r4);
 
 void
-mmaxval_r4 (gfc_array_r4 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxval_r4 (gfc_array_r4 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_r4 (gfc_array_r4 * const restrict retarray,
 }
 
 
-extern void smaxval_r4 (gfc_array_r4 * const restrict, 
+extern void smaxval_r4 (gfc_array_r4 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(smaxval_r4);
 
 void
-smaxval_r4 (gfc_array_r4 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxval_r4 (gfc_array_r4 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 2b2b67990cfc70a46a73c67af02f0098f41235b6..16e09bf3fb1f8c0b06eb73a0b4684f75f361100a 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_REAL_8)
 
 
-extern void maxval_r8 (gfc_array_r8 * const restrict, 
+extern void maxval_r8 (gfc_array_r8 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict);
 export_proto(maxval_r8);
 
 void
-maxval_r8 (gfc_array_r8 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
+maxval_r8 (gfc_array_r8 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ maxval_r8 (gfc_array_r8 * const restrict retarray,
 }
 
 
-extern void mmaxval_r8 (gfc_array_r8 * const restrict, 
+extern void mmaxval_r8 (gfc_array_r8 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mmaxval_r8);
 
 void
-mmaxval_r8 (gfc_array_r8 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
-       const index_type * const restrict pdim, 
+mmaxval_r8 (gfc_array_r8 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_r8 (gfc_array_r8 * const restrict retarray,
 }
 
 
-extern void smaxval_r8 (gfc_array_r8 * const restrict, 
+extern void smaxval_r8 (gfc_array_r8 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(smaxval_r8);
 
 void
-smaxval_r8 (gfc_array_r8 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
-       const index_type * const restrict pdim, 
+smaxval_r8 (gfc_array_r8 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 81006ef30c7a14c7af6b827745837ab21b17bebd..840139f18dad50b921298d7eac1417d294d007a5 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_16_i1 (gfc_array_i16 * const restrict, 
+extern void minloc1_16_i1 (gfc_array_i16 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_16_i1);
 
 void
-minloc1_16_i1 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
+minloc1_16_i1 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_i1 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mminloc1_16_i1 (gfc_array_i16 * const restrict, 
+extern void mminloc1_16_i1 (gfc_array_i16 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_16_i1);
 
 void
-mminloc1_16_i1 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void sminloc1_16_i1 (gfc_array_i16 * const restrict, 
+extern void sminloc1_16_i1 (gfc_array_i16 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_16_i1);
 
 void
-sminloc1_16_i1 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 36ea12ddc9fdf4ebaf58b8627ca601a14f10b8dc..4b6545fd012f1e782e720e8692b7c986d5d0b018 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_16_i16 (gfc_array_i16 * const restrict, 
+extern void minloc1_16_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_16_i16);
 
 void
-minloc1_16_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
+minloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_i16 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mminloc1_16_i16 (gfc_array_i16 * const restrict, 
+extern void mminloc1_16_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_16_i16);
 
 void
-mminloc1_16_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void sminloc1_16_i16 (gfc_array_i16 * const restrict, 
+extern void sminloc1_16_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_16_i16);
 
 void
-sminloc1_16_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 61c9f97d93205ce3e07b1420b88151524cca444a..89f9465b2b1aa5b4e6e04f8c334e8576cde2f21b 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_16_i2 (gfc_array_i16 * const restrict, 
+extern void minloc1_16_i2 (gfc_array_i16 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_16_i2);
 
 void
-minloc1_16_i2 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
+minloc1_16_i2 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_i2 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mminloc1_16_i2 (gfc_array_i16 * const restrict, 
+extern void mminloc1_16_i2 (gfc_array_i16 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_16_i2);
 
 void
-mminloc1_16_i2 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void sminloc1_16_i2 (gfc_array_i16 * const restrict, 
+extern void sminloc1_16_i2 (gfc_array_i16 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_16_i2);
 
 void
-sminloc1_16_i2 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index d8a3683ddbb16c440c78845cb0d9d1e4991c2141..4475dfe78e66f20457fa04d7ce43059c3c7a6bcf 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_16_i4 (gfc_array_i16 * const restrict, 
+extern void minloc1_16_i4 (gfc_array_i16 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_16_i4);
 
 void
-minloc1_16_i4 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
+minloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_i4 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mminloc1_16_i4 (gfc_array_i16 * const restrict, 
+extern void mminloc1_16_i4 (gfc_array_i16 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_16_i4);
 
 void
-mminloc1_16_i4 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void sminloc1_16_i4 (gfc_array_i16 * const restrict, 
+extern void sminloc1_16_i4 (gfc_array_i16 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_16_i4);
 
 void
-sminloc1_16_i4 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 70bfdec0621330b6374153bbc2922750ff63f911..394789861ba536e0eb7ecbb15f72bbe273b0e09c 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_16_i8 (gfc_array_i16 * const restrict, 
+extern void minloc1_16_i8 (gfc_array_i16 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_16_i8);
 
 void
-minloc1_16_i8 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
+minloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_i8 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mminloc1_16_i8 (gfc_array_i16 * const restrict, 
+extern void mminloc1_16_i8 (gfc_array_i16 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_16_i8);
 
 void
-mminloc1_16_i8 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void sminloc1_16_i8 (gfc_array_i16 * const restrict, 
+extern void sminloc1_16_i8 (gfc_array_i16 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_16_i8);
 
 void
-sminloc1_16_i8 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 1f16bda32e3e98a60e154b52c29753838c5e8ac1..46fc94e801ff5b3ce9c2a3f65f0590afde85756a 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_16_r10 (gfc_array_i16 * const restrict, 
+extern void minloc1_16_r10 (gfc_array_i16 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_16_r10);
 
 void
-minloc1_16_r10 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
+minloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_r10 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mminloc1_16_r10 (gfc_array_i16 * const restrict, 
+extern void mminloc1_16_r10 (gfc_array_i16 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_16_r10);
 
 void
-mminloc1_16_r10 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void sminloc1_16_r10 (gfc_array_i16 * const restrict, 
+extern void sminloc1_16_r10 (gfc_array_i16 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_16_r10);
 
 void
-sminloc1_16_r10 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 35bf98ad650b9e78f25a9360c597c0defb1dc52a..da3b8f2b7b9e16a0977833b84bae85e3ed2423e5 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_16_r16 (gfc_array_i16 * const restrict, 
+extern void minloc1_16_r16 (gfc_array_i16 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_16_r16);
 
 void
-minloc1_16_r16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
+minloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_r16 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mminloc1_16_r16 (gfc_array_i16 * const restrict, 
+extern void mminloc1_16_r16 (gfc_array_i16 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_16_r16);
 
 void
-mminloc1_16_r16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void sminloc1_16_r16 (gfc_array_i16 * const restrict, 
+extern void sminloc1_16_r16 (gfc_array_i16 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_16_r16);
 
 void
-sminloc1_16_r16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 31b3bbbfb1d8cda224a5afff4ccd949c5c011bd3..8777ecfef3d010cd6a6683222e3cf5a6ef63bfdb 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_16_r17 (gfc_array_i16 * const restrict, 
+extern void minloc1_16_r17 (gfc_array_i16 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_16_r17);
 
 void
-minloc1_16_r17 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
+minloc1_16_r17 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_r17 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mminloc1_16_r17 (gfc_array_i16 * const restrict, 
+extern void mminloc1_16_r17 (gfc_array_i16 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_16_r17);
 
 void
-mminloc1_16_r17 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void sminloc1_16_r17 (gfc_array_i16 * const restrict, 
+extern void sminloc1_16_r17 (gfc_array_i16 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_16_r17);
 
 void
-sminloc1_16_r17 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 845aa035012bb907fe5fc531265baec3eb56b39d..1c550175242f5f2ed88d216b61ea83733da39201 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_16_r4 (gfc_array_i16 * const restrict, 
+extern void minloc1_16_r4 (gfc_array_i16 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_16_r4);
 
 void
-minloc1_16_r4 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
+minloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_r4 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mminloc1_16_r4 (gfc_array_i16 * const restrict, 
+extern void mminloc1_16_r4 (gfc_array_i16 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_16_r4);
 
 void
-mminloc1_16_r4 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void sminloc1_16_r4 (gfc_array_i16 * const restrict, 
+extern void sminloc1_16_r4 (gfc_array_i16 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_16_r4);
 
 void
-sminloc1_16_r4 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index d6760091b8fceadbd6a43cd99f46a59d718d32fb..e778c4709328ffb339a98366ba9529882b6cc864 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_16_r8 (gfc_array_i16 * const restrict, 
+extern void minloc1_16_r8 (gfc_array_i16 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_16_r8);
 
 void
-minloc1_16_r8 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
+minloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_r8 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mminloc1_16_r8 (gfc_array_i16 * const restrict, 
+extern void mminloc1_16_r8 (gfc_array_i16 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_16_r8);
 
 void
-mminloc1_16_r8 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void sminloc1_16_r8 (gfc_array_i16 * const restrict, 
+extern void sminloc1_16_r8 (gfc_array_i16 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_16_r8);
 
 void
-sminloc1_16_r8 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index bd24eafe01769cb285ffc9a3e1a89aafa980a2d5..639838bc5e9a1d0be016eacd81736346601552f7 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_4_i1 (gfc_array_i4 * const restrict, 
+extern void minloc1_4_i1 (gfc_array_i4 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_4_i1);
 
 void
-minloc1_4_i1 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
+minloc1_4_i1 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_i1 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mminloc1_4_i1 (gfc_array_i4 * const restrict, 
+extern void mminloc1_4_i1 (gfc_array_i4 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_4_i1);
 
 void
-mminloc1_4_i1 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void sminloc1_4_i1 (gfc_array_i4 * const restrict, 
+extern void sminloc1_4_i1 (gfc_array_i4 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_4_i1);
 
 void
-sminloc1_4_i1 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 5a735a9029b734519687648157500aa74e947e81..b86e3cc06461552c6a6af2ef5df2e64fc515ef21 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_4_i16 (gfc_array_i4 * const restrict, 
+extern void minloc1_4_i16 (gfc_array_i4 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_4_i16);
 
 void
-minloc1_4_i16 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
+minloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_i16 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mminloc1_4_i16 (gfc_array_i4 * const restrict, 
+extern void mminloc1_4_i16 (gfc_array_i4 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_4_i16);
 
 void
-mminloc1_4_i16 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void sminloc1_4_i16 (gfc_array_i4 * const restrict, 
+extern void sminloc1_4_i16 (gfc_array_i4 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_4_i16);
 
 void
-sminloc1_4_i16 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 5328eefa36b0db49fb17827c07482f16a4162749..8def21c8addba960149b340c4d44fcf9b87f1c1d 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_4_i2 (gfc_array_i4 * const restrict, 
+extern void minloc1_4_i2 (gfc_array_i4 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_4_i2);
 
 void
-minloc1_4_i2 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
+minloc1_4_i2 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_i2 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mminloc1_4_i2 (gfc_array_i4 * const restrict, 
+extern void mminloc1_4_i2 (gfc_array_i4 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_4_i2);
 
 void
-mminloc1_4_i2 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void sminloc1_4_i2 (gfc_array_i4 * const restrict, 
+extern void sminloc1_4_i2 (gfc_array_i4 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_4_i2);
 
 void
-sminloc1_4_i2 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 84bd3373d69a6b20962f28125d7b1abc2dc9cee6..e42b9f8181b923af045f4021ea5525fee710c2e7 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_4_i4 (gfc_array_i4 * const restrict, 
+extern void minloc1_4_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_4_i4);
 
 void
-minloc1_4_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
+minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mminloc1_4_i4 (gfc_array_i4 * const restrict, 
+extern void mminloc1_4_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_4_i4);
 
 void
-mminloc1_4_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void sminloc1_4_i4 (gfc_array_i4 * const restrict, 
+extern void sminloc1_4_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_4_i4);
 
 void
-sminloc1_4_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 1425c39e6dc25cc5eeabd6ade1a4107ff39cf5c0..cc9fa4cc78d000acd9df7c952d3241ce5003340e 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_4_i8 (gfc_array_i4 * const restrict, 
+extern void minloc1_4_i8 (gfc_array_i4 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_4_i8);
 
 void
-minloc1_4_i8 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
+minloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_i8 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mminloc1_4_i8 (gfc_array_i4 * const restrict, 
+extern void mminloc1_4_i8 (gfc_array_i4 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_4_i8);
 
 void
-mminloc1_4_i8 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void sminloc1_4_i8 (gfc_array_i4 * const restrict, 
+extern void sminloc1_4_i8 (gfc_array_i4 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_4_i8);
 
 void
-sminloc1_4_i8 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 6a9eae496e3d492bbc08b64028c3404443952e9c..65ce7b9c3f7af19d774a553e72122e83fc4db78e 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_4_r10 (gfc_array_i4 * const restrict, 
+extern void minloc1_4_r10 (gfc_array_i4 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_4_r10);
 
 void
-minloc1_4_r10 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
+minloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_r10 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mminloc1_4_r10 (gfc_array_i4 * const restrict, 
+extern void mminloc1_4_r10 (gfc_array_i4 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_4_r10);
 
 void
-mminloc1_4_r10 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void sminloc1_4_r10 (gfc_array_i4 * const restrict, 
+extern void sminloc1_4_r10 (gfc_array_i4 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_4_r10);
 
 void
-sminloc1_4_r10 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 66c3017b512d90906e646ec8684a8f3b7096a793..ddd21c95d76ae33845e1bfc8c7bdfa6da598c093 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_4_r16 (gfc_array_i4 * const restrict, 
+extern void minloc1_4_r16 (gfc_array_i4 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_4_r16);
 
 void
-minloc1_4_r16 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
+minloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_r16 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mminloc1_4_r16 (gfc_array_i4 * const restrict, 
+extern void mminloc1_4_r16 (gfc_array_i4 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_4_r16);
 
 void
-mminloc1_4_r16 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void sminloc1_4_r16 (gfc_array_i4 * const restrict, 
+extern void sminloc1_4_r16 (gfc_array_i4 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_4_r16);
 
 void
-sminloc1_4_r16 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index e600a430011cb574770add378d6118838abe8709..0b90a10624e805b7e87df7e1b9417acf55f83a6c 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_4_r17 (gfc_array_i4 * const restrict, 
+extern void minloc1_4_r17 (gfc_array_i4 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_4_r17);
 
 void
-minloc1_4_r17 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
+minloc1_4_r17 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_r17 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mminloc1_4_r17 (gfc_array_i4 * const restrict, 
+extern void mminloc1_4_r17 (gfc_array_i4 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_4_r17);
 
 void
-mminloc1_4_r17 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void sminloc1_4_r17 (gfc_array_i4 * const restrict, 
+extern void sminloc1_4_r17 (gfc_array_i4 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_4_r17);
 
 void
-sminloc1_4_r17 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index a743d8d032c91c7cd10e9f4d6a4d2c0d92f9cacc..0a68f2c1cd27d8aa08a3da02c259571e6c27c2ef 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_4_r4 (gfc_array_i4 * const restrict, 
+extern void minloc1_4_r4 (gfc_array_i4 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_4_r4);
 
 void
-minloc1_4_r4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
+minloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_r4 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mminloc1_4_r4 (gfc_array_i4 * const restrict, 
+extern void mminloc1_4_r4 (gfc_array_i4 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_4_r4);
 
 void
-mminloc1_4_r4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void sminloc1_4_r4 (gfc_array_i4 * const restrict, 
+extern void sminloc1_4_r4 (gfc_array_i4 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_4_r4);
 
 void
-sminloc1_4_r4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index a3d399e3050b3af96adbb8ebb0887a8898d58cc9..b89deb521ea3af9d57eebd8a43be27a075410d39 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_4_r8 (gfc_array_i4 * const restrict, 
+extern void minloc1_4_r8 (gfc_array_i4 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_4_r8);
 
 void
-minloc1_4_r8 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
+minloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_r8 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mminloc1_4_r8 (gfc_array_i4 * const restrict, 
+extern void mminloc1_4_r8 (gfc_array_i4 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_4_r8);
 
 void
-mminloc1_4_r8 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void sminloc1_4_r8 (gfc_array_i4 * const restrict, 
+extern void sminloc1_4_r8 (gfc_array_i4 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_4_r8);
 
 void
-sminloc1_4_r8 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 113725ea9112dc5023278a887f098cd3ba6e7a42..f4fa5a091f43bb5c06515627fec3ce2c07788336 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_8_i1 (gfc_array_i8 * const restrict, 
+extern void minloc1_8_i1 (gfc_array_i8 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_8_i1);
 
 void
-minloc1_8_i1 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
+minloc1_8_i1 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_i1 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mminloc1_8_i1 (gfc_array_i8 * const restrict, 
+extern void mminloc1_8_i1 (gfc_array_i8 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_8_i1);
 
 void
-mminloc1_8_i1 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void sminloc1_8_i1 (gfc_array_i8 * const restrict, 
+extern void sminloc1_8_i1 (gfc_array_i8 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_8_i1);
 
 void
-sminloc1_8_i1 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 70ba7d5c53f3ca303102777b222a75faddcee867..73edefbf21a9bf223b4fabd151d305136893a714 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_8_i16 (gfc_array_i8 * const restrict, 
+extern void minloc1_8_i16 (gfc_array_i8 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_8_i16);
 
 void
-minloc1_8_i16 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
+minloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_i16 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mminloc1_8_i16 (gfc_array_i8 * const restrict, 
+extern void mminloc1_8_i16 (gfc_array_i8 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_8_i16);
 
 void
-mminloc1_8_i16 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void sminloc1_8_i16 (gfc_array_i8 * const restrict, 
+extern void sminloc1_8_i16 (gfc_array_i8 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_8_i16);
 
 void
-sminloc1_8_i16 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index ed14464347d2219c80b04b7db17af8dd52e8b082..126587caf7718b1fbd12b363f61ec14f1238665c 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_8_i2 (gfc_array_i8 * const restrict, 
+extern void minloc1_8_i2 (gfc_array_i8 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_8_i2);
 
 void
-minloc1_8_i2 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
+minloc1_8_i2 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_i2 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mminloc1_8_i2 (gfc_array_i8 * const restrict, 
+extern void mminloc1_8_i2 (gfc_array_i8 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_8_i2);
 
 void
-mminloc1_8_i2 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void sminloc1_8_i2 (gfc_array_i8 * const restrict, 
+extern void sminloc1_8_i2 (gfc_array_i8 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_8_i2);
 
 void
-sminloc1_8_i2 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 47e0a989147db17ac34f32144bcd3ee13a438a39..eafbbe10dcc0f8ec4dd2f14febd4d11d5662aba9 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_8_i4 (gfc_array_i8 * const restrict, 
+extern void minloc1_8_i4 (gfc_array_i8 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_8_i4);
 
 void
-minloc1_8_i4 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
+minloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_i4 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mminloc1_8_i4 (gfc_array_i8 * const restrict, 
+extern void mminloc1_8_i4 (gfc_array_i8 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_8_i4);
 
 void
-mminloc1_8_i4 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void sminloc1_8_i4 (gfc_array_i8 * const restrict, 
+extern void sminloc1_8_i4 (gfc_array_i8 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_8_i4);
 
 void
-sminloc1_8_i4 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 6e2b50342e6c466929c3e116c7525eee2ce49558..c806250d7a5b144941f49448d834e5a6b3f5d7dc 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_8_i8 (gfc_array_i8 * const restrict, 
+extern void minloc1_8_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_8_i8);
 
 void
-minloc1_8_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
+minloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_i8 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mminloc1_8_i8 (gfc_array_i8 * const restrict, 
+extern void mminloc1_8_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_8_i8);
 
 void
-mminloc1_8_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void sminloc1_8_i8 (gfc_array_i8 * const restrict, 
+extern void sminloc1_8_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_8_i8);
 
 void
-sminloc1_8_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index ef7126156b13fd97f5085a7e63ad69def31e8c2c..5e87310fb0176c58e70dda88d5266893807d28cf 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_8_r10 (gfc_array_i8 * const restrict, 
+extern void minloc1_8_r10 (gfc_array_i8 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_8_r10);
 
 void
-minloc1_8_r10 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
+minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mminloc1_8_r10 (gfc_array_i8 * const restrict, 
+extern void mminloc1_8_r10 (gfc_array_i8 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_8_r10);
 
 void
-mminloc1_8_r10 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void sminloc1_8_r10 (gfc_array_i8 * const restrict, 
+extern void sminloc1_8_r10 (gfc_array_i8 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_8_r10);
 
 void
-sminloc1_8_r10 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index b645a53ef644918d35249f1d76e748098b358185..a0df1baf72956dbcee98311c293de91043ae5c30 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_8_r16 (gfc_array_i8 * const restrict, 
+extern void minloc1_8_r16 (gfc_array_i8 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_8_r16);
 
 void
-minloc1_8_r16 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
+minloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_r16 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mminloc1_8_r16 (gfc_array_i8 * const restrict, 
+extern void mminloc1_8_r16 (gfc_array_i8 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_8_r16);
 
 void
-mminloc1_8_r16 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void sminloc1_8_r16 (gfc_array_i8 * const restrict, 
+extern void sminloc1_8_r16 (gfc_array_i8 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_8_r16);
 
 void
-sminloc1_8_r16 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 51ccd09fc144b30dc0a6a8aabdb005870e694a02..023ecd39a9a3fbb833c7d404f4721a315770cc67 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_8_r17 (gfc_array_i8 * const restrict, 
+extern void minloc1_8_r17 (gfc_array_i8 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_8_r17);
 
 void
-minloc1_8_r17 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
+minloc1_8_r17 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_r17 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mminloc1_8_r17 (gfc_array_i8 * const restrict, 
+extern void mminloc1_8_r17 (gfc_array_i8 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_8_r17);
 
 void
-mminloc1_8_r17 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void sminloc1_8_r17 (gfc_array_i8 * const restrict, 
+extern void sminloc1_8_r17 (gfc_array_i8 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_8_r17);
 
 void
-sminloc1_8_r17 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 14e491fc682ff83f867ab908c29a2873bca50c50..b0d5d151c7843591687391834ea42c4d063396ee 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_8_r4 (gfc_array_i8 * const restrict, 
+extern void minloc1_8_r4 (gfc_array_i8 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_8_r4);
 
 void
-minloc1_8_r4 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
+minloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_r4 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mminloc1_8_r4 (gfc_array_i8 * const restrict, 
+extern void mminloc1_8_r4 (gfc_array_i8 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_8_r4);
 
 void
-mminloc1_8_r4 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void sminloc1_8_r4 (gfc_array_i8 * const restrict, 
+extern void sminloc1_8_r4 (gfc_array_i8 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_8_r4);
 
 void
-sminloc1_8_r4 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 188a0cdf520f8c5596707a5f0ebfd7564559ed1b..2b12a8ae8d555402fecb6e709b727c9948f55bcb 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define HAVE_BACK_ARG 1
 
 
-extern void minloc1_8_r8 (gfc_array_i8 * const restrict, 
+extern void minloc1_8_r8 (gfc_array_i8 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
 export_proto(minloc1_8_r8);
 
 void
-minloc1_8_r8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
+minloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
        const index_type * const restrict pdim, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_r8 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mminloc1_8_r8 (gfc_array_i8 * const restrict, 
+extern void mminloc1_8_r8 (gfc_array_i8 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
 export_proto(mminloc1_8_r8);
 
 void
-mminloc1_8_r8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void sminloc1_8_r8 (gfc_array_i8 * const restrict, 
+extern void sminloc1_8_r8 (gfc_array_i8 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
 export_proto(sminloc1_8_r8);
 
 void
-sminloc1_8_r8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index f27dfa1ac85e326965aa1a4d52f343bd7258d91a..fcf70e0e03d1880281c8f2eeae495232314f48e2 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1)
 
 
-extern void minval_i1 (gfc_array_i1 * const restrict, 
+extern void minval_i1 (gfc_array_i1 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict);
 export_proto(minval_i1);
 
 void
-minval_i1 (gfc_array_i1 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
+minval_i1 (gfc_array_i1 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ minval_i1 (gfc_array_i1 * const restrict retarray,
 }
 
 
-extern void mminval_i1 (gfc_array_i1 * const restrict, 
+extern void mminval_i1 (gfc_array_i1 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mminval_i1);
 
 void
-mminval_i1 (gfc_array_i1 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminval_i1 (gfc_array_i1 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_i1 (gfc_array_i1 * const restrict retarray,
 }
 
 
-extern void sminval_i1 (gfc_array_i1 * const restrict, 
+extern void sminval_i1 (gfc_array_i1 * const restrict,
        gfc_array_i1 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(sminval_i1);
 
 void
-sminval_i1 (gfc_array_i1 * const restrict retarray, 
-       gfc_array_i1 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminval_i1 (gfc_array_i1 * const restrict retarray,
+       gfc_array_i1 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index a1da87483c687877f477c19db44bd1cdb646e822..e35fd997629bbb4f88fb3a814925e86b204e412e 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void minval_i16 (gfc_array_i16 * const restrict, 
+extern void minval_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict);
 export_proto(minval_i16);
 
 void
-minval_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
+minval_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ minval_i16 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void mminval_i16 (gfc_array_i16 * const restrict, 
+extern void mminval_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mminval_i16);
 
 void
-mminval_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminval_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_i16 (gfc_array_i16 * const restrict retarray,
 }
 
 
-extern void sminval_i16 (gfc_array_i16 * const restrict, 
+extern void sminval_i16 (gfc_array_i16 * const restrict,
        gfc_array_i16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(sminval_i16);
 
 void
-sminval_i16 (gfc_array_i16 * const restrict retarray, 
-       gfc_array_i16 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminval_i16 (gfc_array_i16 * const restrict retarray,
+       gfc_array_i16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 2ea0e7629d80c5b2e3dca819dfe8a2f98ded81b3..ac14b0e44ff61577432f1b6db88445e72d577950 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2)
 
 
-extern void minval_i2 (gfc_array_i2 * const restrict, 
+extern void minval_i2 (gfc_array_i2 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict);
 export_proto(minval_i2);
 
 void
-minval_i2 (gfc_array_i2 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
+minval_i2 (gfc_array_i2 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ minval_i2 (gfc_array_i2 * const restrict retarray,
 }
 
 
-extern void mminval_i2 (gfc_array_i2 * const restrict, 
+extern void mminval_i2 (gfc_array_i2 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mminval_i2);
 
 void
-mminval_i2 (gfc_array_i2 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminval_i2 (gfc_array_i2 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_i2 (gfc_array_i2 * const restrict retarray,
 }
 
 
-extern void sminval_i2 (gfc_array_i2 * const restrict, 
+extern void sminval_i2 (gfc_array_i2 * const restrict,
        gfc_array_i2 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(sminval_i2);
 
 void
-sminval_i2 (gfc_array_i2 * const restrict retarray, 
-       gfc_array_i2 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminval_i2 (gfc_array_i2 * const restrict retarray,
+       gfc_array_i2 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 30df475d399655fd93135553c1e19641c13d7e66..b40edc64c7977465ee062120078f91e65c9777d2 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void minval_i4 (gfc_array_i4 * const restrict, 
+extern void minval_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict);
 export_proto(minval_i4);
 
 void
-minval_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
+minval_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ minval_i4 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void mminval_i4 (gfc_array_i4 * const restrict, 
+extern void mminval_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mminval_i4);
 
 void
-mminval_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminval_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_i4 (gfc_array_i4 * const restrict retarray,
 }
 
 
-extern void sminval_i4 (gfc_array_i4 * const restrict, 
+extern void sminval_i4 (gfc_array_i4 * const restrict,
        gfc_array_i4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(sminval_i4);
 
 void
-sminval_i4 (gfc_array_i4 * const restrict retarray, 
-       gfc_array_i4 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminval_i4 (gfc_array_i4 * const restrict retarray,
+       gfc_array_i4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 4da720271a2e199237058bf03c22788e9b39f246..4152132d89ae16ce420e6c9bbd2c5ba3c0840c36 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void minval_i8 (gfc_array_i8 * const restrict, 
+extern void minval_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict);
 export_proto(minval_i8);
 
 void
-minval_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
+minval_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ minval_i8 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void mminval_i8 (gfc_array_i8 * const restrict, 
+extern void mminval_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mminval_i8);
 
 void
-mminval_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminval_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_i8 (gfc_array_i8 * const restrict retarray,
 }
 
 
-extern void sminval_i8 (gfc_array_i8 * const restrict, 
+extern void sminval_i8 (gfc_array_i8 * const restrict,
        gfc_array_i8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(sminval_i8);
 
 void
-sminval_i8 (gfc_array_i8 * const restrict retarray, 
-       gfc_array_i8 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminval_i8 (gfc_array_i8 * const restrict retarray,
+       gfc_array_i8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index b3b729da9006ef6533e370a1961d5483606bf44e..0fc412125b945660b88065119ca65cffe24b8604 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_REAL_10)
 
 
-extern void minval_r10 (gfc_array_r10 * const restrict, 
+extern void minval_r10 (gfc_array_r10 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict);
 export_proto(minval_r10);
 
 void
-minval_r10 (gfc_array_r10 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
+minval_r10 (gfc_array_r10 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ minval_r10 (gfc_array_r10 * const restrict retarray,
 }
 
 
-extern void mminval_r10 (gfc_array_r10 * const restrict, 
+extern void mminval_r10 (gfc_array_r10 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mminval_r10);
 
 void
-mminval_r10 (gfc_array_r10 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminval_r10 (gfc_array_r10 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_r10 (gfc_array_r10 * const restrict retarray,
 }
 
 
-extern void sminval_r10 (gfc_array_r10 * const restrict, 
+extern void sminval_r10 (gfc_array_r10 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(sminval_r10);
 
 void
-sminval_r10 (gfc_array_r10 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminval_r10 (gfc_array_r10 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 3137d054fdf0644784ff0693a99e6e93aaeecb86..4dedffd07934fbf4ef71e45cb8c874b09acfbfbe 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_REAL_16)
 
 
-extern void minval_r16 (gfc_array_r16 * const restrict, 
+extern void minval_r16 (gfc_array_r16 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict);
 export_proto(minval_r16);
 
 void
-minval_r16 (gfc_array_r16 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
+minval_r16 (gfc_array_r16 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ minval_r16 (gfc_array_r16 * const restrict retarray,
 }
 
 
-extern void mminval_r16 (gfc_array_r16 * const restrict, 
+extern void mminval_r16 (gfc_array_r16 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mminval_r16);
 
 void
-mminval_r16 (gfc_array_r16 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminval_r16 (gfc_array_r16 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_r16 (gfc_array_r16 * const restrict retarray,
 }
 
 
-extern void sminval_r16 (gfc_array_r16 * const restrict, 
+extern void sminval_r16 (gfc_array_r16 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(sminval_r16);
 
 void
-sminval_r16 (gfc_array_r16 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminval_r16 (gfc_array_r16 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 3772fbee3ea01611efb2d4878f92850c83d660af..efb4c6513fc2d222df6627d77a36799a36194534 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_REAL_17) && defined (HAVE_GFC_REAL_17)
 
 
-extern void minval_r17 (gfc_array_r17 * const restrict, 
+extern void minval_r17 (gfc_array_r17 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict);
 export_proto(minval_r17);
 
 void
-minval_r17 (gfc_array_r17 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
+minval_r17 (gfc_array_r17 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ minval_r17 (gfc_array_r17 * const restrict retarray,
 }
 
 
-extern void mminval_r17 (gfc_array_r17 * const restrict, 
+extern void mminval_r17 (gfc_array_r17 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mminval_r17);
 
 void
-mminval_r17 (gfc_array_r17 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminval_r17 (gfc_array_r17 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_r17 (gfc_array_r17 * const restrict retarray,
 }
 
 
-extern void sminval_r17 (gfc_array_r17 * const restrict, 
+extern void sminval_r17 (gfc_array_r17 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(sminval_r17);
 
 void
-sminval_r17 (gfc_array_r17 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminval_r17 (gfc_array_r17 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index ecc054a5d6d979e9fb9498efd75fcad38ae5f7c3..4370f4d131696e76b5c104c8c99e806c062b733e 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4)
 
 
-extern void minval_r4 (gfc_array_r4 * const restrict, 
+extern void minval_r4 (gfc_array_r4 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict);
 export_proto(minval_r4);
 
 void
-minval_r4 (gfc_array_r4 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
+minval_r4 (gfc_array_r4 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ minval_r4 (gfc_array_r4 * const restrict retarray,
 }
 
 
-extern void mminval_r4 (gfc_array_r4 * const restrict, 
+extern void mminval_r4 (gfc_array_r4 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mminval_r4);
 
 void
-mminval_r4 (gfc_array_r4 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminval_r4 (gfc_array_r4 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_r4 (gfc_array_r4 * const restrict retarray,
 }
 
 
-extern void sminval_r4 (gfc_array_r4 * const restrict, 
+extern void sminval_r4 (gfc_array_r4 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(sminval_r4);
 
 void
-sminval_r4 (gfc_array_r4 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminval_r4 (gfc_array_r4 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 5e5ca794f57c0104616c72315cd5f4bfa9776377..bab37af88d79102ad1f175998addd2da38b42557 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_REAL_8)
 
 
-extern void minval_r8 (gfc_array_r8 * const restrict, 
+extern void minval_r8 (gfc_array_r8 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict);
 export_proto(minval_r8);
 
 void
-minval_r8 (gfc_array_r8 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
+minval_r8 (gfc_array_r8 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ minval_r8 (gfc_array_r8 * const restrict retarray,
 }
 
 
-extern void mminval_r8 (gfc_array_r8 * const restrict, 
+extern void mminval_r8 (gfc_array_r8 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict,
        gfc_array_l1 * const restrict);
 export_proto(mminval_r8);
 
 void
-mminval_r8 (gfc_array_r8 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
-       const index_type * const restrict pdim, 
+mminval_r8 (gfc_array_r8 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
+       const index_type * const restrict pdim,
        gfc_array_l1 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_r8 (gfc_array_r8 * const restrict retarray,
 }
 
 
-extern void sminval_r8 (gfc_array_r8 * const restrict, 
+extern void sminval_r8 (gfc_array_r8 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict,
        GFC_LOGICAL_4 *);
 export_proto(sminval_r8);
 
 void
-sminval_r8 (gfc_array_r8 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
-       const index_type * const restrict pdim, 
+sminval_r8 (gfc_array_r8 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
+       const index_type * const restrict pdim,
        GFC_LOGICAL_4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 98625a42db7be9c7a799c918ea51b1128639be9d..c879f54cbfc999dae5c463fc5b3ec6400aa1ecb2 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define MATHFUNC(funcname) funcname ## l
 
 
-extern void norm2_r10 (gfc_array_r10 * const restrict, 
+extern void norm2_r10 (gfc_array_r10 * const restrict,
        gfc_array_r10 * const restrict, const index_type * const restrict);
 export_proto(norm2_r10);
 
 void
-norm2_r10 (gfc_array_r10 * const restrict retarray, 
-       gfc_array_r10 * const restrict array, 
+norm2_r10 (gfc_array_r10 * const restrict retarray,
+       gfc_array_r10 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 62c5a4065dc246ce5131e5f24cf259f7e2a987d1..84fbe3b0c9322438541029ac41ade8daedcf78b9 100644 (file)
@@ -40,13 +40,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #endif
 
 
-extern void norm2_r16 (gfc_array_r16 * const restrict, 
+extern void norm2_r16 (gfc_array_r16 * const restrict,
        gfc_array_r16 * const restrict, const index_type * const restrict);
 export_proto(norm2_r16);
 
 void
-norm2_r16 (gfc_array_r16 * const restrict retarray, 
-       gfc_array_r16 * const restrict array, 
+norm2_r16 (gfc_array_r16 * const restrict retarray,
+       gfc_array_r16 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 91fa70423660bd123358a8b5efed0cc6f8d875c7..72ad123df17af4e07514a7d5d564803f3c7015ae 100644 (file)
@@ -38,13 +38,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #endif
 
 
-extern void norm2_r17 (gfc_array_r17 * const restrict, 
+extern void norm2_r17 (gfc_array_r17 * const restrict,
        gfc_array_r17 * const restrict, const index_type * const restrict);
 export_proto(norm2_r17);
 
 void
-norm2_r17 (gfc_array_r17 * const restrict retarray, 
-       gfc_array_r17 * const restrict array, 
+norm2_r17 (gfc_array_r17 * const restrict retarray,
+       gfc_array_r17 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 164963af6bd778e4b44d6110ff1d2b91331f5960..65ba9822e4dc5086cbd22886fb124434e32a97c1 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define MATHFUNC(funcname) funcname ## f
 
 
-extern void norm2_r4 (gfc_array_r4 * const restrict, 
+extern void norm2_r4 (gfc_array_r4 * const restrict,
        gfc_array_r4 * const restrict, const index_type * const restrict);
 export_proto(norm2_r4);
 
 void
-norm2_r4 (gfc_array_r4 * const restrict retarray, 
-       gfc_array_r4 * const restrict array, 
+norm2_r4 (gfc_array_r4 * const restrict retarray,
+       gfc_array_r4 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index fecf60ede544e30eb15de99c8eb6edad75331538..c10e6a0461389556fa7e0546072de79f9c136094 100644 (file)
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #define MATHFUNC(funcname) funcname
 
 
-extern void norm2_r8 (gfc_array_r8 * const restrict, 
+extern void norm2_r8 (gfc_array_r8 * const restrict,
        gfc_array_r8 * const restrict, const index_type * const restrict);
 export_proto(norm2_r8);
 
 void
-norm2_r8 (gfc_array_r8 * const restrict retarray, 
-       gfc_array_r8 * const restrict array, 
+norm2_r8 (gfc_array_r8 * const restrict retarray,
+       gfc_array_r8 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 0e1007ad30858336f42638447b3b4419581064d7..7d5bc9128f6190a083d461433d7bd98ee70fd254 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_LOGICAL_1) && defined (HAVE_GFC_LOGICAL_1)
 
 
-extern void parity_l1 (gfc_array_l1 * const restrict, 
+extern void parity_l1 (gfc_array_l1 * const restrict,
        gfc_array_l1 * const restrict, const index_type * const restrict);
 export_proto(parity_l1);
 
 void
-parity_l1 (gfc_array_l1 * const restrict retarray, 
-       gfc_array_l1 * const restrict array, 
+parity_l1 (gfc_array_l1 * const restrict retarray,
+       gfc_array_l1 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index d0c1065bac38cd5564f8e5f69ed177829df8fb2f..3276e1b84892e30e5a709eb3fc6d4c3bc47a04aa 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_LOGICAL_16)
 
 
-extern void parity_l16 (gfc_array_l16 * const restrict, 
+extern void parity_l16 (gfc_array_l16 * const restrict,
        gfc_array_l16 * const restrict, const index_type * const restrict);
 export_proto(parity_l16);
 
 void
-parity_l16 (gfc_array_l16 * const restrict retarray, 
-       gfc_array_l16 * const restrict array, 
+parity_l16 (gfc_array_l16 * const restrict retarray,
+       gfc_array_l16 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index bff60b224c0e04ab5c1b2beae69239fe1f584a85..1f1221451f96c9eb98a701d151097e9ecf1e2caf 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_LOGICAL_2) && defined (HAVE_GFC_LOGICAL_2)
 
 
-extern void parity_l2 (gfc_array_l2 * const restrict, 
+extern void parity_l2 (gfc_array_l2 * const restrict,
        gfc_array_l2 * const restrict, const index_type * const restrict);
 export_proto(parity_l2);
 
 void
-parity_l2 (gfc_array_l2 * const restrict retarray, 
-       gfc_array_l2 * const restrict array, 
+parity_l2 (gfc_array_l2 * const restrict retarray,
+       gfc_array_l2 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 3ac03cb9d29acb905a996b4a815cd643e70cda91..dcc8cd45e9af3642236084b46ef22f8464b0f061 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_LOGICAL_4)
 
 
-extern void parity_l4 (gfc_array_l4 * const restrict, 
+extern void parity_l4 (gfc_array_l4 * const restrict,
        gfc_array_l4 * const restrict, const index_type * const restrict);
 export_proto(parity_l4);
 
 void
-parity_l4 (gfc_array_l4 * const restrict retarray, 
-       gfc_array_l4 * const restrict array, 
+parity_l4 (gfc_array_l4 * const restrict retarray,
+       gfc_array_l4 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
index 6ce6a8bd63892b22b5bd871e0a3aded26562960e..dee33acef3bacf2a7f7162d5b8a67536b317b6b7 100644 (file)
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_LOGICAL_8)
 
 
-extern void parity_l8 (gfc_array_l8 * const restrict, 
+extern void parity_l8 (gfc_array_l8 * const restrict,
        gfc_array_l8 * const restrict, const index_type * const restrict);
 export_proto(parity_l8);
 
 void
-parity_l8 (gfc_array_l8 * const restrict retarray, 
-       gfc_array_l8 * const restrict array, 
+parity_l8 (gfc_array_l8 * const restrict retarray,
+       gfc_array_l8 * const restrict array,
        const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];