-extern void __maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array);
-export_proto_np(__maxloc0_8_r8);
+extern void maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array);
+export_proto(maxloc0_8_r8);
void
-__maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array)
+maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
}
-extern void __mmaxloc0_8_r8 (gfc_array_i8 *, gfc_array_r8 *, gfc_array_l4 *);
-export_proto_np(__mmaxloc0_8_r8);
+extern void mmaxloc0_8_r8 (gfc_array_i8 *, gfc_array_r8 *, gfc_array_l4 *);
+export_proto(mmaxloc0_8_r8);
void
-__mmaxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array, gfc_array_l4 * mask)
+mmaxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array,
+ gfc_array_l4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];