Changeset 350 for trunk/headers/configall_system_msc.h

Timestamp:

Jun 11, 2007 8:45:47 PM (14 years ago)

Author:

andreasw

Message:

allow the use of f2c name mangling when COIN_USE_F2C is defined

File:

• trunk/headers/configall_system_msc.h (modified) (1 diff)

trunk/headers/configall_system_msc.h

@@ -16 +16 @@
 /* #undef F77_DUMMY_MAIN */
 
+#ifndef COIN_USE_F2C
 /* Define to a macro mangling the given C identifier (in lower and upper
    case), which must not contain underscores, for linking with Fortran. */
-#define F77_FUNC(name,NAME) NAME
+# define F77_FUNC(name,NAME) NAME
 
 /* As F77_FUNC, but for C identifiers containing underscores. */
-#define F77_FUNC_(name,NAME) NAME
+# define F77_FUNC_(name,NAME) NAME
+#else
+/* Define to a macro mangling the given C identifier (in lower and upper
+   case), which must not contain underscores, for linking with Fortran. */
+# define F77_FUNC(name,NAME) name ## _
+
+/* As F77_FUNC, but for C identifiers containing underscores. */
+# define F77_FUNC_(name,NAME) name ## __
+#endif
 
 /* Define if F77 and FC dummy `main' functions are identical. */