init commit

1 files changed, 16 insertions, 0 deletions

diff --git a/cblas_mangling.h b/cblas_mangling.h
new file mode 100644
index 000000000000..d833979d2940
--- /dev/null
+++ b/cblas_mangling.h
@@ -0,0 +1,16 @@
+#ifndef F77_HEADER_INCLUDED
+#define F77_HEADER_INCLUDED
+
+/* Mangling for Fortran global symbols without underscores. */
+#define F77_GLOBAL(name,NAME) name##_
+
+/* Mangling for Fortran global symbols with underscores. */
+#define F77_GLOBAL_(name,NAME) name##_
+
+/* Mangling for Fortran module symbols without underscores. */
+#define F77_MODULE(mod_name,name, mod_NAME,NAME) __##mod_name##_MOD_##name
+
+/* Mangling for Fortran module symbols with underscores. */
+#define F77_MODULE_(mod_name,name, mod_NAME,NAME) __##mod_name##_MOD_##name
+
+#endif