summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2005-09-13 03:16:23 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2005-09-13 03:16:23 (GMT)
commit48ae256b07e499a631e05d607f8ca25bbc5b1339 (patch)
tree8c83cd51d5de850660f864294fd667b1ca065877
parent8f9e9e2c459ecd9b70954f37fd6ee7851fc28793 (diff)
downloadhdf5-48ae256b07e499a631e05d607f8ca25bbc5b1339.zip
hdf5-48ae256b07e499a631e05d607f8ca25bbc5b1339.tar.gz
hdf5-48ae256b07e499a631e05d607f8ca25bbc5b1339.tar.bz2
[svn-r11401] Purpose: Maintenance
Description: brought back changes from SX-6 Solution: Platforms tested: SX-6, heping and mir with new g95 Misc. update:
-rw-r--r--fortran/src/H5_f.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/fortran/src/H5_f.c b/fortran/src/H5_f.c
index a993451..0e5c4cb 100644
--- a/fortran/src/H5_f.c
+++ b/fortran/src/H5_f.c
@@ -66,17 +66,21 @@ nh5init_types_c( hid_t_f * types, hid_t_f * floatingtypes, hid_t_f * integertype
else if(sizeof(real_f)==sizeof(double)){
if ((types[1] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value;
} /* end if */
+#if H5_SIZEOF_LONG_DOUBLE!=0
else if (sizeof(real_f) == sizeof(long double)) {
if ((types[1] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0) return ret_value;
} /* end else */
+#endif
-
+ /* Find appropriate size to store Fortran DOUBLE */
if(sizeof(double_f)==sizeof(double)) {
if ((types[2] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value;
}/*end if */
+#if H5_SIZEOF_LONG_DOUBLE!=0
else if(sizeof(double_f)==sizeof(long double)) {
if ((types[2] = (hid_t_f)H5Tcopy(H5T_NATIVE_LDOUBLE)) < 0) return ret_value;
}/*end else */
+#endif
/*
if ((types[3] = H5Tcopy(H5T_NATIVE_UINT8)) < 0) return ret_value;