diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2003-10-15 20:04:31 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2003-10-15 20:04:31 (GMT) |
| commit | 6df8b198a6d394b0fe5184b3d46797441c84be15 (patch) | |
| tree | 1f26b72ed5087f24572a843c4030bb63244d0ac3 /fortran/src/H5_f.c | |
| parent | eb878857a708ee0b0ae4a03391a42967f3162866 (diff) | |
| download | hdf5-6df8b198a6d394b0fe5184b3d46797441c84be15.zip hdf5-6df8b198a6d394b0fe5184b3d46797441c84be15.tar.gz hdf5-6df8b198a6d394b0fe5184b3d46797441c84be15.tar.bz2 | |
[svn-r7639] Purpose:
Code cleanup
Description:
Remove UNICOS-specific ifdefs and replace with portable code.
Platforms tested:
h5committest
Diffstat (limited to 'fortran/src/H5_f.c')
| -rw-r--r-- | fortran/src/H5_f.c | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/fortran/src/H5_f.c b/fortran/src/H5_f.c index 2571027..8ef7007 100644 --- a/fortran/src/H5_f.c +++ b/fortran/src/H5_f.c @@ -44,11 +44,13 @@ nh5init_types_c( hid_t_f * types, hid_t_f * floatingtypes, hid_t_f * integertype int ret_value = -1; hid_t c_type_id; if ((types[0] = (hid_t_f)H5Tcopy(H5T_NATIVE_INT)) < 0) return ret_value; -#if defined(_UNICOS) - if ((types[1] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value; -#else - if ((types[1] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0) return ret_value; -#endif + /* Accomodate Crays with this check */ + if(sizeof(real_f)==sizeof(double)) { + if ((types[1] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value; + } /* end if */ + else { + if ((types[1] = (hid_t_f)H5Tcopy(H5T_NATIVE_FLOAT)) < 0) return ret_value; + } /* end else */ if ((types[2] = (hid_t_f)H5Tcopy(H5T_NATIVE_DOUBLE)) < 0) return ret_value; /* if ((types[3] = H5Tcopy(H5T_NATIVE_UINT8)) < 0) return ret_value; |