#include "libgfortran.h"
-extern void __minloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *);
-export_proto_np(__minloc1_8_r4);
+extern void minloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *);
+export_proto(minloc1_8_r4);
void
-__minloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim)
+minloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim)
{
index_type count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1];
}
-extern void __mminloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *,
- gfc_array_l4 *);
-export_proto_np(__mminloc1_8_r4);
+extern void mminloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *,
+ gfc_array_l4 *);
+export_proto(mminloc1_8_r4);
void
-__mminloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array, index_type *pdim, gfc_array_l4 * mask)
+mminloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array,
+ index_type *pdim, gfc_array_l4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1];