|
Line 0
Link Here
|
|
|
1 |
--- fortran/src/H5_f.c.orig 2016-05-30 11:51:55.838813000 -0700 |
| 2 |
+++ fortran/src/H5_f.c 2016-05-30 11:52:46.901739000 -0700 |
| 3 |
@@ -227,14 +227,14 @@ |
| 4 |
/* |
| 5 |
* FIND H5T_NATIVE_REAL_C_LONG_DOUBLE |
| 6 |
*/ |
| 7 |
-#if H5_FORTRAN_C_LONG_DOUBLE_IS_UNIQUE!=0 |
| 8 |
+#if FORTRAN_C_LONG_DOUBLE_IS_UNIQUE!=0 |
| 9 |
if (sizeof(real_C_LONG_DOUBLE_f) == sizeof(float)) { |
| 10 |
if ((types[12] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0) return ret_value; |
| 11 |
} /*end if */ |
| 12 |
else if (sizeof(real_C_LONG_DOUBLE_f) == sizeof(double)) { |
| 13 |
if ((types[12] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value; |
| 14 |
} /*end if */ |
| 15 |
-# if H5_FORTRAN_HAVE_C_LONG_DOUBLE!=0 |
| 16 |
+# if FORTRAN_HAVE_C_LONG_DOUBLE!=0 |
| 17 |
else if (sizeof(real_C_LONG_DOUBLE_f) == sizeof(long double)) { |
| 18 |
if ( H5_PAC_C_MAX_REAL_PRECISION >= H5_PAC_FC_MAX_REAL_PRECISION) { |
| 19 |
if ((types[12] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0) return ret_value; |
| 20 |
|