summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--fortran/src/H5f90i.h103
1 files changed, 7 insertions, 96 deletions
diff --git a/fortran/src/H5f90i.h b/fortran/src/H5f90i.h
index d99353b..81065f0 100644
--- a/fortran/src/H5f90i.h
+++ b/fortran/src/H5f90i.h
@@ -22,6 +22,11 @@
*/
#include "H5f90i_gen.h"
+/* Define _fcd and real_f. These are the same on every system
+ * but UNICOS.
+ */
+#define _fcdtocp(desc) (desc)
+
#if (defined (UNICOS) || defined (_UNICOS)) && !defined(__crayx1)
#include <fortran.h>
@@ -29,105 +34,11 @@
/*typedef char* _fcd;*/
typedef double real_f;
-#endif /* UNICOS */
-
-#if defined(IBM6000) || defined(_AIX)
-
-typedef char *_fcd;
-typedef float real_f;
-#define _fcdtocp(desc) (desc)
-#endif /*IBM6000*/
-
-/* MAC APPLE definitions with IBM XL compiler*/
-#if defined(__APPLE__)
-typedef char *_fcd;
-typedef float real_f;
-#define _fcdtocp(desc) (desc)
-
-#endif /*APPLE*/
-
-/* LINUX definitions */
-#if (defined(linux) || defined(__gnu_linux__) || defined(__linux__))
-
-/* Common definitions */
-typedef char *_fcd;
-typedef float real_f;
-#define _fcdtocp(desc) (desc)
-
-/* IA32 specific definitions */
-#if (defined(i386) || defined(__i386) || defined(__i386__))
-
-/* AMD64 specific definitions */
-#elif defined __x86_64__
-
-/* IA64 specific definitions */
-#elif defined __ia64
-
-#endif /* IA64 */
-#endif /* LINUX*/
-
-#if defined(IRIX) || defined(IRIS4) || defined(sgi) || defined(__sgi__) || defined(__sgi)
-
-typedef char *_fcd;
-typedef float real_f;
-#define _fcdtocp(desc) (desc)
-#endif /* IRIX */
-
-#if defined(__crayx1)
-typedef char *_fcd;
-typedef float real_f;
-#define _fcdtocp(desc) (desc)
-#endif /* Cray X1 */
-
-#if (defined(SUN) || defined(sun) || defined(__sun__) || defined(__SUNPRO_C)) & !defined(__i386)
+#else
typedef char *_fcd;
typedef float real_f;
-#define _fcdtocp(desc) (desc)
-
-#endif /*SUN*/
-
-#if defined DEC_ALPHA || (defined __alpha && defined __unix__ && !defined __linux__)
-
-typedef char *_fcd;
-typedef float real_f;
-#define _fcdtocp(desc) (desc)
-
-#endif /* DEC_ALPHA */
-
-#if defined __alpha__ && defined __linux__
-
-typedef char *_fcd;
-typedef float real_f;
-#define _fcdtocp(desc) (desc)
-
-#endif /* DEC_ALPHA_LINUX */
-
-#if defined(HP9000) || (!defined(__convexc__) && (defined(hpux) || defined(__hpux)))
-
-typedef char *_fcd;
-typedef float real_f;
-#define _fcdtocp(desc) (desc)
-
-#endif /* HP9000 */
-
-#if defined _WINDOWS || defined WIN32
-
-typedef char *_fcd;
-typedef float real_f;
-
-#define _fcdtocp(desc) (desc)
-
-#endif /*WINDOWS */
-
-/* FreeBSD definitions */
-#if (defined(__FreeBSD) || defined(__FreeBSD__))
-
-/* Common definitions */
-typedef char *_fcd;
-typedef float real_f;
-#define _fcdtocp(desc) (desc)
-#endif /* FreeBSD */
+#endif
#endif /* _H5f90i_H */