From 48ae256b07e499a631e05d607f8ca25bbc5b1339 Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Mon, 12 Sep 2005 22:16:23 -0500 Subject: [svn-r11401] Purpose: Maintenance Description: brought back changes from SX-6 Solution: Platforms tested: SX-6, heping and mir with new g95 Misc. update: --- fortran/src/H5_f.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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; -- cgit v0.12