blob: c38ff46a70082d51b346be41f9862426b3580ae8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
$NetBSD: patch-ac,v 1.1 2004/10/01 22:56:11 dmcmahill Exp $
--- bem/src/nmmtl_find_nu.cpp.orig Wed Jul 28 14:45:38 2004
+++ bem/src/nmmtl_find_nu.cpp
@@ -26,11 +26,8 @@
*/
#include "nmmtl.h"
-#ifdef FORTRAN_UNDERBARS
-#define FMIN fmin_
-#else
-#define FMIN fmin
-#endif
+#define FMIN F77_FUNC(fmin,FMIN)
+
/*
*******************************************************************
** STRUCTURE DECLARATIONS AND TYPE DEFINTIONS
|