diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2005-09-13 03:16:23 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2005-09-13 03:16:23 (GMT) |
| commit | 48ae256b07e499a631e05d607f8ca25bbc5b1339 (patch) | |
| tree | 8c83cd51d5de850660f864294fd667b1ca065877 | |
| parent | 8f9e9e2c459ecd9b70954f37fd6ee7851fc28793 (diff) | |
| download | hdf5-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.c | 6 |
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; |