From 96a9f7ffbc8f79381e08ad629b367d6ac2856461 Mon Sep 17 00:00:00 2001
From: Michele Martone <michele.martone@ipp.mpg.de>
Date: Mon, 4 Apr 2011 18:10:42 +0000
Subject: [PATCH] psblas3: in a TODO file. the setting up a default fallback
 (on the fakempi.c side) when configure does not guess the fortran subroutines
 mangling sheme.

---
 TODO                   |  4 ++++
 base/modules/fakempi.c | 16 ++++++++++++++++
 2 files changed, 20 insertions(+)
 create mode 100644 TODO

diff --git a/TODO b/TODO
new file mode 100644
index 00000000..c2db3cd1
--- /dev/null
+++ b/TODO
@@ -0,0 +1,4 @@
+A proposed list of problems.
+
+20110404	shall set up a fallback (./configure-backed) scheme when the mangling scheme does not get guessed by ./configure;  
+
diff --git a/base/modules/fakempi.c b/base/modules/fakempi.c
index f68b107e..3ba717c9 100644
--- a/base/modules/fakempi.c
+++ b/base/modules/fakempi.c
@@ -2,6 +2,22 @@
 #include <stdio.h>
 #include <string.h>
 
+#ifndef LowerUnderscore
+#ifndef LowerDoubleUnderscore
+#ifndef LowerCase
+#ifndef UpperUnderscore
+#ifndef UpperDoubleUnderscore 
+#ifndef UpperCase
+#define LowerUnderscore 1  /* 20110404 the default */
+/* #error "should specify a default mangling scheme" */
+#endif
+#endif
+#endif
+#endif
+#endif
+#endif
+
+
 #ifdef LowerUnderscore
 #define mpi_wtime       mpi_wtime_
 #define mpi_send        mpi_send_