diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2001-08-10 22:30:01 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2001-08-10 22:30:01 (GMT) |
| commit | d24ae52673e96864f4e406dd7b277f91d42fbb38 (patch) | |
| tree | e9bb3c48c58f43899616fe8d6cda8daec8d4cc8a /fortran/src/H5_f.c | |
| parent | 48842d60fa84fb69fb0a3dc527132eb93a6be7f2 (diff) | |
| download | hdf5-d24ae52673e96864f4e406dd7b277f91d42fbb38.zip hdf5-d24ae52673e96864f4e406dd7b277f91d42fbb38.tar.gz hdf5-d24ae52673e96864f4e406dd7b277f91d42fbb38.tar.bz2 | |
[svn-r4326] Purpose:
Code cleanups, mostly..
Description:
Work on pacifying the SGI compiler to get the generic properties working
correctly with --enable-parallel and --enable-fortran. It's not quite
fixed yet, but I need to head home and these patches help... :-/
Platforms tested:
IRIX64 6.5 (modi4)
Diffstat (limited to 'fortran/src/H5_f.c')
| -rw-r--r-- | fortran/src/H5_f.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/fortran/src/H5_f.c b/fortran/src/H5_f.c index dbd5a80..83eb113 100644 --- a/fortran/src/H5_f.c +++ b/fortran/src/H5_f.c @@ -120,19 +120,19 @@ nh5close_types_c( hid_t_f * types, int_f *lentypes, int ret_value = -1; hid_t c_type_id; - herr_t err; int i; + for (i = 0; i < *lentypes; i++) { - c_type_id = types[i]; - if ( (err = H5Tclose(c_type_id)) < 0) return ret_value; + c_type_id = types[i]; + if ( H5Tclose(c_type_id) < 0) return ret_value; } for (i = 0; i < *floatinglen; i++) { - c_type_id = floatingtypes[i]; - if ( (err = H5Tclose(c_type_id)) < 0) return ret_value; + c_type_id = floatingtypes[i]; + if ( H5Tclose(c_type_id) < 0) return ret_value; } for (i = 0; i < *integerlen; i++) { - c_type_id = integertypes[i]; - if ( (err = H5Tclose(c_type_id)) < 0) return ret_value; + c_type_id = integertypes[i]; + if ( H5Tclose(c_type_id) < 0) return ret_value; } ret_value = 0; return ret_value; |